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

[احمد سعيد]

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

اولا اود ان اشكر جميع الاعضاء على مساعدتي على انهاء مشروعي واتمنى مساعدتي في هذا الكود

بحيث ان الترحيل لا يرحل التكرار

ولكني ارغب في ترحيل التكرار لان بيكون لعميل اكثر من ملف

With Sheet4
     lastrow = Sheet4.Range("j10000").End(xlUp).Row

     For iRow = 3 To lastrow
                   
                  If .Cells(iRow, 10) = ComboBox7.Text Then
                      TextBox1.Text = .Cells(iRow, 3)
                      TextBox2.Text = .Cells(iRow, 4)
                      TextBox3.Text = .Cells(iRow, 5)
                      TextBox29.Text = .Cells(iRow, 10)
                      ComboBox1.Text = .Cells(iRow, 11)
                      TextBox6.Text = .Cells(iRow, 12)
                      ComboBox2.Text = .Cells(iRow, 13)
                      TextBox8.Text = .Cells(iRow, 14)
                      TextBox9.Text = .Cells(iRow, 15)
                      ComboBox3.Text = .Cells(iRow, 18)
                      ComboBox4.Text = .Cells(iRow, 20)
                      ComboBox5.Text = .Cells(iRow, 25)
                      ComboBox6.Text = .Cells(iRow, 26)
                      TextBox14.Text = .Cells(iRow, 27)
                      TextBox15.Text = .Cells(iRow, 29)
                      TextBox16.Text = .Cells(iRow, 28)
                      TextBox17.Text = .Cells(iRow, 30)
                      TextBox18.Text = .Cells(iRow, 31)
                      TextBox19.Text = .Cells(iRow, 36)
                      TextBox23.Text = .Cells(iRow, 35)
                      TextBox27.Text = .Cells(iRow, 33)
                      TextBox28.Text = .Cells(iRow, 34)
                      TextBox24.Text = .Cells(iRow, 45)
                      TextBox25.Text = .Cells(iRow, 43)
                      TextBox26.Text = .Cells(iRow, 47)
                      TextBox20.Text = .Cells(iRow, 37)
                      TextBox21.Text = .Cells(iRow, 49)
                      TextBox22.Text = .Cells(iRow, 50)
                      TextBox30.Text = .Cells(iRow, 9)
                      ComboBox8.Text = .Cells(iRow, 9)
                      TextBox31.Text = .Cells(iRow, 17)
                      TextBox32.Text = .Cells(iRow, 69)
                      TextBox33.Text = .Cells(iRow, 53)
                      TextBox34.Text = .Cells(iRow, 52)
                      TextBox36.Text = .Cells(iRow, 16)
                      ComboBox9.Text = .Cells(iRow, 55)
                      ComboBox10.Text = .Cells(iRow, 56)
                      ComboBox11.Text = .Cells(iRow, 57)
                      ComboBox12.Text = .Cells(iRow, 58)
                      ComboBox13.Text = .Cells(iRow, 59)
                      TextBox11.Text = .Cells(iRow, 70)
                      TextBox13.Text = .Cells(iRow, 71)
                      TextBox38.Text = .Cells(iRow, 72)
                      TextBox40.Text = .Cells(iRow, 73)
                      TextBox12.Text = .Cells(iRow, 75)
                      TextBox37.Text = .Cells(iRow, 74)
                      
                  End If
     Next
End With
End Sub

ثانيا كود التعديل لايقوم بالتعديل بالاسم

بحيث اني بستعلم بالاسم فبالتالي لا يقوم بتعديل الاسم

For i = 3 To 10000
If Cells(i, 10) = ComboBox7.Text Then
Cells(i, 10).Select
Exit For
End If
Next i

ActiveCell.Offset(0, 1) = ComboBox1.Text
ActiveCell.Offset(0, 2) = TextBox6.Text
ActiveCell.Offset(0, 3) = ComboBox2.Text
ActiveCell.Offset(0, 4) = TextBox8.Text
ActiveCell.Offset(0, 5) = TextBox9.Text
ActiveCell.Offset(0, 8) = ComboBox3.Text
ActiveCell.Offset(0, 10) = ComboBox4.Text
ActiveCell.Offset(0, 15) = ComboBox5.Text
ActiveCell.Offset(0, 16) = ComboBox6.Text
ActiveCell.Offset(0, 17) = TextBox14.Text
ActiveCell.Offset(0, 19) = TextBox15.Text
ActiveCell.Offset(0, 18) = TextBox16.Text
ActiveCell.Offset(0, 20) = TextBox17.Text
ActiveCell.Offset(0, 21) = TextBox18.Text
ActiveCell.Offset(0, 26) = TextBox19.Text
ActiveCell.Offset(0, 25) = TextBox23.Text
ActiveCell.Offset(0, 23) = TextBox27.Text
ActiveCell.Offset(0, 24) = TextBox28.Text
ActiveCell.Offset(0, 35) = TextBox24.Text
ActiveCell.Offset(0, 33) = TextBox25.Text
ActiveCell.Offset(0, 37) = TextBox26.Text
ActiveCell.Offset(0, 27) = TextBox20.Text
ActiveCell.Offset(0, 39) = TextBox21.Text
ActiveCell.Offset(0, 40) = TextBox22.Text
ActiveCell.Offset(0, -1) = TextBox30.Text
ActiveCell.Offset(0, 7) = TextBox31.Text
ActiveCell.Offset(0, -7) = TextBox1.Text
ActiveCell.Offset(0, -6) = TextBox2.Text
ActiveCell.Offset(0, -5) = TextBox3.Text
ActiveCell.Offset(0, 59) = TextBox32.Text
ActiveCell.Offset(0, 43) = TextBox33.Text
ActiveCell.Offset(0, 42) = TextBox34.Text
ActiveCell.Offset(0, 6) = TextBox36.Text
ActiveCell.Offset(0, 45) = ComboBox9.Text
ActiveCell.Offset(0, 46) = ComboBox10.Text
ActiveCell.Offset(0, 47) = ComboBox11.Text
ActiveCell.Offset(0, 48) = ComboBox12.Text
ActiveCell.Offset(0, 49) = ComboBox13.Text

End Sub

 

[احمد سعيد]

up

[عبد العزيز البسكري]

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

أخي الكريم " أحمد سعيد " .. من الأفضل وضع ملف تجريبي ليتم التعرّف عن قرب عن المشكلة من طرف الأساتذة الأفاضل من يمكنه منهم المساعدة

فائق إحتراماتي