پیست در حلقه For

**misammisam** · 2015/03/31, 14:11

سلام
مشخص نکردید که میخواهید فرمها پشت فرم اول کپی بشن ( یعنی اینسرت بشن ) یا نه میخواید پشت سر هم ( یعنی انتهای هم کپی بشن ) ، من فرض کردم میخواید انتهای هم کپی بشن .
فرمولها برای یک دکمه در یک یوزر فرم هستند

کد PHP:


Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Text = "" Then
MsgBox "áØÝÇ ÚÏÏí æÇÑÏ È˜äíÏ"
Else
For i = 1 To UserForm1.TextBox1.Text
lastrow = Sheet1.Range("A:A").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 2
Rows("1:7").Copy
Rows("" & lastrow).Select
ActiveSheet.Paste
Next i
End If
End Sub

اگر هم که بخواید فقط پشت فرم اول کپی بشه یعنی اینسرت بشه هم که خیلی کارتون راحت تر میشه .

فایل های پیوست شده

Book2.xlsm (24.3 کیلو بایت, مشاهدات 25)

**mostafa_s** · 2015/04/06, 16:29

نوشته اصلی توسط misammisam

سلام
مشخص نکردید که میخواهید فرمها پشت فرم اول کپی بشن ( یعنی اینسرت بشن ) یا نه میخواید پشت سر هم ( یعنی انتهای هم کپی بشن ) ، من فرض کردم میخواید انتهای هم کپی بشن .
فرمولها برای یک دکمه در یک یوزر فرم هستند

کد PHP:


Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Text = "" Then
MsgBox "áØÝÇ ÚÏÏí æÇÑÏ È˜äíÏ"
Else
For i = 1 To UserForm1.TextBox1.Text
lastrow = Sheet1.Range("A:A").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 2
Rows("1:7").Copy
Rows("" & lastrow).Select
ActiveSheet.Paste
Next i
End If
End Sub

اگر هم که بخواید فقط پشت فرم اول کپی بشه یعنی اینسرت بشه هم که خیلی کارتون راحت تر میشه .

برنامتون را وارد vbردم موقع run يوزر فرم خطا ميده چكار كنم