تكرار يك صفحه در شيت

[mostafa_s]

خوب این کدهای vba هست ، با زدن Alt+F11 وارد قسمت vb شوید و فرمولهارو در قسمت مورد نظر paste کنید ( مثل فایل پیوست ) .
این قسمت رو باید برای مشخص کردن تعیین محدوده ای که میخواهید کپی شود باید مطابق فایلتون اصلاح کنید .

Rows("1:7").Copy 

اینجا از خط 1 تا 7 رو کپی میکنه .
شما بهتره فایل پیوست کنید و سوالتونو بپرسید ، آخه من چطوری باید اینو توضیح بدم ، باید کل vb رو اینطوری شرح بدم

فایل پیوست 6490

ممنون از جوابتون فايل رو پيوست كردم ميخوام فرم گزارش رو بر فرض 50 بار كپي كنه عين فايل پيوست خودتون چكار كنم

[misammisam]

ممنون از جوابتون فايل رو پيوست كردم ميخوام فرم گزارش رو بر فرض 50 بار كپي كنه عين فايل پيوست خودتون چكار كنم

من که فایلی نمیبینم

[misammisam]

شما سلولهای A , B رو در هم مرج کردید بخاطر همین مشکل ساز شده .
کد رو باید اینطوری وارد کنید

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

[mostafa_s]

شما سلولهای A , B رو در هم مرج کردید بخاطر همین مشکل ساز شده .
کد رو باید اینطوری وارد کنید

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

سلام اقا ميثم خوبيد ممنون ميشه بگيد چطور يوزر فرم ايجاد كرديد. به چه صورت من اين كار هارا انجام بدم كه ياد بگيرم . ممنون ميشم روش ايجاد اين فرم را برام بنويسيد

[misammisam]

سلام اقا ميثم خوبيد ممنون ميشه بگيد چطور يوزر فرم ايجاد كرديد. به چه صورت من اين كار هارا انجام بدم كه ياد بگيرم . ممنون ميشم روش ايجاد اين فرم را برام بنويسيد

سعی کردم همه مواردو تو این فیلم براتون بزارم ، هر جا شو متوجه نشدید بفرمایید توضیح بدم .

[mostafa_s]

سعی کردم همه مواردو تو این فیلم براتون بزارم ، هر جا شو متوجه نشدید بفرمایید توضیح بدم .

سلام ةقا ميثم ممنونتم از زحماتت فقط يه مورد اينكه خيلي حركتش سريع و يكمم نا مشخص تا حدودي

[mostafa_s]

سعی کردم همه مواردو تو این فیلم براتون بزارم ، هر جا شو متوجه نشدید بفرمایید توضیح بدم .

توي برنامه انجا كه گفتيد لطفا a , b را بكشيد به چه صورت اين كار رو بكنم ممنون

[misammisam]

سلام ةقا ميثم ممنونتم از زحماتت فقط يه مورد اينكه خيلي حركتش سريع و يكمم نا مشخص تا حدودي

سلام
بله درسته ، سرعتش دست من نیست ، برنامه بصورت خودکار فیلم میگیره و زمانشم خودش تنظیم میکنه ، بعضی وقتها سریع میشه .
ولی میتونید وسطش stop کنید که بهتر بتونید ببینید .

[misammisam]

توي برنامه انجا كه گفتيد لطفا a , b را بكشيد به چه صورت اين كار رو بكنم ممنون

ببخشید ، درست متوجه نشدم دقیقا منظورتون چیه .

[generalsamad]

با سلام
تشکر بابت آموزش مفیدتون
یه سوال داشتم
اگه نخوایم از UserForm استفاده کنیم و رفرنس تعداد کپی ما از یک سلول باشه کد رو باید چه جوری تغییر داد؟
من این کد رو گذاشتم که اشتباه است

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

تو Vba اگه بخوایم مقدار یه خونه رو چک کنیم باید چه کدی وارد کنیم؟