کپی کردن مقادیر با ماکرو بدون درج فرمول

**Amir Ghasemiyan** · 2024/08/21, 10:27

این کد رو چک کن ببین حل میشه مشکلت

کد:

Sub Rectangle4_Click()
'
' Rectangle3_Click Macro
'

'
    Sheets("exit info").Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("b3:i3").Select
    Selection.Copy
    Sheets("exit info").Select
    Range("b3:i3").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("exit anbar").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C3").Select
    Selection.ClearContents
    Range("D3").Select
    Selection.ClearContents

End Sub

**Amir Ghasemiyan** · 2024/08/19, 15:57

سلام
الان چه کدی استفاده میکنی مجید جان؟

**مجید** · 2024/08/19, 16:58

نشد فایل رو بارگذاری کنم

این ماکرویی هست که ضبط شده

کد PHP:


Sub Rectangle3_Click()
'
' Rectangle3_Click Macro
'

'
    Rows("3:3").Select
    Selection.Copy
    Sheets("exit info").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    Sheets("exit anbar").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C3").Select
    Selection.ClearContents
    Range("D3").Select
    Selection.ClearContents
End Sub

**Amir Ghasemiyan** · 2024/08/19, 22:36

این کد رو امتحان کن لطفا

کد:

Sub Rectangle3_Click() ' ' Rectangle3_Click Macro ' ' Rows("3:3").Select Selection.Copy Sheets("exit info").Select Rows("4:4").Select Selection.Insert Shift:=xlDown Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Sheets("exit anbar").Select Range("B3").Select Application.CutCopyMode = False Selection.ClearContents Range("C3").Select Selection.ClearContents Range("D3").Select Selection.ClearContents End Sub

**مجید** · 2024/08/20, 07:37

سلام ممنونم
آره بدون فرمول اومد
اما تاریخ رو از روی اون تاریخ سیو نداره
چه کار مبشه کرد که تاریخ و شماره ردیف عدد خودشون ثبت بشن
ممنونم

**Amir Ghasemiyan** · 2024/08/20, 09:06

مگه تاریخ و شماره ردیف فرمول نداره؟ چرا فرمول نمیدی بهشون؟

**مجید** · 2024/08/21, 08:08

نوشته اصلی توسط Amir Ghasemiyan

مگه تاریخ و شماره ردیف فرمول نداره؟ چرا فرمول نمیدی بهشون؟

سلام و ارادت
ممنونم... مشکل تاریخ حل شد
فقط یه سوال

کد PHP:


Sub Rectangle4_Click()
'
' Rectangle3_Click Macro
'

'
    Range("b3:i3").Select
    Selection.Copy
    Sheets("exit info").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Range("b3:i3").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("exit anbar").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C3").Select
    Selection.ClearContents
    Range("D3").Select
    Selection.ClearContents
End Sub

من سعی کردم که خونه اول رو به عنوان شماره ردیف خودکار از انتخاب خارج کنم تا در شیت جدید شماره ردیف ها حفظ بشه
اما در پیست دچار مشکل میشه
آیا راه دیگه ای داره
یا اصلا خونه A3 تو کپی و پیست فرمولش حفظ بشه

**Amir Ghasemiyan** · 2024/08/21, 10:27

این کد رو چک کن ببین حل میشه مشکلت

کد:

Sub Rectangle4_Click()
'
' Rectangle3_Click Macro
'

'
    Sheets("exit info").Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("b3:i3").Select
    Selection.Copy
    Sheets("exit info").Select
    Range("b3:i3").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("exit anbar").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C3").Select
    Selection.ClearContents
    Range("D3").Select
    Selection.ClearContents

End Sub

**مجید** · 2024/08/21, 17:28

نوشته اصلی توسط Amir Ghasemiyan

این کد رو چک کن ببین حل میشه مشکلت

کد:

Sub Rectangle4_Click()
'
' Rectangle3_Click Macro
....
Sheets("exit info").Rows("3:3").Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
....
End Sub

سلام ممنونم امیر جان ... اما تو این خط اول ارور میده و ماکرو رو اجرا نمیکنه