| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change to Current Cell
I have recorded a macro using the record Macro feature in Excel I would like
to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
Michael,
Destination:=Activecell hth, Doug "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
I suggest posting all of your code for comments. -- Don Guillett SalesAid Software "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
I can do that.
Sub UpdateList() With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\s cratch\CD000.txt", _ Destination:=Range("B689")) .Name = "CD000_34" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileOtherDelimiter = "~" .TextFileColumnDataTypes = Array(1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub -- Regards Michael Koerner "Don Guillett" wrote in message ... I suggest posting all of your code for comments. -- Don Guillett SalesAid Software "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
Thanks Doug, will try it out
-- Regards Michael Koerner "Doug Glancy" wrote in message ... Michael, Destination:=Activecell hth, Doug "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
Could not get your suggestion to work.
-- Regards Michael Koerner "Michael Koerner" wrote in message ... Thanks Doug, will try it out -- Regards Michael Koerner "Doug Glancy" wrote in message ... Michael, Destination:=Activecell hth, Doug "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
You may want to give a little more information--and maybe the code you tried and
what you wanted it to do. Michael Koerner wrote: Could not get your suggestion to work. -- Regards Michael Koerner "Michael Koerner" wrote in message ... Thanks Doug, will try it out -- Regards Michael Koerner "Doug Glancy" wrote in message ... Michael, Destination:=Activecell hth, Doug "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner -- Dave Peterson |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
Sub UpdateList()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\s cratch\CD000.txt", _ Destination:=ActiveCell) .Name = "CD000_34" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileOtherDelimiter = "~" .TextFileColumnDataTypes = Array(1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub You need the last paren on that line. -- Regards, Tom Ogilvy "Michael Koerner" wrote in message ... Could not get your suggestion to work. -- Regards Michael Koerner "Michael Koerner" wrote in message ... Thanks Doug, will try it out -- Regards Michael Koerner "Doug Glancy" wrote in message ... Michael, Destination:=Activecell hth, Doug "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
Thanks Tom, that did the trick
-- Regards Michael Koerner "Tom Ogilvy" wrote in message ... Sub UpdateList() With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\s cratch\CD000.txt", _ Destination:=ActiveCell) .Name = "CD000_34" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileOtherDelimiter = "~" .TextFileColumnDataTypes = Array(1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub You need the last paren on that line. -- Regards, Tom Ogilvy "Michael Koerner" wrote in message ... Could not get your suggestion to work. -- Regards Michael Koerner "Michael Koerner" wrote in message ... Thanks Doug, will try it out -- Regards Michael Koerner "Doug Glancy" wrote in message ... Michael, Destination:=Activecell hth, Doug "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change to Current Cell
Before I run the macro, the cursor is in the correct empty cell
-- Regards Michael Koerner "Don Guillett" wrote in message ... Use Tom's suggestion. However, what happens the next time you update and the active cell is in another location? You may want to delete rows/columns??? -- Don Guillett SalesAid Software "Michael Koerner" wrote in message ... I can do that. Sub UpdateList() With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\s cratch\CD000.txt", _ Destination:=Range("B689")) .Name = "CD000_34" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileOtherDelimiter = "~" .TextFileColumnDataTypes = Array(1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub -- Regards Michael Koerner "Don Guillett" wrote in message ... I suggest posting all of your code for comments. -- Don Guillett SalesAid Software "Michael Koerner" wrote in message ... I have recorded a macro using the record Macro feature in Excel I would like to know how I can change the following code to reflect the current cell which the cursor is in. Destination:=Range("B689")) -- Regards Michael Koerner |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do a set the current date to change in cell everyday | Excel Discussion (Misc queries) | |||
| formula to change current cell value | Excel Worksheet Functions | |||
| Change Validation list in the adjecent cell on the Basis of Value in the Current Cell | Excel Programming | |||
| change current cell colour based on the value of adjacent cell on other worksheet | Excel Programming | |||
| How to set current day when a cell in a colum change | Excel Discussion (Misc queries) | |||
Linear Mode
