Bir satırın altındaki 2 satırı almak.

[dorotheos0]

Merhaba,

Başlıkta kendimi iyi ifade edemedim ancak demek istediğim şey örneğin satırların bazılarında 123 sayısı var. Ben bu sayının altındaki 2 satırı tamamıyla farklı bir satıra aktarmak istiyorum.

Yardımcı olursanız sevinirim. Saygılar.

 

[dEdE]

Merhaba,
Verilerinizin Sayfa1 A sütununda olduğunu varsayarak, 123 sayısı bulunan hücrelerin altındaki iki satırı Sayfa2'ye kopyalar/keser yapıtırır.

Sub test()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
x = 2
ss = s1.Cells(Rows.Count, "A").End(3).Row
    For i = 2 To ss
        If Cells(i, 1) = 123 Then
            s1.Rows(i + 1 & ":" & i + 2).Copy s2.Cells(x, 1)'Kopyala/Yapıştır
            's1.Rows(i + 1 & ":" & i + 2).Cut s2.Cells(x, 1)'Kes/Yapıştır
            x = x + 2
        End If
    Next i
End Sub