Macro searches for keyword. If found , puts 0 in cell from next co
 

Example

A1 : available in 10 days ...
A2 : unavailable
A3 : available in 4 days
A4 : unavailable

B1 : 10.30
B2 : 5.30
B3 : 13.89
B4 : 5.48

Tha macro should search for "unavailable" . It finds the keyword in A2 and
A4 . So , it changes content from the B2 and B4 cells to 0

B1 : 10.30
B2 : 0
B3 : 13.89
B4 : 0

Macro searches for keyword. If found , puts 0 in cell from next co
 

Hi,

Right click your sheet tab, view code and paste the code in and run it

Sub stance()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If UCase(c.Value) = "UNAVAILABLE" Then
c.Offset(, 1) = 0
End If
Next
End Sub

Mike

"andrei" wrote:

Example

A1 : available in 10 days ...
A2 : unavailable
A3 : available in 4 days
A4 : unavailable

B1 : 10.30
B2 : 5.30
B3 : 13.89
B4 : 5.48

Tha macro should search for "unavailable" . It finds the keyword in A2 and
A4 . So , it changes content from the B2 and B4 cells to 0

B1 : 10.30
B2 : 0
B3 : 13.89
B4 : 0

Macro searches for keyword. If found , puts 0 in cell from next co
 

Sub ReFormat()
For Each c In Range("A1:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)
If InStr(1, c.Text, "UnAvailable", vbTextCompare) Then c.Offset(, 1) = 0
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"andrei" wrote:

Example

A1 : available in 10 days ...
A2 : unavailable
A3 : available in 4 days
A4 : unavailable

B1 : 10.30
B2 : 5.30
B3 : 13.89
B4 : 5.48

Tha macro should search for "unavailable" . It finds the keyword in A2 and
A4 . So , it changes content from the B2 and B4 cells to 0

B1 : 10.30
B2 : 0
B3 : 13.89
B4 : 0

Macro searches for keyword. If found , puts 0 in cell from nex
 

Many thanks . Both macro works