Zoek eerste lege cel en plak data hier automatisch in

[NicolasG]

Hallo iedereen,

Ik ben op zoek naar een vba code die de eerste lege cel vindt in een kolom en in deze cel mijn data plakt.
De situatie is als volgt, ik heb 4 sheets (sheet1, sheet2, sheet3 en sheet4) met elks data in.
Nu wil ik deze graag automatisch allemaal onder elkaar plakken in sheet 5. Elk van de sheets heeft data in de kolommen A tot AZ.

Kan iemand mij verder helpen?

Bedankt!

Nicolas

 

[Timshel]

LastRow = Sheets(5).Cells(Rows.Count, 1).End(XlUp).Offset(1).Row

Is het rijnummer van de eerste lege cel in kolom A.

 

[jolivanes]

Als je alles uit alle vier de bladen wilt hebben zou dit het moeten doen hoop ik.
Wel eerst op een kopie van het originele proberen.

Sub Misschien()
    Dim sh5 As Worksheet, i As Long, j As Long, lc As Long
    Set sh5 = Sheets("Sheet5")
    For i = 1 To 4
        With Sheets(i)
            lc = .Cells.Find(What:="*", SearchOrder:=xlByColumns, _
                SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column
            For j = 1 To lc
                .Range(.Cells(1, j), .Cells(.Cells(.Rows.Count, j).End(xlUp).Row, j)).Copy _
                    sh5.Cells(Rows.Count, 1).End(xlUp).Offset(1)
            Next j
        End With
    Next i
End Sub

 

[gast0660]

Zoiets?

 

[NicolasG]

Perfect!! Bedankt!