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

[misammisam]

با سلام
تشکر بابت آموزش مفیدتون
یه سوال داشتم
اگه نخوایم از 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 اگه بخوایم مقدار یه خونه رو چک کنیم باید چه کدی وارد کنیم؟

سلام
فرمولت درسته ، فقط تو این خط

For i = 1 To Range("I1").Value 

اشتباهی select نوشتی ، باید value بزاری

[generalsamad]

سلام
فرمولت درسته ، فقط تو این خط

For i = 1 To Range("I1").Value 

اشتباهی select نوشتی ، باید value بزاری

تشکر

If Range("I1").Select = "" Then 

اینجا هم باید از Value استفاده کنم؟

سوال دیگه داشتم اگه این قسمت

Rows("2:14").Copy 

توی شیت 3 باشه و عملیات paste رو بخوایم توی شیت 2 انجام بدیم کد باید چه تغییری کنه؟

[misammisam]

تشکر

If Range("I1").Select = "" Then 

اینجا هم باید از Value استفاده کنم؟

سوال دیگه داشتم اگه این قسمت

Rows("2:14").Copy 

توی شیت 3 باشه و عملیات paste رو بخوایم توی شیت 2 انجام بدیم کد باید چه تغییری کنه؟

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

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

فقط دقت کنید که تو شیت جدید حداقل باید یک سلول پر داشته باشید ، در غیر اینصورت باید یک if اضافه کنی که اگر تعداد خطوط صفر بود چیکار بکنه .

[mostafa_s]

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

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

[generalsamad]

فایلتون رو با چه پسوندی ذخیره میکنید؟

[mostafa_s]

فایلتون رو با چه پسوندی ذخیره میکنید؟

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

[generalsamad]

فایلهائی که فرم یا کد یا ماکرو دارند باید بصورت ماکرو ذخیره کنید که تو ورژن 2007 به بالا پسوند Xlsm میباشد

[misammisam]

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

اینی که فرمودید یه دکمه هست و از قسمت Developer/Insert/Button قایل دسترسی هست .
منظورتون از ریست شدن چیه ! شاید همونجور که دوستمون گفتن اصلا فایلتونو سیو نمیکنید .