VBA_fanatic
New Member
- Joined
- Feb 5, 2022
- Messages
- 5
- Office Version
- 365
- Platform
- Windows
- MacOS
Hi all, I need your help in coding this situation
So, I created a Formulae driven excel workbook consisting of 3 sheets named (Input),(Format), and (transaction entry)
- I want to create a macro with export button that will help me to copy the data from Range A1 to D600 in sheet 3 (transaction entry)
-I want to paste that data from Sheet 3 into a new CSV excel file that is saved in my Downloads folder in my PC
Can you help me to code this?
One of my friend gave me below mentioned code, but It giving error at the bold text below
Application.ScreenUpdating - False
Dim FPath As String, Inventory As Workbook, Transaction Entry As Worksheet
FPath = " Downloads folder"
Workbooks .Open FPath & "Report.csv”
Set Transaction Entry
= ThisWorkbook. Sheets ("Transaction entry")
Set report = Workbooks ("Report.csv")
SUE.Range ("$A$1: $D$600").Copy
Report.Sheets (1) .Range ("Al"). PasteSpecial Paste: =xlPasteValues
stripe. Close SaveChanges:=True
So, I created a Formulae driven excel workbook consisting of 3 sheets named (Input),(Format), and (transaction entry)
- I want to create a macro with export button that will help me to copy the data from Range A1 to D600 in sheet 3 (transaction entry)
-I want to paste that data from Sheet 3 into a new CSV excel file that is saved in my Downloads folder in my PC
Can you help me to code this?
One of my friend gave me below mentioned code, but It giving error at the bold text below
Application.ScreenUpdating - False
Dim FPath As String, Inventory As Workbook, Transaction Entry As Worksheet
FPath = " Downloads folder"
Workbooks .Open FPath & "Report.csv”
Set Transaction Entry
= ThisWorkbook. Sheets ("Transaction entry")
Set report = Workbooks ("Report.csv")
SUE.Range ("$A$1: $D$600").Copy
Report.Sheets (1) .Range ("Al"). PasteSpecial Paste: =xlPasteValues
stripe. Close SaveChanges:=True