[حل شده] تعریف حلقه تکرار

[younes672]

عرض سلام و احترام
دوستان یوزرفرمی تعریف کردم که باید 28 ردیف اطلاعات را در شیت ذخیره کند
آیا امکان داره که از حلقه تکرار برای ثبت اطلاعات یوزرفرم استفاده کنم؟

 Dim last_row
last_row = Sheets("dita").Range("a1048000").End(xlUp).Row + 1
If ComboBox81.Text <> "" Then
 Sheets("dita").Cells(last_row, TextBox231) = TextBox149.Text 
Sheets("dita").Cells(last_row, TextBox231 + 1) = ComboBox81.Text 
Sheets("dita").Cells(last_row, 3) = TextBox146.Text 
Sheets("dita").Cells(last_row, 4) = ComboBox21.Text 
 Sheets("dita").Cells(last_row, 7) = ComboBox6.Text 
 Sheets("dita").Cells(last_row, 8) = TextBox4.Text  
Sheets("dita").Cells(last_row, 9) = TextBox21.Text 
 Sheets("dita").Cells(last_row, 10) = TextBox41.Text   
Sheets("dita").Cells(last_row, 11) = TextBox61.Text  
  Sheets("dita").Cells(last_row, 12) = TextBox81.Text    
Sheets("dita").Cells(last_row, 13) = ComboBox107.Text   
 Sheets("dita").Cells(last_row, 14) = ComboBox67.Text
Sheets("dita").Cells(last_row, 15) = TextBox301.Text
Else
 End If 
If ComboBox81.Text <> "" And TextBox231.Value = 5 Then
Sheets("dita").Cells(last_row, TextBox231 - 4) = TextBox271.Text 
Sheets("dita").Cells(last_row, TextBox231 - 3) = ComboBox41.Text 
Else
 End If

 last_row = Sheets("dita").Range("a1048000").End(xlUp).Row + 1
If ComboBox82.Text <> "" Then
 Sheets("dita").Cells(last_row, TextBox232) = TextBox152.Text
 Sheets("dita").Cells(last_row, TextBox232 + 1) = ComboBox82.Text 
Sheets("dita").Cells(last_row, 3) = TextBox146.Text 
Sheets("dita").Cells(last_row, 4) = ComboBox22.Text  
Sheets("dita").Cells(last_row, 7) = ComboBox7.Text 
 Sheets("dita").Cells(last_row, 8) = TextBox4.Text  
Sheets("dita").Cells(last_row, 9) = TextBox22.Text 
 Sheets("dita").Cells(last_row, 10) = TextBox42.Text  
 Sheets("dita").Cells(last_row, 11) = TextBox62.Text 
   Sheets("dita").Cells(last_row, 12) = TextBox82.Text    
Sheets("dita").Cells(last_row, 13) = ComboBox108.Text  
  Sheets("dita").Cells(last_row, 14) = ComboBox67.Text
Sheets("dita").Cells(last_row, 15) = TextBox302.Text
Else 
End If 

[majid_mx4]

با سلام

دوست عزیز

متاسفانه سوال شما کمی نامفهوم است لطفا یک فایل اکسل با فرم خود و انتظارات خود از نتیجه کار را ارسال نمایید .

پایدار باشید میر

[Amir Ghasemiyan]

سلام دوست عزيز
با توجه به كدهايي كه شما فرستاديد نه امكانش نيست. چون تكست باكس ها و كمبوباكس هاي شما هيچ نظم و ترتيبي ندارند. ابتدا بايد اين مشكل رو حل كنيد و بعد ميتونيد از حلقه استفاده كنيد

درضمن همونطور كه جناب آقاي مير فرمودن بهتره فايل نمونه بذاريد

[younes672]

سلام
برای کدهای زیر بصورت منظم هستند و قابلیت حلقه شدن دارند، قسمت اول حلقه(ActiveSheet.Range("c5").Value) رو خودم نوشتم ، تو قسمت دوم(ComboBox21.Text) مشکل دارم.

  ActiveSheet.Range("c5").Value = ComboBox21.Text
ActiveSheet.Range("c6").Value = ComboBox22.Text
ActiveSheet.Range("c7").Value = ComboBox23.Text
ActiveSheet.Range("c8").Value = ComboBox24.Text
ActiveSheet.Range("c9").Value = ComboBox25.Text
ActiveSheet.Range("c10").Value = ComboBox26.Text
ActiveSheet.Range("c11").Value = ComboBox27.Text
ActiveSheet.Range("c12").Value = ComboBox28.Text
ActiveSheet.Range("c13").Value = ComboBox29.Text
ActiveSheet.Range("c14").Value = ComboBox30.Text
ActiveSheet.Range("c15").Value = ComboBox31.Text
ActiveSheet.Range("c16").Value = ComboBox32.Text
ActiveSheet.Range("c17").Value = ComboBox33.Text
ActiveSheet.Range("c18").Value = ComboBox34.Text
ActiveSheet.Range("c19").Value = ComboBox35.Text
ActiveSheet.Range("c20").Value = ComboBox36.Text
ActiveSheet.Range("c21").Value = ComboBox37.Text
ActiveSheet.Range("c22").Value = ComboBox38.Text
ActiveSheet.Range("c23").Value = ComboBox39.Text
ActiveSheet.Range("c24").Value = ComboBox40.Text 

 Dim c As Range
For Each c In ActiveSheet.Range("c5:c24")
c = ComboBox21.Text 
Next 

[M_ExceL]

سلام،

For i = 1 To 20
    ActiveSheet.Range("c" & i + 4).Value = UserForm1.Controls("ComboBox" & i + 20).Value
Next

[younes672]

تشکر، خیلی عالی بود

[Amir Ghasemiyan]

تشکر، خیلی عالی بود

دوست عزيز اگر پاسخ سوالتون رو دريافت كرديد لطفا تاپيك رو حل شده كنيد