mra63 قام بنشر الثلاثاء at 21:15 مشاركة قام بنشر الثلاثاء at 21:15 لو سمحتوا اختصار هذا الكود الطويل لنسخ البيانات الي نموذج للطباعة في العمود C Sheet5.Range("C1").Value = UserForm1.TextBox2.Value Sheet5.Range("C2").Value = UserForm1.TextBox3.Value Sheet5.Range("C3").Value = UserForm1.TextBox4.Value Sheet5.Range("C4").Value = UserForm1.TextBox5.Value Sheet5.Range("C5").Value = UserForm1.TextBox6.Value Sheet5.Range("C6").Value = UserForm1.TextBox7.Value Sheet5.Range("C7").Value = UserForm1.TextBox8.Value Sheet5.Range("C8").Value = UserForm1.TextBox9.Value Sheet5.Range("C9").Value = UserForm1.TextBox10.Value Sheet5.Range("C10").Value = UserForm1.TextBox11.Value Sheet5.Range("C11").Value = UserForm1.TextBox12.Value Sheet5.Range("C12").Value = UserForm1.TextBox13.Value Sheet5.Range("C13").Value = UserForm1.TextBox14.Value Sheet5.Range("C14").Value = UserForm1.TextBox15.Value Sheet5.Range("C15").Value = UserForm1.TextBox16.Value Sheet5.Range("C16").Value = UserForm1.TextBox17.Value Sheet5.Range("C17").Value = UserForm1.TextBox18.Value Sheet5.Range("C18").Value = UserForm1.TextBox19.Value Sheet5.Range("C19").Value = UserForm1.TextBox20.Value Sheet5.Range("C20").Value = UserForm1.TextBox21.Value Sheet5.Range("C21").Value = UserForm1.TextBox22.Value Sheet5.Range("C22").Value = UserForm1.TextBox23.Value Sheet5.Range("C23").Value = UserForm1.TextBox24.Value Sheet5.Range("C24").Value = UserForm1.TextBox25.Value Sheet5.Range("C25").Value = UserForm1.TextBox26.Value Sheet5.Range("C26").Value = UserForm1.TextBox27.Value Sheet5.Range("C27").Value = UserForm1.TextBox28.Value Sheet5.Range("C28").Value = UserForm1.TextBox29.Value Sheet5.Range("C29").Value = UserForm1.TextBox30.Value رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر الثلاثاء at 23:49 أفضل إجابة مشاركة قام بنشر الثلاثاء at 23:49 وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Dim i As Integer Dim WS As Worksheet: Set WS = Sheet5 For i = 2 To 30 WS.Cells(i - 1, 3).Value = Me.Controls("TextBox" & i).Value Next i 2 رابط هذا التعليق شارك More sharing options...
mra63 قام بنشر بالامس في 00:34 الكاتب مشاركة قام بنشر بالامس في 00:34 شكراً لك الكود ناجح 100% زادك الله علماً ومعرفة . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان