son satıra kopyala

[oydemir]

Elimdeki kodda şarta bağlı hücreleri kopyalayıp yeni sayfaya yapıştırıyorum fakat yapıştırırken son dolu hücrenin altına yapıştırmak için sizlerden yardım talep ediyorum. Teşekkürler
Sub ko()
Dim asi As Date
asi = Time
x = 2
Sheets("veri").Range("A2:H1000").ClearContents
For i = 3 To Cells(Rows.Count, "I").End(xlUp).Row
If Cells(i, "I") = "X" Then
Range("B" & i & ":H" & i).Copy Sheets("veri").Range("A" & x & ":H" & x)
x = x + 1
End If
Next
Range("A1").Select
MsgBox Format(Time - asi, "hh:mm:ss") & " Sürede Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "ZAMAN"
End Sub

 

[Muzaffer Ali]

Merhaba.

Sub ko()
    Dim asi As Date
    Dim SonSatir As Long
    Dim i As Long
    asi = Time
    Sheets("veri").Range("A2:H1000").ClearContents
    
    For i = 3 To Cells(Rows.Count, "I").End(xlUp).Row
        If Cells(i, "I") = "X" Then
            SonSatir = Sheets("veri").Cells(Rows.Count, "A").End(xlUp).Row + 1
            Range("B" & i & ":H" & i).Copy Sheets("veri").Range("A" & SonSatir & ":H" & SonSatir)
        End If
    Next
    Range("A1").Select
    MsgBox Format(Time - asi, "hh:mm:ss") & " Sürede Tamamlandı" & vbLf & Application.UserName, _
    vbInformation, "ZAMAN"
End Sub

 

[walabi]

Son dolu hücreyi bu kod satırı veriyor.
Cells(Rows.Count, "I").End(xlUp).Row

son dolu hücreden sonraki ilk boş satır anlamına gelecek şekilde + 1 eklemeniz yeterli olmalı, doğru anladıysam sorunuzu

Cells(Rows.Count, "I").End(xlUp).Row + 1

 

[oydemir]

elinize emiğinize sağlık çok teşekkür ederim

 

[oydemir]

emeğinize