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

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

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

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

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

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

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

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

Change to Current Cell
 

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

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

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