عايز اعمل يوزرفورم للادخال

[عادل م]

من فضلكم عايز اعمل يوزرفورم للادخال

المستخدم  :  adel

سر            :  1234

مستخدم adel.rar

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

السلام عليكم

تنسخ هذا الكود في زر الحفظ مع مراعات أن مربع النص الأول يملأ تلقائيا 

Private Sub CommandButton1_Click()

Dim x As Byte, i As Byte, R As Integer, sh As Worksheet
Set sh = Sheets("sheet2")

    With sh
    R = .Cells(Rows.Count, "B").End(xlUp).Row + 1
    For x = 2 To 8
    .Cells(R, x).Value = Me.Controls("TextBox" & x) '.Value
    Next
    End With

    TextBox1.Value = Sheets("sheet2").Cells(Rows.Count, "B").End(xlUp).Row - 1
    For i = 2 To 8
    Me.Controls("TextBox" & i) = ""
    Next

End Sub

و في حدث الفورم UserForm_Initialize تكتب هذا الكود الذي يقوم بمعرفة آخر صف مكتوب و ترقيمه

Private Sub UserForm_Initialize()

TextBox1.Value = Sheets("sheet2").Cells(Rows.Count, "B").End(xlUp).Row - 1

End Sub

 

[عادل م]

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

وبجد انا بشكر حضرتك ابو حنين على تلبية طلبى بسرعة

[عادل م]

اخى الكريم هل من الممكن اضافة هذا الكود
If Range("f3") = "" Or Range("b3") = "" Then
MsgBox "من فضلك اكمل البيانات "

 

[أبو حنف]

'بعد إذن أخي أبو حنين ،
قم بكتابة هذا في بداية الكود

If Me.textbox1.Value = "" Then
MsgBox "ضع الرسالة التي تريد ", vbOKOnly, "خطأ"
textbox1.SetFocus
ElseIf Me.TextBox2.Value = "" Then
MsgBox "ضع الرسالة التي تريد ", vbOKOnly, "خطأ"
TextBox2.SetFocus
ElseIf Me.TextBox3.Value = "" Then
MsgBox "ضع الرسالة التي تريد ", vbOKOnly, "خطأ"
TextBox3.SetFocus
Else

 

[عادل م]

اشكرك اخى ابو حنف

ولكن ظهر هذا الخطا

[أبو حنف]

اكتب في نهاية الكود endif قبل end sub

[عادل م]

تمام اخى اشكرك على التعب

اقتباس