پرسش دستوری برای کپی کدها در اکسل

[alibazrafkan]

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

[iranweld]

پست ذیل را مطالعه نمایید

لینک

[alibazrafkan]

نه عزیز کمکی نکرد ،مرسی

پست ذیل را مطالعه نمایید


لینک

[alibazrafkan]

نمونه فایل
اساتید محترم توی sheet 4 یک باتن هست بنام (کد سر فصل ) و توی sheet 3 دو تا باتن هست ،وقتی روی باتن (کد سر فصل ) درون sheet 4 کلیک میکنید یک کپی از sheet 3 ایجاد میکنه بنام (2)sheet 3، می خواهم وقتی کپی ایجاد شد همزمان کد های درون باتن (انتخاب سرفصل معين) (2)sheet 3 تغییر کند. (لاین 3،6،7)

Private Sub CodeButton1_Click()
d = 7
While Sheet2.Cells(d, 2) <> ""
d = d + 1
Wend
Sheet2.Cells(d, 2) = ActiveCell.Offset(0, 0)
Sheet2.Cells(d, 3) = ActiveCell.Offset(0, 1)

جای sheet2 بنویسم sheet8

[abootorab]

نمونه فایل
اساتید محترم توی sheet 4 یک باتن هست بنام (کد سر فصل ) و توی sheet 3 دو تا باتن هست ،وقتی روی باتن (کد سر فصل ) درون sheet 4 کلیک میکنید یک کپی از sheet 3 ایجاد میکنه بنام (2)sheet 3، می خواهم وقتی کپی ایجاد شد همزمان کد های درون باتن (انتخاب سرفصل معين) (2)sheet 3 تغییر کند. (لاین 3،6،7)

Private Sub CodeButton1_Click()
d = 7
While Sheet2.Cells(d, 2) <> ""
d = d + 1
Wend
Sheet2.Cells(d, 2) = ActiveCell.Offset(0, 0)
Sheet2.Cells(d, 3) = ActiveCell.Offset(0, 1)

جای sheet2 بنویسم sheet8

با درود
دوست عزیز اگر Sheet3 و Sheet4 شما ثابت باشند و همیشه میخواهید با کپی شدن Sheet3 درون کدهایی که اینجا نوشتین، Sheet2 به Sheet8 تغییر پیدا کنه میتونید کدها رو به این شکل تغییر بدین.
البته چون فقط بخشی از شیتها و کدها رو درون فایل نمونه قرار دادین بنده بصورت کلی متوجه نوع عملکرد برنامتون نشدم. امیدوارم با این تغییر شما به خواستتون برسید.

Private Sub CodeButton1_Click()
Dim Sh As Worksheet
If ActiveSheet.CodeName = "Sheet3" Then
    Set Sh = Sheet2
Else
    Set Sh = Sheet8
End If
d = 7
While Sh.Cells(d, 2) <> ""
d = d + 1
Wend
Sh.Cells(d, 2) = ActiveCell.Offset(0, 0)
Sh.Cells(d, 3) = ActiveCell.Offset(0, 1)