cadandcode
Board Regular
- Joined
- Jan 21, 2023
- Messages
- 125
- Office Version
- 2019
- Platform
- Windows
- Mobile
Hi, when I try to save a macro and run it, code gives that error.
VBA Code:
Sub MakroKantar()
'
' MakroKantar Makro
'
'
Columns("D:K").Select
Selection.Delete Shift:=xlToLeft
Range("F:F,H:H").Select
Range("H1").Activate
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Cut
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Columns("H:K").Select
Selection.ColumnWidth = 10
Range("H2").Select
Windows("1GÜN FORMÜL.xlsx").Activate
Range("B2:E30").Select
Selection.Copy
Windows("25^J01^J2023.xlsx").Activate
ActiveSheet.Paste
Range("M30").Select
End Sub