طلب كود لأدخال البيانات

[mahmoudafefy]

السلام عليكم ورحمه الله وبركاته

 

 

انا عامل جدول من 3 خانات اتصالات وفودافون وموبينيل 

 

وعامل فورم 3 تكست بوكس وزرار واحد

 

عاوز لما اكتب فى التكست بوكس واحد وادوس على الزرار يشوف اول مكان فاضى فى خانه اتصالات ويكتب فيها ولما اكتب فى تكست بوكس  2 يشوف اول مكان فاضى فى خانه فودافون ولما اكتب فى تكست بوكس 3 ييشوف اول مكان فاضى فى خانه موبينيل ويكتب فيها وشكرا 

 

 

سنترال.rar

[mahmoudafefy]

ايه المساعده 

[حمادة عمر]

السلام عليكم 

الاخ الكريم / mahmoudafefy

بارك الله فيك

تفضل اخي الكريم ... قم بوضع الكود التالي في حدث زر الادخال في الفورم

Private Sub CommandButton1_Click()
Dim iRow1, iRow2, iRow3 As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
iRow1 = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
iRow2 = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
iRow3 = ws.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row

ws.Cells(iRow1, 1).Value = Me.TextBox1.Value
ws.Cells(iRow2, 2).Value = Me.TextBox2.Value
ws.Cells(iRow3, 3).Value = Me.TextBox3.Value

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""

Me.TextBox1.SetFocus
Hide
Show
End Sub

واليك الملف بالمرفقات

ارجو ان يفي ذلك بطلبك اخي الكريم

 

 

سنترال-sama.rar

[قنديل الصياد]

السلام عليكم 

الاخ الكريم / mahmoudafefy

بارك الله فيك

تفضل اخي الكريم ... قم بوضع الكود التالي في حدث زر الادخال في الفورم

Private Sub CommandButton1_Click()
Dim iRow1, iRow2, iRow3 As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
iRow1 = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
iRow2 = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
iRow3 = ws.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row

ws.Cells(iRow1, 1).Value = Me.TextBox1.Value
ws.Cells(iRow2, 2).Value = Me.TextBox2.Value
ws.Cells(iRow3, 3).Value = Me.TextBox3.Value

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""

Me.TextBox1.SetFocus
Hide
Show
End Sub

واليك الملف بالمرفقات

ارجو ان يفي ذلك بطلبك اخي الكريم

 

 

سنترال-sama.rar

رائع استاى واخى وحبيبى الاستاذ / حمادة عمر

ادام الله عليك علمه ونفعنا به

بعد اذن استاذى

رايت ان اضيف زر اغلاق للفورم حتى اضع بصمة بجوار استاذى ومعلمى

الاستاذ الحبيب الاستاذ / حمادة عمر

 

سنترال-sama.rar

[حمادة عمر]

السلام عليكيم

الاخ الكريم / قنديل الصياد

بارك الله فيك

اتشرف بوجود لمساتك الراائعة في اي مشاركة لي وكما تحب انت وبطريقتك الجميلة

جزاك الله خيرا

[mahmoudafefy]

اخى كود رائع لكن انا ضفت خانه ثانيه وجيت زودت كود تانى بيقولى خطأ مش عارف ليه 

خطأ.rar

تم تعديل أغسطس 24, 2013 بواسطه mahmoudafefy