Formule of VBA xlUp vraag

[Revdutchie]

Hallo alle,

Formule gezocht, de bijlage zegt alles

 

[Cobbe]

Het bestand zal het uitwijzen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rij = Range("B30").End(xlUp).Row + 1
If [F29] = [C5] Or [G29] = [C5] Then
Cells(rij, 2) = [F29]: [F29] = ""
Cells(rij, 3) = [G29]: [G29] = ""
End If
End Sub

Cobbe

 

[Revdutchie]

Cobbe,

Thanks, dat werkt toppie, moet alleen nog even uitvogelen in welk event daar de waardes uit een userform en formule komen en er dus geen selection_change gebeurt.

 

[snb]

of

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If [F29] = [C5] Or [G29] = [C5] Then 
    cells([B30].End(xlUp).Row + 1, 2).resize(,2) = [F29:G29]
    [F29:G29] = ""
  End If
End Sub