lastrow

[don42]

beste allemaal,

ik heb nu dit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tel As Integer
tel = Sheets("klanten").Range("a" & Rows.Count).End(xlUp).Row
If Not Intersect(Range("f3"), Target) Is Nothing Then
UserForm1.Show
Range("f4").Resize(3) = "=INDEX(klanten!R2C1:[B]R200[/B]C4,MATCH(factuur!R3C6,klanten!R2C1:[B]R200[/B]C1,0),row()-2)"
End If
End Sub

nu zou ik graag daar waar R200 staat dit vervangen voor "tel" hier tel ik dus de klanten
krijg het niet voor elkaar
wie weet het wel?

Don

 

[edmoor]

Probeer het eens zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tel As Integer
    tel = Sheets("klanten").Range("A" & Rows.Count).End(xlUp).Row
    If Target.Address = "$F$3" Then
        UserForm1.Show
        Range("F4").Resize(3) = "=INDEX(klanten!R2C1:R" & tel & "C4,MATCH(factuur!R3C6,klanten!R2C1:R" & tel & "C1,0),row()-2)"
    End If
End Sub

Tip:
Gebruik ook inspringpunten en schrijf kolomletters altijd als hoofdletter.

 

[don42]

Top

Edmoor,

werkt super
dank je wel voor je hulp

Dpon