Makroda döngü kullanımı

[heykali]

Arkadaşlar ekteki dosya çok uzun süredir kafa yorduğum bir dosyadır.
Benim için en zor aşama "excel de nasıl stok takibi yapabilirim ? " sorusuydu.Bu en zor kısmı geçtim. Şablonu oturttum ancaK bu kezde makroların döngüsel kullanımı vs. konulara takıldım sizden ricam yardımlarınızı esirgemeyin.Emeği geçen herkese sonsuz teşekkürler.
Bu sitenin emeği ve hakkı ödenmez. Sizlerden öğrendiklerimle çok değişik sorunlarımı kolayca aştım.TEŞEKKÜRLER.
MURAT IŞIK

 

[veyselemre]

[vb:1:47f5d0416f]Sub aktar()
If MsgBox("Fatura Bilgileri Kütük Sayfasına Aktarılacak Devam Etmek İstiyor Musunuz?", vbYesNo) = VBNo Then Exit Sub

Set ft = Sheets("Fkesme")
Set kut = Sheets("KÜTÜK")

f_no = ft.[f4]
m_kod = ft.[b3]
f_tar = ft.[f8]

a = kut.[a65536].End(3).Row
For x = 13 To 20
If ft.Cells(x, 1) <> 0 Then
a = a + 1
kut.Cells(a, 1) = f_no
kut.Cells(a, 2) = m_kod
kut.Cells(a, 3) = f_tar
kut.Cells(a, 4) = ft.Cells(x, 1)
kut.Cells(a, 5) = ft.Cells(x, 4)
kut.Cells(a, 6) = ft.Cells(x, 3)
End If
ft.Cells(a, 1) = ""
ft.Cells(a, 4) = ""
Next
ft.[f4] = ft.[f4] + 1
ft.[b3] = ""

End Sub[/vb:1:47f5d0416f]

 

[heykali]

Saygıdeğer dost Veysel Emre
Öncelikle yardımlarınızdan dolayı sizlere minnettar olduğumu söylemek isterim.
40 dakika içinde bana cevap verilmesi ise duyduğum saygıyı iki kat arttırmıştır.
Sizlere hemen yazmak istediğim bu mesajı ancak yazabildim zira siteye girmede sorun yaşadım.
Sizlerden son bir ricam şudur ki kütük ekranına kaydedilen verileri daha sonra ekran sayfasında müşteri kodu ve fatura nosu yazınca kesilen faturanın ekrana aynen gelmesidir.
Umarım bu isteğim nezaketsizlik olarak algılamazsınız.
Sonsuz teşekkürler.