السلام عليكم اساتذتى وأحبائى الكرام أرجو التلطف على مساعدتى فى ضبط وتعديل كود الترحيل من الفورم الى شيت الإكسيل لكى يتم الترحيل بصورة طبيعية, وهذا هو الكود
Private Sub ButtonNew_Click()
Dim Ad As String
Dim c As Integer
Dim xx As Long
''''''''''''''''''''
For c = 1 To ContColmn
Ad = Cells(1, c).Address(0, 0)
If Len(Trim(Me.Controls(Ad).Value)) = 0 Then
MsgBox "العنوان: " & Me.Controls("xx" & c).Caption & " فارغ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "خلية فارغة"
Me.Controls(Ad).SetFocus
Exit Sub
End If
Next
''''''''''''''''''''''
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheet2
Lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
For c = 1 To ContColmn
Ad = Cells(1, c).Address(0, 0)
.Cells(Lr, c).Value = Me.Controls(Ad).Value
Next
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
A1.Value = Application.WorksheetFunction.Max(Sheets(2).Range("A2:A5000")) + 1
MsgBox "تم الترحيل بنجاح"
End Sub
نموذج بحث وترحيل وتعديل11.xlsm