تعديل على كود ترحيل

[mohamedyousef]

السلام عليكم ورحمة الله 

السادة الافاضل الملف المرفق به فورم للفاتورة عند تسجيل الصنف يتم التسجيل تمام ولكن عند اضافة صنف اخر يتم الترحيل بعد 3 اسطر اريد عند التسجيل يرحل سطر سطر

وشكرا 

1محل.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته جرب اخي 

 

Private Sub CommandButton1_Click()
Dim lr As Integer
Dim ws As Worksheet
Set ws = Sheet4
With ws
lr = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("a" & lr + 1).Value = Me.TextBox2.Value
.Range("b" & lr + 1).Value = Me.TextBox3.Value
.Range("c" & lr + 1).Value = Me.TextBox4.Value
.Range("d" & lr + 1).Value = Me.TextBox5.Value
.Range("e" & lr + 1).Value = Me.TextBox6.Value
End With
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox2.SetFocus
End Sub

 

[mohamedyousef]

السلام عليكم اخي الفاضل  ..انا محتاج الكود يعمل على Sheet2 فورم الفاتورة  او FORM 5 وليس Sheet4

1محل.xlsm

[محمد هشام.]

تفضل اخي 

Private Sub CommandButton1_Click()
Dim lr As Integer
Dim ws As Worksheet
Set ws = Sheet2
With ws
lr = .Cells(Rows.Count, 3).End(xlUp).Row
.Range("h" & lr + 1).Value = Me.TextBox1.Value
.Range("f" & lr + 1).Value = Me.TextBox2.Value
.Range("c" & lr + 1).Value = Me.TextBox3.Value

End With

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox1.SetFocus
End Sub

1محل.xlsm

[mohamedyousef]

السلام عليكم ورحمة الله ..الف شكرا انا متشكر جدا على المساعدة ربنا يخليك