'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..
__________________
EXCEL de vb tabanında kod yazımda yardım edermisiniz
Programlama0 Mesaj
●18 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- EXCEL de vb tabanında kod yazımda yardım edermisiniz