aktarma için yardım

[hakpin]

aktarma kodunda talıldığım yere yardım lütfen

Değerli Hocalarım;
Ekteki dosyada açıkladığım aktarma kodunda takıldğım yer için yardımcı olursanız sevinirim.Yardımlarınız için şimdiden teşekkür ederim. İşleriniz kolay gelsin

 

[N.Ziya Hiçdurmaz]

yanıt

Sub AKTAR()
Set S1 = Sheets("GİRİŞ")
Set S2 = Sheets("STOK")
SAY = WorksheetFunction.CountA(S2.Range("M1:M65000"))
S2.Range("M" & SAY + 1) = S1.[AB4]
S2.Range("N" & SAY + 1) = S1.[AX4]
S2.Range("O" & SAY + 1) = S1.[BD4]
S2.Range("P" & SAY + 1) = S1.[BI4]
End Sub

 

[hakpin]

aktarma için yardım

V.Basic For Applications,
İlginiz için teşekkür ederim.Yalnız ben açılır kutuda "seçili olan ürünün satırına" giderek malın stoktan düşmesi için "adet" bilgisini o satıra yazmasını istemiştim.Diğer bilgileri artan satırlar halinde ilgili yerlere yazılması doğru.Yardımlarınız için teşekkür ederim.

 

[hakpin]

aktarma koduna yardım

Değerli Üstadlar,
Aktarma kodunda takıldığım yeri ekteki dosyamda tekrar açıkladım.Yardımlarınız için çok teşekkür ederim.Kolay gelsin.