Makroya "eğer" şartı ekleme hakkında

[drummers]

Sub Aktar()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("data")
Set s2 = Sheets("kontrol")

s2.Range("C2:C300").Value = s1.Range("B2:B300").Value


End Sub

Bu makro ile data sekmesindeki "B2:B300" aralığındaki verilerimi kontrol sekmemdeki "C2:C300" aralığına aktarmaktayım

Sorum şudur: data sekmesindeki "P" sütununu kontrol edecek eğer "P" sütununda veri var ise ilgili satırdaki yani "B2:B300" aralığındaki veriyi kontrol sekmesine atmayacak.

 

[Necdet]

Merhaba,

Biraz ezbere oldu kodlar, umarım işinize yarar.

Sub Aktar()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim i As Integer, j As Integer
    Set s1 = Sheets("data")
    Set s2 = Sheets("kontrol")
    
    s2.Select
    Application.ScreenUpdating = False
    j = 1
    For i = 2 To 300
        If Not s1.Cells(i, "P") = "" Then
            j = j + 1
            s2.Cells(j, "C") = s1.Cells(i, "B")
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "Veriler Aktarılmıştır"
End Sub