Soru satırları alt alta sıralama

[NADİR YILDIZ]

Arkadaşlar daha önce forumda ismi hatırlayamadığım bir arkadaş bu konuda bana yardımcı olmuştu.satış ft listesindeki sayfada yan yana olan işlemleri düğme17 vasıtasıyla bu şekilde alt alta aktarıyordum.ancak satış ft listesi sayfasında sütun ekleyince aktarırken satırlar ve sütunlar karışıyor.bu konuda yardımcı olurmusunuz

 

[NADİR YILDIZ]

Arkadaşlar günaydın bu konuda yardımcı olabilecek misiniz

 

[NADİR YILDIZ]

eski mesajlardan buldum yusuf44 isimli arkadışımız yardımcı olmuş.

 

[NADİR YILDIZ]

Arkadaşlar bu konuda yardımcı olabilecek kimse yok mu ?

aciliyeti var da çünkü

 

[NADİR YILDIZ]

arkadaşlar bazı eklemeler yaptım aktarım yaptı ancak sarı ile boyalı alanlara aktarılan hatalı aktarıyor.kdv oranı % 8 olanların fatura bilgilerini ve matrah ve kdv tutarlarını sırasıyla aktarım yapmıyor.. yardımcı olabilir misiniz

 

[veyselemre]

Sub Test()
    Set s1 = Worksheets("MUHASEBE")
    Set s2 = Worksheets("SATIŞ FT.LİSTESİ")
    s1.Range("A3:L" & Rows.Count).ClearContents

        sat = 3
        For i = 4 To s2.Cells(Rows.Count, 1).End(3).Row
            w = s2.Range(s2.Cells(i, 1), s2.Cells(i, 12)).Value
            w(1, 11) = w(1, 7)
            w(1, 12) = Trim(s2.Cells(i, 20))
            For ii = 8 To 17 Step 3
                    If s2.Cells(i, ii).Value > 0 Then
                        w(1, 8) = s2.Cells(i, ii).Value
                        w(1, 9) = s2.Cells(i, ii + 1).Value
                        w(1, 10) = s2.Cells(i, ii + 2).Value
                        s1.Cells(sat, 5).NumberFormat = "@"
                        s1.Cells(sat, 12).NumberFormat = "@"
                        s1.Cells(sat, 1).Resize(, 12).Value = w
                        sat = sat + 1
                    End If
                Next ii
        Next i
    MsgBox "İşlem Tamam"
End Sub

 

[NADİR YILDIZ]

Veysel bey öncelikle yardımınız için teşekkür ederim

bu liste uzun bir liste yaklaşık 10.000 satırı buluyor

aktarırken 990.satırda

w(1, 12) = Trim(s2.Cells(i, 20))

sarı ile renkli olarak hata veriyor sorun nerede acaba

 

[NADİR YILDIZ]

veysel bey listeyi kontrol ettiğimde satılarda bazı boş alanların olduğunu gördüm.
boş alanları doldurunca doğru şekilde aktarım yaptı.
yardımınız için teşekkür ederim
Allah Razı olsun hakkınızı helal edin

iyi çalışmalar