فورم ترحيل بيانات لشيت

[yara ahmed]

السلام عليكم

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

الفورم بالشيت 

مشكورين يا اساتذة 

فورم ترحيل للشيت.xlsm

[ابراهيم الحداد]

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

ضعى الكودين الآتيين فى حدث الفورم

مع مراعاة ان اعيدى ترتيب التكست بوكس الاولى من 1 الى 18

حتى يعمل معك الكود بشكل صحيح

هذا و الله ولى التوفيق

Private Sub CommandButton1_Click()
Dim ws As Worksheet, LR As Long, i As Long
Set ws = Sheets("Sheet1")
LR = ws.Range("A" & Rows.Count).End(3).Row
Application.ScreenUpdating = False
For i = 1 To 22
ws.Cells(LR + 1, i).Value = Me.Controls("TextBox" & i).Value
Next
ws.Range("E2").Value = Me.ComboBox1.Value
ws.Range("E3").Value = Me.TextBox25.Value
ws.Range("I2").Value = Me.TextBox26.Value
ws.Range("I3").Value = Me.TextBox27.Value
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "نقدى ": Me.ComboBox1.AddItem "اجل"
Me.ComboBox1.AddItem "دين ق": Me.ComboBox1.AddItem "دين ط"
End Sub

 

[yara ahmed]

تسلم استاذ ابراهيم كل شئ ممتاز 

بارك الله فيك استاذ ابراهيم 

مدهش والله ورائع وجميل

[yara ahmed]

استاذ ابراهيم الحداد

بارك الله فيك ممكن مسح كافة التكست بعد الترحيل

بارك الله فيك اخى

[ابراهيم الحداد]

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

اجعلى الكود هكذا

Private Sub CommandButton1_Click()
Dim ws As Worksheet, LR As Long, i As Long
Set ws = Sheets("Sheet1")
LR = ws.Range("A" & Rows.Count).End(3).Row
Application.ScreenUpdating = False
For i = 1 To 22
ws.Cells(LR + 1, i).Value = Me.Controls("TextBox" & i).Value
Me.Controls("TextBox" & i) = vbnulstring
Next
ws.Range("E2").Value = Me.ComboBox1.Value
ws.Range("E3").Value = Me.TextBox25.Value
ws.Range("I2").Value = Me.TextBox26.Value
ws.Range("I3").Value = Me.TextBox27.Value
Me.ComboBox1 = ""
Me.TextBox25.Value = ""
Me.TextBox26.Value = ""
Me.TextBox27.Value = ""

Application.ScreenUpdating = True
End Sub

 

[yara ahmed]

تعجز الكلمات عن شكرك الف الف شكر جميل جدااااااااااا

ربنا يحفظك

بارك الله فيك استاذ ابراهيم