Satır kopyalama

[ThEeNCi]

Merhabalar,
Sayfa 1 deki sıfır olanlar hariç rakamların olduğu satıları sayfa 2 kopyalamak macrosu lazım yardımcı olabilir misiniz.
Teşekkürler..

 

[Emir Hüseyin Çoban]

.

Sub kod()

    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")

    s2.Range("A2:B" & Rows.Count).ClearContents
    sat = 2
    
    For i = 3 To s1.Cells(Rows.Count, "A").End(3).Row
        If Cells(i, "B") <> 0 Then
            s2.Cells(sat, "A") = s1.Cells(i, "A")
            s2.Cells(sat, "B") = s1.Cells(i, "B")
            sat = sat + 1
        End If
    Next i
    
End Sub

.

 

[ThEeNCi]

Çok teşekkür ederim.

 

[ThEeNCi]

Emir bey şöyle bir durum ortaya çıktı eski bakiyeleri de göstermesi lazım eğer stok -50 ise yada -1 onuda alması lazım. Teşekkür ederim..

 

[Emir Hüseyin Çoban]

Test ettiniz mi alması gerekiyor zaten.

.

 

[ThEeNCi]

Tamam ilk satırı görmemiş. Tekrar çok teşekkür ederim.