aranan değere göre belli hücre aralığını diğer sayfaya kopyalama.

[mbabacan]

benzer konular var ama benim ihtiyacımın aynısı bulamadım.

7 sütunlu (A,B,C,D,E,F,G) ve çok satırlı bir tablom var. Ben bu tabloda A sütununda "ozi" yazan hücreleri bulup, bu satırları A dan G ye kadar seçip kopyalayarak sayfa-2 deki "B3" hücresinden başlayarak alt alta kopyalamak istiyorum. Ayrıca kopyalattığım bu satırlara A sütununda otomatik bir sıra numarası verilemsini istiyorum.

Bu konuda yardımcı olabilirmisiniz? Hücre değerini bulsam satırı kopyalayamadım, kattım karıştırdım. beceremedim.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    
    Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
    Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
    sat = 3
    
    For i = 1 To S1.Cells(Rows.Count, "A").End(3).Row
        If S1.Cells(i, "A") = "ozi" Then
            S1.Range("A" & i & ":G" & i).Copy S2.Cells(sat, "B")
            S2.Cells(sat, "A") = sat - 2
            sat = sat + 1
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .