yara ahmed قام بنشر يناير 29, 2021 مشاركة قام بنشر يناير 29, 2021 السلام عليكم احتاج مساعدة فى فورم ادخال بيانات لشيت اكسيل لتسهيل عملية الادخال الفورم بالشيت مشكورين يا اساتذة فورم ترحيل للشيت.xlsm رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 29, 2021 مشاركة قام بنشر يناير 29, 2021 السلام عليكم ورحمة الله ضعى الكودين الآتيين فى حدث الفورم مع مراعاة ان اعيدى ترتيب التكست بوكس الاولى من 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 1 رابط هذا التعليق شارك More sharing options...
yara ahmed قام بنشر يناير 29, 2021 الكاتب مشاركة قام بنشر يناير 29, 2021 تسلم استاذ ابراهيم كل شئ ممتاز بارك الله فيك استاذ ابراهيم مدهش والله ورائع وجميل رابط هذا التعليق شارك More sharing options...
yara ahmed قام بنشر يناير 29, 2021 الكاتب مشاركة قام بنشر يناير 29, 2021 استاذ ابراهيم الحداد بارك الله فيك ممكن مسح كافة التكست بعد الترحيل بارك الله فيك اخى رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر يناير 29, 2021 أفضل إجابة مشاركة قام بنشر يناير 29, 2021 السلام عليكم ورحمة الله اجعلى الكود هكذا 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 1 رابط هذا التعليق شارك More sharing options...
yara ahmed قام بنشر يناير 29, 2021 الكاتب مشاركة قام بنشر يناير 29, 2021 تعجز الكلمات عن شكرك الف الف شكر جميل جدااااااااااا ربنا يحفظك بارك الله فيك استاذ ابراهيم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها