invoeren in 1e sheet en zichtbaar in de volgende

[blackhawknl]

hoe kan ik er voor zorgen dat als ik in de 1e sheet een waarde invul
a=naam
b=x
c=y

dat het zichtbaar wordt in de 2e sheet

x en y moet namelijk op de cel uitkomen

voorbeel:
a=water
b=10
c=5

dan zou in de volgende sheet in cel J5 de naam WATER moeten komen te staan

 

[oeldere]

met in J5 van blad 2 (zie bijlage)

=Blad1!A1

graag in vervolg zelf even het bestandje, ontdaan van gevoelige info, toevoegen.

 

[Cobbe]

Dit is enkel via VBA op te lossen en wel oa met deze code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A2:A3")) Is Nothing Then Exit Sub
Sheets(2).Cells([A3], [A2]) = [A1]
End Sub

Succes, Cobbe

 

[blackhawknl]

Dit is enkel via VBA op te lossen en wel oa met deze code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A2:A3")) Is Nothing Then Exit Sub
Sheets(2).Cells([A3], [A2]) = [A1]
End Sub

Succes, Cobbe

en daar zit me nu eindelijk het probleem
heb nog nooit gewerkt met VB
En hoe kan ik er voor zorgen dat als de x, en de Y groter worden dat ze verder gaan dan bijvoorbeel cel z1 want dan krijg je AA1 etc etc
het vorige voorbeelde dat geleverd was kwam een beetje in de richting maar kwam er nog niet uit.
en er zijn meerder waarden die ingevuld moeten worden in de eerste sheet.

 

[Cobbe]

Ik begrijp de opzet niet volledig denk ik. Als het zo is dat je telkens een waarde , rij en kolom wil ingeven en dat dit gegeven autom. op de correcte plaats wordt gezet dan moet je via een Inputbox werken.
Daar kun je die gegevens invullen gescheiden door een komma en de een macro doet dan de rest.

Laat maar weten of het dit is wat je hoopt te berieken.

Cobbe

 

[blackhawknl]

Ik begrijp de opzet niet volledig denk ik. Als het zo is dat je telkens een waarde , rij en kolom wil ingeven en dat dit gegeven autom. op de correcte plaats wordt gezet dan moet je via een Inputbox werken.
Daar kun je die gegevens invullen gescheiden door een komma en de een macro doet dan de rest.

Laat maar weten of het dit is wat je hoopt te berieken.

Cobbe

ja en nee, inderdaad wil alle waarde in kunnen vullen.
maar wil eigenlijk alle waarde in het eerste vel zichtbaar houden.

 

[Cobbe]

Test deze eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Cells(1, 4)) Is Nothing Then Exit Sub
W1 = InputBox("Geef de waarde ")
W2 = InputBox("geef de rij")
W3 = InputBox("geef de kolom")
Lrij = Range("A65500").End(xlUp).Row + 1
With Sheets(1)
        .Range("A" & Lrij) = W1
        .Range("A" & Lrij + 1) = W2
        .Range("A" & Lrij + 2) = W3
End With
        
Sheets(2).Cells(Val(W2), Val(W3)) = W1
End Sub

Je moet op D1 klikken om een en ander te activeren.

Zie maar of je in die richting wil? moet nu weg met madam.

Cobbe

 

[blackhawknl]

het probleem is bij mij dat ik nog nooit met vb gewerkt heb.

kan berekeningen maken en tabellen maar van vb heb ik geen kaas gegeten.

heb je een voorbeeldje voor me. dan kan ik daarvan afkijken en misschien er achter komen door te backtracken, van de code hoe die precies geschreven is

 

[Cobbe]

Hier toch nog een bestandje. Klik op Alt-F11 om de code te zien.

Cobbe

 

[blackhawknl]

Hier toch nog een bestandje. Klik op Alt-F11 om de code te zien.

Cobbe

ja dit is nu precies wat ik bedoelde. en nieuwe invoer werkt ook perfect.
alleen kan ik niet achterhalen hoe ik in het eerste werkblad waar de invoer is er voor kan zorgen dat de naam in kolom a komt te staan, en dan de 2e invoer in kolom b komt te staan en 3e invoer in kolom C
er staat in de code +1 maar werkt dat ook in de breedte.

 

[Cobbe]

Nu worden de gegevens in rijen gezet en onder elkaar.

Cobbe

 

[Warme bakkertje]

Als ik je opmerking goed begrijp

With Sheets(1)
        .Range("A" & Lrij) = W1
        .Range("B" & Lrij) = W2
        .Range("C" & Lrij) = W3
End With

 

[blackhawknl]

Perfect perfect.
zit alleen maar met 2 struikelblokken.
De naam is niet zo belangrijk wel voor de lijst in het eerste blad, maar niet in de 2e
en hoe kan ik een extra waarde er bij doen. Voorbeeld ja/nee en dat dan de nieuwe waarde dan in het 2e blad dan in kleur verschijnt. dan zou ik als ik de 2 vb's bij elkaar neer legt een beetje uit kunnen dokteren hoe het precies moet.

Nog bedankt trouwens want ik had er nooit uit kunnen komen.

Oh ja 2e blad. hoe kan ik er voor zorgen dat ik rondom een x,y coördinatenlijst kan zien. Gewoon invoegen en dan de nummer invoegen. want het gaat uiteindelijk om een raster van dikke 500/500 waar we over aan het praten zijn.
Dus zou het helemaal top zijn als je dan rondom kan zien waar je precies zit.

 

[Warme bakkertje]

En op welke coördinaten ga je deze derde waarde dan plaatsen ? Een tekst kleuren doe je met

[I]expressie[/I].Font.colorindex= [I]kleurnummer[/I]

waar expressie ActiveCell, een Range, Cells(x,y) is