Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Help
Here's the code... Any ideas?
I have the following directories: C:\UDC\101 C:\UDC\102 C:\UDC\103 C:\UDC\104 C:\UDC\105 the sheets are 101-JAN04,102-JAN04 and so on to 105-JAN04 Sub Macro1() Application.DisplayAlerts = False If ActiveSheet.Name = "101-JAN04" Then Folder = "c:\UDC\101\" End If Workbooks.OpenText Filename:="c:\UDC\101\1.TXT", Origin:=xlWindows StartRow _ :=7, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False Comma:=False, _ Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1) Array(2, 1), Array(3 _ , 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1) Array(8, 1)) If Range("a:a").Find(what:="DEV") Is Nothing Then Range("a16").EntireRow.Insert shift:=xlDown End If Windows("1.txt").Activate Range("E62").Select Selection.Copy Windows("DAILY OPERATIONS_2004.xls").Activate Range("AL9").Select ActiveSheet.Paste Range("AM9").Select Windows("1.txt").Activate Range("I62").Select Application.CutCopyMode = False Selection.Copy Windows("DAILY OPERATIONS_2004.xls").Activate ActiveSheet.Paste Windows("1.txt").Activate Range("F13").Select Selection.Copy Windows("DAILY OPERATIONS_2004.xls").Activate Range("C9").Select ActiveSheet.Paste Range("E9").Select Windows("1.TXT").Activate Range("F14").Select Application.CutCopyMode = False Selection.Copy Windows("DAILY OPERATIONS_2004.xls").Activate ActiveSheet.Paste Range("J9").Select Windows("1.TXT").Activate Range("E17").Select Application.CutCopyMode = False Selection.Copy Windows("DAILY OPERATIONS_2004.xls").Activate ActiveSheet.Paste Range("K9").Select Windows("1.TXT").Activate Range("G18").Select Application.CutCopyMode = False Selection.Copy Windows("DAILY OPERATIONS_2004.xls").Activate ActiveSheet.Paste ActiveWindow.LargeScroll ToRight:=2 Range("AI9").Select Windows("1.TXT").Activate Range("F18").Select Application.CutCopyMode = False Selection.Copy Windows("DAILY OPERATIONS_2004.xls").Activate ActiveSheet.Paste Windows("1.TXT").Activate ActiveWindow.Close ActiveWindow.LargeScroll ToRight:=-2 ActiveWindow.ScrollColumn = 1 Application.DisplayAlerts = True End Su -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Code to conditional format all black after date specified in code? | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
Convert a Number Code to a Text Code | Excel Discussion (Misc queries) | |||
VBA code delete code but ask for password and unlock VBA protection | Excel Programming |