| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Macro searches for keyword. If found , puts 0 in cell from nex
Many thanks . Both macro works
|
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| macro which delets cell if the cell above has the same keyword | Excel Programming | |||
| Macro which searches for a character . When found delets what's be | Excel Programming | |||
| Populate a cell based on a keyword it found in another | Excel Programming | |||
| Populate a cell based on a keyword it found in another | Excel Programming | |||
| Need help -- a Macro that searches for string in a cell range? | Excel Programming | |||
Linear Mode
