Hi again!
Im working on a code and i have come far but i want to perfect it so the code does the work from start to end.
So far what i do is unhide a sheet, copy it to a new woorkbook, then select all cells in the sheet (in new workbook) and eliminate formulas.
So far so good. It does the job.
here is the code
This is the whole job that i want done:
unhide sheet, copy it to a new workbook and ASK "where to save?"(this can come later or before, does not matter when)
Then, kill all formulas.
Next step is collum "AG:AG" to change from "," to "." .
Last step is in collum "A:A" to delete empty rows.
Last step here is because i have empty slots in example row A5, A10, A30, etc, IF "empty" delete entire row, if "X" stay.
Thank you!
Im working on a code and i have come far but i want to perfect it so the code does the work from start to end.
So far what i do is unhide a sheet, copy it to a new woorkbook, then select all cells in the sheet (in new workbook) and eliminate formulas.
So far so good. It does the job.
here is the code
VBA Code:
Sub Copy_to_CSV()
'
' Copy_to_CSV Makro
'
'
Sheets("Mainpage").Select
Sheets("mysheet").Visible = True
Sheets("mysheet").Select
Sheets("mysheet").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter
Rows("1:1").Select
Selection.AutoFilter
Range("B9").Select
Windows("Mywoorkbook.xlsm").Activate
Sheets("mysheet").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Mainpage").Select
End Sub
This is the whole job that i want done:
unhide sheet, copy it to a new workbook and ASK "where to save?"(this can come later or before, does not matter when)
Then, kill all formulas.
Next step is collum "AG:AG" to change from "," to "." .
Last step is in collum "A:A" to delete empty rows.
Last step here is because i have empty slots in example row A5, A10, A30, etc, IF "empty" delete entire row, if "X" stay.
Thank you!