• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cel met dezelfde waarde opzoeken

Status
Niet open voor verdere reacties.

johnny1980

Gebruiker
Lid geworden
28 apr 2013
Berichten
75
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
 

Bijlagen

Om je op weg te helpen.

Code:
'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
 
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
 
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
 
Dag Johnny,

Dit bedoel je?
Code:
 .cells(xx,4).clearcontents
 
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
 
Zoiets dus.
Code:
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
 
Dag Harry,

Helaas gebeurd er niets met deze code....

Nog wat zoeken :d

Groetjes Johnny
 
Als er niets zou gebeuren met de code had ik het niet geplaatst. ;)

Even goed kijken waar, hoe en wat.
 
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
 
Mooi zo, graag gedaan.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan