mike31z
04-08-2012, 01:11 PM
I have this little code that I modified and can not get it to work.
Source File Name= Event1.xls with one Tab named Event1 (This was created by importing a txt file in csv format.
The destinagation file is E1Mgmt.xls exsisting tab "import" There are other tabs but I would like the data being copied on the existing "import" tab.
I get the code to work but it creates new worksheet named "Import (1) and so on" I need it to overwrite the exisiting import worksheet.
Sub copyEvt()
'
' copyEvt Macro
' Macro recorded 7/26/2011 by Mike
'
Windows("Event1.xls").Activate
Sheets("Event1").Select
Sheets("import").Copy Before:=Workbooks("E1Mgmt.xls").Sheets(1)
Cells.Select
Selection.Interior.ColorIndex = xlNone
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("B3").Select
End Sub
Thanks for looking
Mike in Wisconsin
Source File Name= Event1.xls with one Tab named Event1 (This was created by importing a txt file in csv format.
The destinagation file is E1Mgmt.xls exsisting tab "import" There are other tabs but I would like the data being copied on the existing "import" tab.
I get the code to work but it creates new worksheet named "Import (1) and so on" I need it to overwrite the exisiting import worksheet.
Sub copyEvt()
'
' copyEvt Macro
' Macro recorded 7/26/2011 by Mike
'
Windows("Event1.xls").Activate
Sheets("Event1").Select
Sheets("import").Copy Before:=Workbooks("E1Mgmt.xls").Sheets(1)
Cells.Select
Selection.Interior.ColorIndex = xlNone
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("B3").Select
End Sub
Thanks for looking
Mike in Wisconsin