الترحيل من التاكست بوكس الى نطاق محدد

[زوهير]

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

 

كود يقوم بترحيل من التكست بوكس الى نطاق محدد 

والمرفق يوضح الطلب 

ولكم جزيل الشكر مسبقا وجزاكم الله خيرا 

test.rar

[ياسر خليل أبو البراء]

أخي الفاضل زوهير

إليك الملف المرفق عله يفي بالغرض

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub btnOK_Click()
    Dim WS As Worksheet
    Dim newRow As Long
    Set WS = Worksheets("Feuil1")
    
    With WS
        newRow = .Cells(Rows.Count, 1).End(3).Row + 1
        .Cells(newRow, 1).Value = Cells(newRow, 1).Row - 8
        .Cells(newRow, 2).Value = Me.TextBox1.Value
        .Cells(newRow, 3).Value = Me.TextBox2.Value
        .Cells(newRow, 4).Value = Me.TextBox3.Value
        .Cells(newRow, 5).Value = Me.TextBox4.Value
    End With
    Clear_Form
End Sub

Sub Clear_Form()
    Dim ctrl As Control
    Dim I As Long
    For Each ctrl In Me.Controls
        Select Case TypeName(ctrl)
            Case "TextBox"
                ctrl.Text = ""
        End Select
    Next ctrl
End Sub

تقبل تحياتي

UserForm TextBox Input YasserKhalil.rar

[زوهير]

جزاك الله خيرا وهو المطلوب 

[ياسر خليل أبو البراء]

الأخ الفاضل زوهير

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

التزاماً بالتوجيهات

تقبل تحياتي