پرسش پاک کردن اطلاعات قبلی با ماکرو

[epishkhan1]

با سلام
من یک ماکرو نوشتم که با زدن یک دکمه اطلاعات یک شیت را در شیت دیگر کپی میکند وقتی کلید را کلیک میکنیم درست عمل میکند ولی وقتی اطلاعات جدید را وارد میکنیم و دکمه را میزنیم یکسری از اطلاعات سلول قبلی را میاد پاک میکند چطور این مشکل را حل کنم؟
عکس پیوست شد

- - - Updated - - -

Sub savedata()
'
' savedata Macro
'


'
Sheets("Sheet3").Select
Rows("2:2").Insert Shift:=xlDown

Sheets("bargh").Select
Range("G3").Select
Selection.Copy
Sheets("Sheet3").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Sheets("information").Select
Range("B15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("C20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("G20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("G21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("C22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("G22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("C23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("G23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("C24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("G24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("C25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("G25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("L15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("O2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("L18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("L21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("Q2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("L22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("R2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
ActiveWindow.SmallScroll Down:=90
Range("C122").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("S2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("E122").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("T2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
Range("H122").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("U2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("information").Select
ActiveWindow.SmallScroll Down:=-93
Range("I23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("V2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

[مرتضی حسینی]

با سلام این ماکرو که دیدم خیلی طولانی است لازم نیست برای هر انتخاب یک یک دستور کپی بنویسید همه را یک باره انجام بدین ثانیا انتخاب باید هدف مند و از روی قاعده باشه مثلا انتخاب اخرین ردیف یا انتخاب ریدف یک شهر . و کپی کردن نیز در اخرین ردف باشه تا اطلاعاعات قبلی از بین نرود فک کنم جا داره اموزشهای بیشتری ببینید به سایت افشین بوشهری زاده سری بزنید و از امووزشهای تصویری استفاده نمایید
حسینی 11ر5ر1402