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.

[Orion1]

Merhaba.
Aşağıdaki kod işinizi görecektir. 8
İyi çalışmalar.

Kod: [Seç]

Sub kesan_corlu()
'coder:evren gizlen
'date:25.06.2011
'email: evrengizlen@hotmail.com
Dim adr As String
On Error Resume Next
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("data")
Set s2 = Sheets("kontrol")
s2.Range("C1:C30").Clear
adr = s1.Range("P1:P30").SpecialCells(2, 23).Offset(0, -14).Address
s1.Range(adr).Copy s2.Range("C1")
On Error GoTo 0
End Sub