Just look in the vba help index for REPLACE or record a macro while doing
editreplace

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"aintlifegrand79" wrote in
message ...
I have a database that lists rep companys by the zip codesthey represent.
Therefore, all companies and their information are entered multiple times
within the worksheet, which makes changing any piece of information very
difficult. I have created a userform in which you enter a company name
into
a textbox (Company) and hit the find key to bring up the company info i a
buch of other textboxes on the userform. I then have a save button which
takes any changes made to the company info and inserts them into the
database. The problem I have is my code only finds the first incident of
where the company is entered and changes that. I need the code for the
save
button to find all enteries for the company entered in (Company) and to
replace all information in each row where that company is enter. Here is
my
code for the save button , like I said it works for one entery but I need
to
find and replace all enteries. Thanks for any help I can get.


Private Sub Save_Click()

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, -2).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, -2).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, -2).Value,
RepNumber.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, -1).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, -1).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, -1).Value,
SAPNumber.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 0).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 0).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 0).Value,
RepName.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 1).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 1).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 1).Value,
RepAddress.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 2).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 2).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 2).Value,
RepCity.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 3).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 3).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 3).Value,
RepState.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 4).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 4).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 4).Value,
RepZipCode.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 5).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 5).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 5).Value,
RepBusPhone.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 6).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 6).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 6).Value, RepFax.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 7).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 7).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 7).Value,
RepEmail.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 8).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 8).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 8).Value,
Regions.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 17).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 17).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 17).Value,
Inclusions.Value)

Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 18).Value =
ReplaceAll(Sheet1.Columns(4).FindAll(Company.Value ).Offset(0, 18).Value,
Sheet1.Columns(4).FindAll(Company.Value).Offset(0, 18).Value,
Exclusions.Value)

End Sub