Change value of cells

[Boris7265]

Hello to all of you,

I am woking on one small excel spreadsheet on my job and in the process I need to change in column A clients name( this is bank name) on "regardless" based on value of cells in column J(value in column J is "2" or "4" in order to bank to change to "Regardless" in column A ). I have written a macro to do that, but it doesn't work;

Dim c5 As Range
Dim Lastrow1 as Range
Dim SrchRng5
Dim Bcell As Range
Lasrow1=Cells(Rows.Count, "A").End(xlUp).Row

Do
Set Bcell = ActiveSheet.Range("A1", ActiveSheet.Range("A1:A" & Lastrow1).End(xlUp))
Set SrchRng5 = ActiveSheet.Range("J1", ActiveSheet.Range("J1:J" & Lastrow1).End(xlUp))
Set c5 = SrchRng5.Find("2", LookIn:=xlValues)
If Not c5 Is Nothing Then Bcell.Value = "Regardless"
Loop While Not c5 Is Nothing.

I don't know what I have done wrong in the macro.It is relly would easy my job if you point me where mistake is.
THANK YOU in advanc eforyour help.
Best Reagrds,

BorisGomel
.

 

[seboseszuk]

Hello Boris,

Please show a table with various values, and explain what do you want changed
or replaced. Your explanation is unclear.

HTH

Gabor

 

[Boris7265]

Thank you seboseszuk,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
The spreadsheet has like this arrangement:
<o> </o>
<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-comffice:smarttags" /><st1:Street w:st="on"><st1:address w:st="on">BankName Cost DebtorName Court</st1:address></st1:Street> Expenses IDExpenses
CITIBANK 50 RICARDH ROT <st1:City w:st="on"><st1lace w:st="on">MIAMI</st1lace></st1:City> Filling FEES 1
CAPONE 188 Roy Blank Broward Open Fees 2

The spreadsheet is being populated off the bank txt files that we receive over the internet. Then we upload this spreadsheet to our accounting system Oracle to print checks out for the clients. When we upload to ORACLE , I sort the spreadsheet by clients name ( banks) in alphabetical order , however, some expenses-Opening fees ( ID is 2) , garnishment fees ( ID is 4) the bank is regardless -the checks are needed to be printed in alphabetic order by the last names of the debtors. So, I have decided to change value in column A ( Bankname to “regardless” for these Expenses and highlight the part of the spreadsheet where column A value “ regardless” and sort it by the last name of the debtor. Last names are in column N
<o> </o>
Thank you for your help.
<o> </o>
Best Regards,
<o> </o>
BorisGomel