userformdan sayfalara aktarım

[anita]

herkese iyi çalışmalar.
ekte bilgileri bulunan dosya ile ilgili yardım lütfen

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton1_Click()

If TextBox1 <> "" And _
TextBox2 <> "" And _
TextBox3 <> "" And _
TextBox4 <> "" And _
TextBox5 <> "" And _
ComboBox1 <> "" And _
ComboBox2 <> "" Then

Sheets("fatura bilgileri").Range("c2") = TextBox1
Sheets("fatura bilgileri").Range("c3") = TextBox2
Sheets("fatura bilgileri").Range("c4") = TextBox3

son_sat = Sheets("alınan malar").Range("A65536").End(3).Offset(1, 0).Row

Sheets("alınan malar").Cells(son_sat, "a") = ComboBox1
Sheets("alınan malar").Cells(son_sat, "d") = ComboBox2
Sheets("alınan malar").Cells(son_sat, "h") = TextBox4
Sheets("alınan malar").Cells(son_sat, "l") = TextBox5

Else
MsgBox "tüm alanları doldurunuz"
End If

End Sub

. . .

 

[anita]

emeğinize sağlık

son_sat = Sheets("alınan malar").Range("A65536").End(3).Offset(1, 0).Row

satırının açıklaması nedir????

tekrar emeğiniz için teşekkür ederim.

 

[cems]

son_sat = Sheets("alınan malar").Range("A65536").End(3).Offset(1, 0).Row

Alınan mallar sayfasında A sütununda son dolu satırı bul altındaki boş satırdan başlayarak yaz.