J
Jordan
Hi there,
I am trying to develop a macro which performs a mass find/replace of
numbered street suffixes. For example:
"1st" = "1"
"2nd" = "2"
..
..
..
"3th" = "3'"
I am fairly familiar with VBA. However I have not really used it in the
excel environment before. So far I have created a user form that asks the
user to input the column in which the address field is located (A, B, C,
etc...) and then I have written some code to select that column. The next
step would be to loop through this column to find the street suffixes and
replace them with their substitutions. I am assuming I would now have to use
the Find() and Replace() functions to do this, but I am having a bit of a
hard time doing this. So here is what I have so far.
------------------------------------------------
Private Sub CB1_Click()
Dim AddressRange As Range
Dim sUserRange As String
sUserRange = TB1.Text
ActiveSheet.Columns(sUserRange).Select
End Sub
------------------------------------------------
Its not much, but I do not know how to use the find/replace functions.
Any help would be excellent.
Jordan
I am trying to develop a macro which performs a mass find/replace of
numbered street suffixes. For example:
"1st" = "1"
"2nd" = "2"
..
..
..
"3th" = "3'"
I am fairly familiar with VBA. However I have not really used it in the
excel environment before. So far I have created a user form that asks the
user to input the column in which the address field is located (A, B, C,
etc...) and then I have written some code to select that column. The next
step would be to loop through this column to find the street suffixes and
replace them with their substitutions. I am assuming I would now have to use
the Find() and Replace() functions to do this, but I am having a bit of a
hard time doing this. So here is what I have so far.
------------------------------------------------
Private Sub CB1_Click()
Dim AddressRange As Range
Dim sUserRange As String
sUserRange = TB1.Text
ActiveSheet.Columns(sUserRange).Select
End Sub
------------------------------------------------
Its not much, but I do not know how to use the find/replace functions.
Any help would be excellent.
Jordan