0 olan satırı kopyalama

[sonyavuz]

]Selamun Aleyküm
Ustalar bilgilerim doğrultusunda bir excel tablosu yaptım fakat bir yerde tıkandım. Örneğin 1. sayfada A1 B1 C1 D1 E1 stunları var ve aynen 2. sayfadada aynı stunlar kopyalı. 2. sayfa 1. sayfadaki E1 stununda 0 ( sıfır ) görürse 1. sayfanın A1 B1 C1 D1 stunlarını alıp 2. sayfanın A1 B1 C1 D1 stunlarına birebir kopyalasın.


Dosya

 

[bzace]

Merhaba,
Deneyiniz.

Sub Hatkoy()
Dim Jn As Integer
Dim jj As Worksheet
Set jj = Sheets("Sayfa2")
Jn = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value
If jj.Cells(1, 5) = 0 Then
    Cells(Jn, "A").Resize(, 4).Copy jj.Range("A65536").End(3)(1, 1)
End If
End Sub

 

[sonyavuz]

Hocam affına sığınarak soruyorum bunu hücreyemi kopyalayıp yapıştıracağım ? yada nereye ?

 

[sonyavuz]

Merhaba,
Deneyiniz.

Sub Hatkoy()
Dim Jn As Integer
Dim jj As Worksheet
Set jj = Sheets("Sayfa2")
Jn = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value
If jj.Cells(1, 5) = 0 Then
    Cells(Jn, "A").Resize(, 4).Copy jj.Range("A65536").End(3)(1, 1)
End If
End Sub

Hocam JN = Range ("A1 ... satırının başında komut eksik Set koyuyorum oda hata veriyor tekrar bakar mısınız?