Soru satırları alt alta sıralama

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
362
Beğeniler
2
Excel Vers. ve Dili
2013 türkçe
#1
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
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
362
Beğeniler
2
Excel Vers. ve Dili
2013 türkçe
#4
Arkadaşlar bu konuda yardımcı olabilecek kimse yok mu ?

aciliyeti var da çünkü
 

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
362
Beğeniler
2
Excel Vers. ve Dili
2013 türkçe
#5
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

Katılım
9 Mart 2005
Mesajlar
2,559
Beğeniler
134
Excel Vers. ve Dili
Excel 2003-tr
#6
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
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
362
Beğeniler
2
Excel Vers. ve Dili
2013 türkçe
#7
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
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
362
Beğeniler
2
Excel Vers. ve Dili
2013 türkçe
#8
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