VBA'da koşullu kopyalama

[Tornael]

Selam arkadaşlar,

Özetliyecek olursak, VBA üzerinden "yada" formülüne benzer bir soru sordum.
İlgilenirseniz sevinirim.

Şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Kopyala()
    Application.ScreenUpdating = False
    With Sheets("Sayfa1")
        .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).Copy
    End With
 
    Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Offset(1, 0).PasteSpecial
 
    With Sheets("Sayfa1")
        .Range("B2:B" & .Cells(Rows.Count, 2).End(3).Row).Copy
    End With
 
    Sheets("Sayfa2").Cells(Rows.Count, 2).End(3).Offset(1, 0).PasteSpecial
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Tornael]

Elinize sağlık. Tam istediğim gibi.