Eksi Değerli Tutar Aktarma Hatası

[emiroglu07]

Arkadaşlar merhaba bir tablom var bir sayfadan verileri diğer sayfaya aktarma yapıyorum yanlız eksideğerli bir tutar yazdığımda onu aktarmıyor bu konuda yardımcı olabilirmisiniz.
Şimdiden Teşekkür ederim...

İndir YUSUF

Dosyayı indir YUSUF

dosya.co

 

[ÖmerFaruk]

Module1 içindeki ZirveAktar makronuzda revize yapınca olacaktır sanırım
Kodunuzun For-Next döngüsü olan kısmını aşağıdakiyle değiştirin

    For i = 3 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        
        S1.Cells(i, "A").Resize(1, 5).Copy
        Cells(sat, "B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
        
        Cells(sat, "A") = S1.Cells(i, "H")
        Cells(sat, "H") = S1.Cells(i, "F")
        Cells(sat, "G") = 0
        sat = sat + 1
        For j = 9 To 20
            On Error GoTo Devamhata
            If IsNumeric(S1.Cells(i, j)) And S1.Cells(i, j) * 1 <> 0 Then
                Cells(sat, "B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
                Cells(sat, "A") = S1.Cells(2, j)
                Cells(sat, "G") = S1.Cells(i, j)
                sat = sat + 1
            End If
Devamhata:
        Next j
    On Error GoTo 0
    Next i