مساعدة في الترحيل بناء على قيمة

[حراثي تواتي]

السلام عليكم اساتذتي الكرام

اريد كود يقوم بالترحيل بناء على قيمة موجودة في الكمبوبوكس يبحث عنها في العمود ثم بقوم بالتعديل في الصف الموافق لها

يعني انا الذي اختار الصف الذي اريد الترحيل اليه

الشرح و الملف مرفقان

ترحيل معين.rar

تم تعديل مارس 27, 2016 بواسطه حراثي تواتي

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

أخي الكريم حراثي

جرب الكود التالي في حدث الفورم .... أي كليك يمين على اسم الفورم ثم اختر View Code وضع الكود التالي

Private Sub CommandButton1_Click()
    Dim lRow As Long
    
    lRow = Application.WorksheetFunction.Match(Val(ComboBox1.Value), Columns(1), 0)
    
    Cells(lRow, 2).Value = TextBox1.Value
    Cells(lRow, 3).Value = TextBox2.Value
    Cells(lRow, 4).Value = TextBox3.Value
    Cells(lRow, 5).Value = TextBox4.Value
End Sub

Private Sub UserForm_Initialize()
    Dim cel As Range
    For Each cel In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        ComboBox1.AddItem cel.Value
    Next cel
End Sub

وإليك الملف المرفق فيه تطبيق الكود ..

أرجو أن يكون المطلوب

حمل الملف من هنا