Verileri Alt Alta Kopyalama

[OzNvl]

Merhaba hocam.

Ben satışları takip edeceğimiz bir program yazıyorum(yazmaya çalışıyorum).
Sıkıntım Sipariş Formu (frm_siparis) formu kısmında firmayı ve diğer verileri (SATIŞFORMU) ekranına aktarabiliyorum.
Ancak Ürün seçip miktar fiyat girdiğim zaman Listbox'da gözükmesine rağmen SATIŞ FORMUna aktaramıyorum.
Satış Formunda ürünleri aktarmam gereken yerler;

B12 - B22 aralığına Ürün Adı
D12 - D22 aralığına Miktar
F12 - F22 aralığına Birim
H12 -H22 aralığına Toplam Tutar

buraya aktarma yapamıyorum.

Ekle tuşunu kullandığım zaman yapması gerekiyor. diğer bilgiler geliyor ancak bu bahsettiğim aralığı alt alta sıralayamıyorum.

 

[OzNvl]

???

 

[ÖmerFaruk]

Aşağıdaki prosedürünüzü verdiğimle değiştirin.
Farkına bakarak hatayı nerde yaptığınızı kolayca göreceğinize eminim.

Sub FormAktar()
'xxSatur isimli değişken ekledim'
'önceki değişkeni kullanmadım ve gerekli düzenlemeyi yaptım'   
xxSatır = 12 + WorksheetFunction.CountA(Sheets("SATIŞFORMU").Range("B12:B22"))

Sheets("SATIŞFORMU").Range("N1").Value = tb_tarih.Value
Sheets("SATIŞFORMU").Range("D2").Value = cb_firma.Value
Sheets("SATIŞFORMU").Range("D9").Value = tb_sevk.Value
Sheets("SATIŞFORMU").Range("B" & xxSatır).Value = cb_urun.Value
Sheets("SATIŞFORMU").Range("D" & xxSatır).Value = CDbl(tb_miktar.Text)
Sheets("SATIŞFORMU").Range("F" & xxSatır).Value = tb_birim.Value
Sheets("SATIŞFORMU").Range("H" & xxSatır).Value = CDbl(tb_fiyat.Text)
Sheets("SATIŞFORMU").Range("J" & xxSatır).Value = CDbl(tb_toptut.Text)
Sheets("SATIŞFORMU").Range("L12").Value = cb_odemesec.Value
Sheets("SATIŞFORMU").Range("N12").Value = cb_islemyap.Value

 

[OzNvl]

Aşağıdaki prosedürünüzü verdiğimle değiştirin.
Farkına bakarak hatayı nerde yaptığınızı kolayca göreceğinize eminim.

Sub FormAktar()
'xxSatur isimli değişken ekledim'
'önceki değişkeni kullanmadım ve gerekli düzenlemeyi yaptım'  
xxSatır = 12 + WorksheetFunction.CountA(Sheets("SATIŞFORMU").Range("B12:B22"))

Sheets("SATIŞFORMU").Range("N1").Value = tb_tarih.Value
Sheets("SATIŞFORMU").Range("D2").Value = cb_firma.Value
Sheets("SATIŞFORMU").Range("D9").Value = tb_sevk.Value
Sheets("SATIŞFORMU").Range("B" & xxSatır).Value = cb_urun.Value
Sheets("SATIŞFORMU").Range("D" & xxSatır).Value = CDbl(tb_miktar.Text)
Sheets("SATIŞFORMU").Range("F" & xxSatır).Value = tb_birim.Value
Sheets("SATIŞFORMU").Range("H" & xxSatır).Value = CDbl(tb_fiyat.Text)
Sheets("SATIŞFORMU").Range("J" & xxSatır).Value = CDbl(tb_toptut.Text)
Sheets("SATIŞFORMU").Range("L12").Value = cb_odemesec.Value
Sheets("SATIŞFORMU").Range("N12").Value = cb_islemyap.Value

Çok Teşekkür Ederim Hocam.

Aslında doğru gidip prosedürü kafamda tam canlandıramamışım Allah Razı Olsun