Cel met dezelfde waarde opzoeken

[johnny1980]

Beste forumleden,

Graag doe ik een beroep op jullie kennis.
Is het mogelijk om via VBA het volgende te bereiken:

Wanneer in het werkblad "recap" kolom L een waarde wordt ingegeven, zou excel in werkblad "Toestand hld's" moeten gaan kijken in kolom B naar een "match".
Als excel dezelfde waarde vindt, moeten er een aantal gegevens over genomen worden van werkblad "recap" naar werkblad "Toestand hld's".

Bv:
In cel L3 op het werkblad "recap" zet ik 871
Op werkblad "Toestand hl's", verschijnen de gegevens van werkblad "recap".

Ik heb in VBA dit stuk erin gezet voor "871", maar ik hoop dat er een mogelijkheid is om dit te doen voor elke waarde die ik ingeef?

Alvast bedankt.

Groetjes Johnny

 

[HSV]

Om je op weg te helpen.

'Trein bij vertrek


xx = Application.Match(Target, Sheets("toestand hld's").Columns(2), 0)
If IsNumeric(xx) Then
If Target.Offset(, -6).Font.Bold Then
Target.Offset(, -6).Value = "SCHAARB.-VORM. BUNDEL L"
  With Sheets("Toestand hld's")
   .Cells(xx, 6) = Target.Offset(, -10).Value
   .Cells(xx, 5) = Target.Offset(, 1).Value
   .Cells(xx, 9) = Target.Offset(, 3).Value
   .Cells(xx, 6).Resize(, 3).Interior.ColorIndex = 27
   .Cells(xx, 6).Resize(, 3).Font.ColorIndex = 1
   .Cells(xx, 6).Resize(, 3).Font.Bold = xlMedium
   .Cells(xx, 7) = Target.Offset(, -11).Value
   .Cells(xx, 8) = Target.Offset(, -9).Value
  End With
End If
End If

 

[johnny1980]

Dag Harry,

De oplossing die u geeft werkt!
Ik kan in elk geval al verder, al is dit juist het begin van wat het programma moet gaan doen.....
Er zou moeten:
- nagekeken worden of de gegevens die naar ("Toestand hld's") over gezet worden, al niet reeds aanwezig zijn (geen dubbele ritnummers met dezelfde datum en hetzelfde uur).
- wanneer het vertrekuur ingegeven wordt (in "recap") moeten de gegevens ook verdwijnen van ("toestand hld's").
En nog zo een aantal dingen :d :d

Ik kom ongetwijfeld nog terug!!

Alvast bedankt!!

Mvg,
Johnny

 

[johnny1980]

Dag Harry,

Hier ben ik dan met mijn volgende vraag:d

Wanneer ik in kolom D op het werkblad "recap" het vertrekuur ingeef, zou op het werkblad "toestand hld's" het overeenkomstig spoor ook moeten verdwijnen.
Ik heb geprobeerd met een target.offset maar dat lukt niet.

Alvast bedankt.

Groetjes Johnny

 

[HSV]

Dag Johnny,

Dit bedoel je?

 .cells(xx,4).clearcontents

 

[johnny1980]

Dag Harry,

Met de functie isnumeric wordt er gekeken of de waarde die wordt ingeven in kolom L (werkblad "recap") overeenkomt met de waardes in kolom(2) van werkblad ("toestand hld's").
Als ik ik kolom L bv (spoor) 745 ingeef, komt op het blad ("toestand hld's") in het rijtje van 745 netjes de gegevens die er moeten komen (locnummer- indien ingegeven, treinnummer, datum, vertrekuur, locnummer-indien ingegeven).
Wanneer ik het vertrekuur van het spoor 745 ingeef (kolom 4 op werkblad "recap), zou dan de weggeschreven gegevens weer moeten verdwijnen (de trein is dan vertrokken en bevindt zich niet langer op het spoor 745).
Maar de isnumeric werkt niet met target.offset denk ik?

Groetjes johnny

 

[HSV]

Zoiets dus.

case 4
 xx = Application.Match(Target.Offset(, 8), Sheets("toestand hld's").Columns(2), 0)
 If IsNumeric(xx) Then Sheets("toestand hld's").Cells(xx, 2).Resize(, 18).Clear

 

[johnny1980]

Dag Harry,

Helaas gebeurd er niets met deze code....

Nog wat zoeken :d

Groetjes Johnny

 

[HSV]

Als er niets zou gebeuren met de code had ik het niet geplaatst.

Even goed kijken waar, hoe en wat.

 

[johnny1980]

Dag Harry,

Na wat zoeken en spelen heb ik het gewenste resulaat bereikt!!
Op naar de volgende uitdaging.

Nogmaals bedankt en tot de volgende vraag!:d

Groetjes Johnny

 

[HSV]

Mooi zo, graag gedaan.