More on VBE syntax line question

  • Thread starter Thread starter Colette
  • Start date Start date
C

Colette

First, Thanks Rado for your help. Here is the entire
scenario.
I have a list box of 25 stocks (D20 new name NewStock) I
want to be able to select a stock from that list and have
Excel automatically perform the find and Replace command,
replacing the current stock data (A1:K18). So far it
looks like this. As you can probably see, I have made
some error/s. Please help

Public Sub Retrieve_Stock()

OldStock = Cells("H2").Value
NewStock = Cells("D20").Value
Application.StatusBar = "Retrieving data on NewStock..."
Range("A1:K18").Replace OldText, NewText
End Sub
 
Didn't see the original thread (better to stay in the original) but here is
the help on replace.
Do you want to replace inside a string or replace a string?
Replace Function


Description

Returns a string in which a specified substring has been replaced with
another substring a specified number of times.

Syntax

Replace(expression, find, replace[, start[, count[, compare]]])

The Replace function syntax has these named arguments:

Part Description
expression Required. String expression containing substring to
replace.
find Required. Substring being searched for.
replace Required. Replacement substring.
start Optional. Position within expression where substring search is
to begin. If omitted, 1 is assumed.
count Optional. Number of substring substitutions to perform. If
omitted, the default value is -1, which means make all possible
substitutions.
compare Optional. Numeric value indicating the kind of comparison to
use when evaluating substrings. See Settings section for values.



Settings

The compare argument can have the following values:

Constant Value Description
vbUseCompareOption -1 Performs a comparison using the setting of the
Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based
on information in your database.



Return Values

Replace returns the following values:

If Replace returns
expression is zero-length Zero-length string ("")
expression is Null An error.
find is zero-length Copy of expression.
replace is zero-length Copy of expression with all occurences of find
removed.
start > Len(expression) Zero-length string.
count is 0 Copy of expression.



Remarks

The return value of the Replace function is a string, with substitutions
made, that begins at the position specified by start and and concludes at
the end of the expression string. It is not a copy of the original string
from start to finish.
 
That is the replace function added in Excel 2000. I believe she wants the
Replace method which appears OK.

This worked for me:

Public Sub Retrieve_Stock()
Dim OldStock As String
Dim NewStock As String
OldStock = Range("H2").Value
NewStock = Range("D20").Value
Application.StatusBar = "Retrieving data on NewStock..."
Range("A1:K18").Replace OldStock, NewStock
Application.StatusBar = False
End Sub
 
Thanks for your insight. I want to replace a string. I
will not need start, count or compare.

Where I say "Old Text New Text" should that not be equal
to my new names of OldStock and NewStock? and how do I
write that?
-----Original Message-----
Didn't see the original thread (better to stay in the original) but here is
the help on replace.
Do you want to replace inside a string or replace a string?
Replace Function


Description

Returns a string in which a specified substring has been replaced with
another substring a specified number of times.

Syntax

Replace(expression, find, replace[, start[, count[, compare]]])

The Replace function syntax has these named arguments:

Part Description
expression Required. String expression containing substring to
replace.
find Required. Substring being searched for.
replace Required. Replacement substring.
start Optional. Position within expression where substring search is
to begin. If omitted, 1 is assumed.
count Optional. Number of substring substitutions to perform. If
omitted, the default value is -1, which means make all possible
substitutions.
compare Optional. Numeric value indicating the kind of comparison to
use when evaluating substrings. See Settings section for values.



Settings

The compare argument can have the following values:

Constant Value Description
vbUseCompareOption -1 Performs a comparison using the setting of the
Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based
on information in your database.



Return Values

Replace returns the following values:

If Replace returns
expression is zero-length Zero-length string ("")
expression is Null An error.
find is zero-length Copy of expression.
replace is zero-length Copy of expression with all occurences of find
removed.
start > Len(expression) Zero-length string.
count is 0 Copy of expression.



Remarks

The return value of the Replace function is a string, with substitutions
made, that begins at the position specified by start and and concludes at
the end of the expression string. It is not a copy of the original string
from start to finish.


--
Don Guillett
SalesAid Software
(e-mail address removed)
First, Thanks Rado for your help. Here is the entire
scenario.
I have a list box of 25 stocks (D20 new name NewStock) I
want to be able to select a stock from that list and have
Excel automatically perform the find and Replace command,
replacing the current stock data (A1:K18). So far it
looks like this. As you can probably see, I have made
some error/s. Please help

Public Sub Retrieve_Stock()

OldStock = Cells("H2").Value
NewStock = Cells("D20").Value
Application.StatusBar = "Retrieving data on NewStock..."
Range("A1:K18").Replace OldText, NewText
End Sub


.
 
Thanks so much. That did it for me. Perfect.
-----Original Message-----
That is the replace function added in Excel 2000. I believe she wants the
Replace method which appears OK.

This worked for me:

Public Sub Retrieve_Stock()
Dim OldStock As String
Dim NewStock As String
OldStock = Range("H2").Value
NewStock = Range("D20").Value
Application.StatusBar = "Retrieving data on NewStock..."
Range("A1:K18").Replace OldStock, NewStock
Application.StatusBar = False
End Sub

--
Regards,
Tom Ogilvy


original) but here
is




.
 
Back
Top