Soru satırları alt alta sıralama

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,264
Excel Vers. ve Dili
2016 Türkçe
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
 

Ekli dosyalar

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,264
Excel Vers. ve Dili
2016 Türkçe
Arkadaşlar günaydın bu konuda yardımcı olabilecek misiniz
 

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,264
Excel Vers. ve Dili
2016 Türkçe
eski mesajlardan buldum yusuf44 isimli arkadışımız yardımcı olmuş.
 

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,264
Excel Vers. ve Dili
2016 Türkçe
Arkadaşlar bu konuda yardımcı olabilecek kimse yok mu ?

aciliyeti var da çünkü
 

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,264
Excel Vers. ve Dili
2016 Türkçe
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
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,264
Excel Vers. ve Dili
2016 Türkçe
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

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,264
Excel Vers. ve Dili
2016 Türkçe
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
 
Üst