ik heb momenteel deze code geschreven. Nu zoek ik een manier om op rij B de volgende zoekactie weer te geven.
Iemand die mij kan helpen? Raad geven?
Sub searchdata()
Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer
lastrow = Sheets("allergenenlijst").Cells(Rows.count, 1).End(xlUp).Row
For X = 2 To lastrow
If Sheets("allergenenlijst").Cells(X, 1) = Sheets("sheet2").Range("C3") Then
Sheets("sheet2").Range("A9") = Sheets("allergenenlijst").Cells(X, 1)
Sheets("sheet2").Range("B9") = Sheets("allergenenlijst").Cells(X, 2)
Sheets("sheet2").Range("C9") = Sheets("allergenenlijst").Cells(X, 5)
Sheets("sheet2").Range("D9") = Sheets("allergenenlijst").Cells(X, 6)
Sheets("sheet2").Range("E9") = Sheets("allergenenlijst").Cells(X, 7)
Sheets("sheet2").Range("F9") = Sheets("allergenenlijst").Cells(X, 8)
Sheets("sheet2").Range("G9") = Sheets("allergenenlijst").Cells(X, 9)
Sheets("sheet2").Range("H9") = Sheets("allergenenlijst").Cells(X, 10)
Sheets("sheet2").Range("I9") = Sheets("allergenenlijst").Cells(X, 11)
Sheets("sheet2").Range("J9") = Sheets("allergenenlijst").Cells(X, 12)
Sheets("sheet2").Range("K9") = Sheets("allergenenlijst").Cells(X, 13)
Sheets("sheet2").Range("L9") = Sheets("allergenenlijst").Cells(X, 14)
Sheets("sheet2").Range("M9") = Sheets("allergenenlijst").Cells(X, 15)
Sheets("sheet2").Range("N9") = Sheets("allergenenlijst").Cells(X, 16)
Sheets("sheet2").Range("O9") = Sheets("allergenenlijst").Cells(X, 17)
Sheets("sheet2").Range("P9") = Sheets("allergenenlijst").Cells(X, 18)
Sheets("sheet2").Range("Q9") = Sheets("allergenenlijst").Cells(X, 19)
End If
Next X
End Sub