Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding Column Letters
On opening a form, 6 txtboxes are populated with column letters IF a field
name is found in data with a variable number of columns and field names in varying order. This code seemed to work fine but not always Sub FindCols() On Error Resume Next txtFax.Text = Split(Rows(1).Find("Fax").Address, "$")(1) txtSalut.Text = Split(Rows(1).Find("Salutation").Address, "$")(1) txtFirstName.Text = Split(Rows(1).Find("FirstName").Address, "$")(1) txtLastName.Text = Split(Rows(1).Find("LastName").Address, "$")(1) txtJob.Text = Split(Rows(1).Find("Job").Address, "$")(1) txtCompany.Text = Split(Rows(1).Find("Company").Address, "$")(1) On Error GoTo 0 End Sub yields: txtFax = AB txtSalut = "" txtFirstName = "" txtLastName = M txtJob = A txtCompany = CA with this data A M AB CA Job LastName Fax Company but with this data A C M AB CA Job Christian Name LastName Fax Company yields: txtFax = AB txtSalut = "" txtFirstName = "" txtLastName = M txtJob = A txtCompany = C NOT CA *********************** Find appears to search for capitals and not whole words? How should my code be amended to make this work? Geoff |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding Column Letters
So sorryyyyyyyy to waste time.
The code does work correctly. In testing I had failed to remove the previous results from the txtboxes and the rest was sheer coincidence. dohhh, shame:( Geoff "Geoff" wrote: On opening a form, 6 txtboxes are populated with column letters IF a field name is found in data with a variable number of columns and field names in varying order. This code seemed to work fine but not always Sub FindCols() On Error Resume Next txtFax.Text = Split(Rows(1).Find("Fax").Address, "$")(1) txtSalut.Text = Split(Rows(1).Find("Salutation").Address, "$")(1) txtFirstName.Text = Split(Rows(1).Find("FirstName").Address, "$")(1) txtLastName.Text = Split(Rows(1).Find("LastName").Address, "$")(1) txtJob.Text = Split(Rows(1).Find("Job").Address, "$")(1) txtCompany.Text = Split(Rows(1).Find("Company").Address, "$")(1) On Error GoTo 0 End Sub yields: txtFax = AB txtSalut = "" txtFirstName = "" txtLastName = M txtJob = A txtCompany = CA with this data A M AB CA Job LastName Fax Company but with this data A C M AB CA Job Christian Name LastName Fax Company yields: txtFax = AB txtSalut = "" txtFirstName = "" txtLastName = M txtJob = A txtCompany = C NOT CA *********************** Find appears to search for capitals and not whole words? How should my code be amended to make this work? Geoff |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Finding 2 different letters in a range | Excel Worksheet Functions | |||
How do change a column of data in capitol letters to small letters | Excel Discussion (Misc queries) | |||
Finding most common occurence of values in cells containing letters and numbers | Excel Worksheet Functions | |||
finding out the combination of letters! | Excel Worksheet Functions | |||
Finding Numbers with Cells that also contain letters | Excel Discussion (Misc queries) |