الاستاذ /سليم
عاجز عن الشكر
انا اريد ترحيل عن طريق الفورم فى شيت 3 يوجد زر امر يفتح فورم
فى هذا الفوم يوجد بيانات فى راس الفورم و بيانات فى التفاصيل و كل ما اريدة ترحيل راس الفاتورة (رقم الفاتورة +تاريخ+العميل الخ) الى شيت saleH
و تفاصيل الفاتورة الى (رقم الصنف و اسم الصنف الخ ) الى saleT
انا استخدم الكود التالى و لكن لا يعمل
'زر تسجيل
Dim Ary
Dim LR As Long
Dim LR1 As Long
Dim Adr As String
Dim r, c As Integer
Dim r1, C1 As Integer
'=================
SAMA2 = MsgBox("سيتم تسجيل البيانات الموجودة بالفاتورة ؟هل انت متأكد من اجراء هذه العملية", vbYesNo)
If SAMA2 = vbYes Then
If Me.TxtInvNo = "" Or Me.TxtIndate = "" Or Me.TxtMonthCod = "" Or Me.ComDocNo = "" Or Me.ComDocType = "" Or Me.TxtcustNo = "" Or Me.Comcustn = "" Or Me.Comcustn = "" Or Me.txtstoNo = "" Or Me.ComStoN = "" Then 'Exit Sub
MsgBox "اكمل البيانات الغير مسجلة اعلي الفاتورة اولا", vbMsgBoxRight, "نقص في البيانات !!!"
Exit Sub
Else
Ary = Array(Me.TxtInvNo.Value, Me.TxtIndate.Value, Me.ComDocNo.Value, Me.ComDocType.Value, Me.txtstoNo.Value, Me.ComStoN.Value, Me.TxtcustNo.Value, Me.Comcustn.Value, Me.TxtGtotal.Value, Me.Txtsaletax.Value, Me.txtGtax.Value, Me.txtDam.Value, Me.TXTNETTOTAL.Value, Me.txtTafkit.Value, Me.TxtMonthCod.Value)
'===============================
With Sheet1
LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
Sheet1.Range("A" & LR).Cells(1, 1).Resize(1, 15).Value = Ary
'===============================
With Sheet2
LR1 = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
For r = 1 To 15
Adr = Cells(r, 1).Address(0, 0)
If Len(Trim(Me.Controls(Adr))) Then
For c = 1 To 8
Adr = Cells(r, c).Address(0, 0)
Sheet2.Range("A" & LR1).Cells(r, c).Value = Me.Controls(Adr).Value
Next
End If
Next
'================
'kh_New
'================
End If
MsgBox "!! تم تسجيل بيانات الفاتورة.. بنجاح "
Else
MsgBox "!! لم يتم تسجيل البيانات"
End If