طلب كود ادخال بيانات من فضلكم

[ابوذوابة]

بسم الله الرحمن الرحيم

 

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

 

عندي هذا الكود ووضعتة في زر امر insert  لادخال البيانات من الفورم 2  الى الشيت 1 (((( كود ترحيل بيانات )))))))

المطلوب

عندي فورم3 اريد التعديل على هذا الكود -ليصبح عند فتح الفورم رقم3  يدخل البيانات في الشيت 3 (ايضا) مثل ماهو الحال في الفورم2 والشيت1

 

الكود هو

 

Private Sub CommandButton1_Click()

Cells(10000, "a").End(xlUp).Offset(1, 0).Value = Cells(10000, "a").End(xlUp).Offset(0, 0).Value + 1

Cells(10000, "b").End(xlUp).Offset(1, 0).Value = TextBox1.Value

Cells(10000, "c").End(xlUp).Offset(1, 0).Value = TextBox2.Value

Cells(10000, "d").End(xlUp).Offset(1, 0).Value = TextBox3.Value

Cells(10000, "e").End(xlUp).Offset(1, 0).Value = TextBox4.Value

Cells(10000, "f").End(xlUp).Offset(1, 0).Value = TextBox5.Value

Cells(10000, "g").End(xlUp).Offset(1, 0).Value = TextBox6.Value

Cells(10000, "h").End(xlUp).Offset(1, 0).Value = TextBox7.Value

Cells(10000, "i").End(xlUp).Offset(1, 0).Value = TextBox8.Value

Cells(10000, "j").End(xlUp).Offset(1, 0).Value = TextBox9.Value

Cells(10000, "k").End(xlUp).Offset(1, 0).Value = TextBox10.Value

End Sub

شكرا لكم ننتظركم بفارغ الصبر

 

‫Warehouses Muu 2013 - نسخة.rar

تم تعديل مارس 7, 2013 بواسطه abuthawabh

[أبو حنــــين]

تكتب في في الزر امر insert  الكود التالي

 

Private Sub CommandButton1_Click()

Dim Lr As Long, i As Integer
With Sheet3
Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To 10
.Cells(Lr, i) = Me.Controls("TextBox" & i)
.Cells(Lr, 1) = Lr - 2
Next
End With


End Sub

[أبو محمد أشرف]

تفضل أخي هل هذا هو المطلوب 

وكان هناك خطأ في الكود الخاص بي الفورم الأول وتم تصحيحه

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

Cells(10000, "k").End(xlUp).Offset(1, 0).Value = TextBox9.Value

Cells(10000, "j").End(xlUp).Offset(1, 0).Value = TextBox10.Value

والصواب 

Cells(10000, "j").End(xlUp).Offset(1, 0).Value = TextBox9.Value

Cells(10000, "k").End(xlUp).Offset(1, 0).Value = TextBox10.Value

أبو محمد أشرف.rar

[ابوذوابة]

تكتب في في الزر امر insert  الكود التالي

 

Private Sub CommandButton1_Click()

Dim Lr As Long, i As Integer

With Sheet3

Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1

For i = 1 To 10

.Cells(Lr, i) = Me.Controls("TextBox" & i)

.Cells(Lr, 1) = Lr - 2

Next

End With

End Sub

 

استاذي ودكتوري  ابوحنين الرائع 

جربت الكود ولك مع الاسف لم يزبط معي فشكرا لك على المحاولة .بارك الله فيك

 

استاذي ابومحمد  اشرف

رعاك الله يا طيب وبارك الله فيك وفي اهلك ومالك وولدك 

صراحة اولا اسف على الخطاء الي حصل بالكود فاعذرني لاتني تلميذك المبتديء

ثانيا اشكرك من كل قلبي عاى عمل الكود الاخر شكرالك

 

وعندي استفسار هل من الممكن  او سؤالي كيف اقوم بتعديل الرقم التسلسلي التلقائي في الكود بحيث يكون في الصف الذي اريد  ان امكن

وان لم يكن ...فكيف اقوم بحذفة 

شكرا لكم

ننتظركم

[أبو محمد أشرف]

تفضل أخي  

iRow = ws.Cells(Rows.Count, 1) _

.End(xlUp).Offset(1, 0).Row

يتم التعديل في السطر التالي

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

Me.TextBox1.SetFocus

تم تعديل مارس 8, 2013 بواسطه أبو محمد أشرف