VGA Hoe maak ik van deze VLOOKUP voor 1 regel er tje voor alle cellen in kolom F

[gl3nn1987]

Ik heb hem nu werkend gekregen voor de 2e Rij hoe maak ik ervan dat hij dat voor elk ingevulde cel van F doet?

Sub Tarief_toevoegen()
Dim lookFor As Range
Dim rng As Range
Dim col As Integer
Dim found As Variant

Set lookFor = Sheets("Agenda").Range("F2")
Set rng = Sheets("Werkzaamheden").Columns("A:C")
col = 2

On Error Resume Next
found = Application.VLookup(lookFor.Value, rng, col, 0)
If IsError(found) Then
With Sheets("Agenda").Range("C2")
.Offset(0) = ""
End With
Else: With Sheets("Agenda").Range("C2")
.Offset(0) = found
End With
End If
On Error GoTo 0
End Sub

 

[HSV]

Doe je bestandje er eens bij Glenn, en leg eens goed uit wat je wil bereiken.

1:Je titel begrijp ik al niet.
2: De Php codetags niet gebruiken, maar de # (na kopiëren moet iemand eerst de regelcijfers verwijderen).
3: Offset(0) = "" (op dezelfde rij en kolom dus) = gewoon C2.

Dus al met al een slechte vraagstelling.

Het zal iets worden met For Each denk ik.

 

[gl3nn1987]

haha ja ik zie dat ik een beetje onduidelijk ben geweest. Maar heb het inmiddels opgelost door het aan het versturen mee te koppelen. En over de Offset(0) dat weet ik dan ook weer, net begonnen ermee