For each rngCell in llaten vullen met de inhoud van 2 sheets

[gl3nn1987]

Goedemiddag heren,

Ik heb een hele korte vraag. Ik wil met de For each functie rnCel laten vullen met de gegevens van 2 Sheets, hoe werkt dat. Onderstaand de code voor de eerste sheet.

For Each rngCel In Sheets("2011").Range("A3:A" _
& Sheets("2011").Range("A65536").End(xlUp).Row)

En ik wil hem tevens laten zoeken in het tabblad 2012

 

[HSV]

Zul je apart door elke bereik van elk blad moeten lopen.

Bv:

Dim iWs as long
For iWs = 1 to 2
For each rngCel in Sheets(iWs).Range("A2:A" & Sheets(iWs).rows.count,1).end(xlup).row)

 

[gl3nn1987]

thanks laat m indd nu 2 tabbladen apart doen

 

[gl3nn1987]

Het is trouwens volledig deze code om meerdere tabs te doorzoeken

Dim iWS As Integer, cl As Range
   For iWS = 2 To Sheets.Count - 6
     With Sheets(iWS)
   For Each cl In .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    Next cl
  End With
 Next iWS