danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Beste,
Heb volgende code voor gegevens op te vragen, enkel voor Tabblad 1
Zou deze willen uitbreiden tot 11 tabbladen (Blad1 t.e.m. Blad11)
Hier wat geprobeerd maar krijg foutmelding bij Next I
Heb volgende code voor gegevens op te vragen, enkel voor Tabblad 1
Zou deze willen uitbreiden tot 11 tabbladen (Blad1 t.e.m. Blad11)
Code:
Sub Zoeken_LK()
Dim x As Range
For Each x In Sheets(1).Range("A20:A500")
If Left(x, 2) = LK Or Left(C, 1) = S Then
x.Copy Destination:=Worksheets("Systeem").Range("AN500").End(xlUp).Offset(1, 0)
End If
Next x
End Sub
Hier wat geprobeerd maar krijg foutmelding bij Next I
Code:
Sub Zoeken_LK()
Dim x As Range
Dim WS_Count As Integer
Dim I As Integer
WS_Count = Worksheets("Blad1").Count
For I = 1 To WS_Count
If WS_Count < 12 Then
'For Each x In Sheets(1).Range("A20:A500")
For Each x In Range("A20:A500")
If Left(x, 2) = LK Or Left(C, 1) = S Then
x.Copy Destination:=Worksheets("Systeem").Range("AN500").End(xlUp).Offset(1, 0)
End If
Next I
Next x
End Sub