'tahsilat makbuzundan SENET sayfasına girdi
t = 2
For w = 11 To 17
Do While (Sayfa9.Cells(t, 1) "")
If (Sayfa9.Cells(t, 1) = Sayfa4.Cells(5, 11)) Then Exit Sub
Exit Do
Loop
Do While (Sayfa4.Cells(w, 3) = "SENET")
Sayfa9.Cells(t, 1) = Sayfa4.Cells(5, 11)
Sayfa9.Cells(t, 2) = Sayfa4.Cells(5, 3) + " - " + "SENET"
Sayfa9.Cells(t, 3) = Sayfa4.Cells(w, 4)
Sayfa9.Cells(t, 4) = Sayfa4.Cells(w, 6)
Sayfa9.Cells(t, 5) = Sayfa4.Cells(w, 9)
Sayfa9.Cells(t, 6) = Sayfa4.Cells(w, 10)
Sayfa9.Cells(t, 7) = Sayfa4.Cells(w, 11)
w = w + 1
t = t + 1
Loop
Next w


arkadslar tahsilat makbuzunda ornegin

cek
cek
senet
senet
nakit

girdileri var burada olan cek bilgilerini ayrı ayrı cek sayfasına senetleride senet sayfasına yazdır butonuna tıkladıgımızda ayırıp yapmasını istiyorum. kırmızıyla cizdigim exit do komutunu koyunca dedigim komut gercekleşiyor ama 2ci bi fatura kesince tekrar fatura numarsaını degistirip bilgileri eskisinin ustune yazıyor altına eklemesini istiyorum ve exit do komutunu kaldırdığımızda sanırım bitmeyen donguye giriyor ve program 1ci makbuzda calısıor 2ci bi makbuz kestigimizda farklı noyla tabi donuyor bu arada excel tabanındaki vb de yazıorum komutu yardım ederseniz cok sevinirim umarım yapmak istedigimi anlamıssınızdır..
__________________