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

[mostafa_s]

سلام به دوستان عزيز اكسلي سايت خوبي واقعا
چطور ميشه يه صفحه بر فرض جدول را در يه شيت به صورت متوالي تكرار كرد. ممنون ميشم كمك كنيد . فايلشم ضمينه ميكنمفرم 2.xlsx

[generalsamad]

با سلام
این خواستتون فکر کنم با VBA بدست بیاد که نخواید به طور تکراری یه کار رو انجام بدید
با vba میشه محدوده مورد نظر رو کپی و بعد طبق خواستتون به تعدادی که میخواید در هر صفحه paste کنید
میشه یه سلول هم بذارید که کد vba بر اساس عددی که تو اون سلول وارد میشه به همون تعداد عملیات paste رو انجام بده.
فکر کنم قبلا نمونه ای مطرح شده

[mostafa_s]

با سلام
این خواستتون فکر کنم با VBA بدست بیاد که نخواید به طور تکراری یه کار رو انجام بدید
با vba میشه محدوده مورد نظر رو کپی و بعد طبق خواستتون به تعدادی که میخواید در هر صفحه paste کنید
میشه یه سلول هم بذارید که کد vba بر اساس عددی که تو اون سلول وارد میشه به همون تعداد عملیات paste رو انجام بده.
فکر کنم قبلا نمونه ای مطرح شده

ممنون از جوابتون اما من متوجه نشدم بايد چكار كنم ميشه بگيد بايد دقيقا چكار كنم ممنون

[mohamadali110]

محدوده اي كه ميخواين تكرار بشه رو انتخاب كنيد به صورت سطري سپس روز خطوط حاشيه اي قرار بگيريد و ctrl را پايين نگه داريد و در زير مكان قبل درگ كنيد با اين كار عين صفحه قبل در زير ان تكرار ميگردد (حتي عرض ستون ها و تنظيمات آن)

[misammisam]

سلام
تو اين پست جواب داده شده
[حل شده] پیست در حلقه For

[mostafa_s]

سلام
تو اين پست جواب داده شده
[حل شده] پیست در حلقه For

سلام دوست عزيز ميشه بگيد به چه صورت ميشه اين اين كار رو كرد

[misammisam]

سلام دوست عزيز ميشه بگيد به چه صورت ميشه اين اين كار رو كرد

تو همین پست فرمول و هم فایل خدمتتون دادم ، دقیقا کدوم قسمتشو مشکل دارید !؟

[mostafa_s]

تو همین پست فرمول و هم فایل خدمتتون دادم ، دقیقا کدوم قسمتشو مشکل دارید !؟

سلام خوب من بايد اين فرمول رو چطور استفاده كنم به چه صورت ممنون

[iranweld]

سلام
این هم قسمتی از برنامه مورد نظر شما که کامل شده بقیه سطرها مطابق فرمولهای ارائه شده کامل کنید

[misammisam]

سلام خوب من بايد اين فرمول رو چطور استفاده كنم به چه صورت ممنون

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

Rows("1:7").Copy 

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

[mostafa_s]

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

Rows("1:7").Copy 

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

[ATTACH=CONFIG]6490[/ATTACH]

ممنون از جوابتون فايل رو پيوست كردم ميخوام فرم گزارش رو بر فرض 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]

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

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