For Each c In Source.Range("B10:B1000") ' Do 1000 rows

[Esducsafe]

@Helpers
Onderstaande For Each werkt nu met Range (“B10;B1000”) dit
wil ik graag uitbreiden tot de laatste cel in rij B waar een waarde kan staan.
Wie kan mij helpen?
Alvast dank.
Esko

    For Each c In Source.Range("B10:B1000")   ' Do 1000 rows
    If IsDate(c.Value) Then
    Source.Rows(c.Row).Copy Target.Rows(j)
     j = j + 1
    End If
    Next c

 

[edmoor]

Probeer dit eens:

    For Each c In Source.Range("B10:B" & ActiveSheet.Range("B10").CurrentRegion.Rows.Count)
        If IsDate(c.Value) Then
            Source.Rows(c.Row).Copy Target.Rows(j)
             j = j + 1
        End If
    Next c

 

[snb]

waarom niet

Columns(2).specialcells(2,1).copy

Maar waarom dubbele gegevens in een werkboek ?

 

[edmoor]

Omdat dat de beste oplossing voor het geheel is
Maar het geeft geen antwoord op de vraag hoe het laatste regelnummer verkregen kan worden.

 

[snb]

Die laatste regel zit er gewoon al in.

 

[Esducsafe]

Copy_Sheets_Master

Hierbij mijn oplossing voor een ieder.
Ik heb het script getest in Excel 2003.
Of mijn oplossing nog verbeterd kan worden. hoor ik graag van de experts.
Edmoor en SNB dank voor jullie reacties.
Groet.
Esko

Sub Copy_Sheets_Master()
Dim ws As Worksheet, lr As Long, r As Long
lr = Sheets("Master").Cells(Rows.Count, "B").End(xlUp).Row + 10
For Each ws In Worksheets
    If ws.Name = "Blad1" Or ws.Name = "Blad2" Or ws.Name = "Blad3" Then
     ws.Activate
        For r = 10 To 65000
           If IsDate(Range("B" & r)) Then
               Range("B" & r & ":N" & r).Copy Sheets("Master").Range("B" & lr)
               lr = Sheets("Master").Cells(Rows.Count, "B").End(xlUp).Row + 1
           End If
        Next r
    End If
Next ws
End Sub