حاضر اخي ابوالبراء
)
Private Sub CommandButton1_Click()
Dim رقم_الايصال As Integer, الاسم As String, التلفون As Integer, التاريخ As Date, الاجمالي As Integer
Worksheets("الايصال").Select
رقم_الايصال = Range("H8")
الاسم = Range("G9")
التلفون = Range("G10")
التاريخ = Range("I10")
الاجمالي = Range("I18")
Worksheets("الاستعلام_عن_الفاتورة").Select
If Worksheets("الاستعلام_عن_الفاتورة").Range("G7").Offset(1, 0) <> "" Then
Worksheets("الاستعلام_عن_الفاتورة").Range("G7").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = تاريخ_الفاتورة
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = رقم_الفاتورة
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = اسم_العميل
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = رقم_التلفون
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = المبلغ_المدفوع
Worksheets("الايصال").Select
Worksheets("الايصال").Range("H8").Select
End Sub
(
كما شرحت مسباقا لحضراتكم اني اريد ان انقل بيانات عدد من السيل في شيت 2 مختلفا اماكنها الي جدول في شيت 3
ولكم مني جزيل الشكر
فواتير.rar