Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Target Macro
Is there a macro that will scan every even cell in column F for contents and
when it finds contents it will do this (ActiveCell.FormulaR1C1 = "Target") in the even cell next to it in Column G? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Target Macro
Hi,
I don't really understand the question but this looks at every cell in the used range of column F for the text 'Something" and if it finds it put Target in column G Sub sonic() Dim LastRow As Long Dim MyRange As Range LastRow = Cells(Rows.Count, "F").End(xlUp).Row Set MyRange = Range("F1:F" & LastRow) For Each c In MyRange If c.Value = "something" Then c.Offset(, 1).Value = "Target" End If Next End Sub Mike "Workbook" wrote: Is there a macro that will scan every even cell in column F for contents and when it finds contents it will do this (ActiveCell.FormulaR1C1 = "Target") in the even cell next to it in Column G? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Target Macro
This is very good. Thank you for you're help!
"Mike H" wrote: Hi, I don't really understand the question but this looks at every cell in the used range of column F for the text 'Something" and if it finds it put Target in column G Sub sonic() Dim LastRow As Long Dim MyRange As Range LastRow = Cells(Rows.Count, "F").End(xlUp).Row Set MyRange = Range("F1:F" & LastRow) For Each c In MyRange If c.Value = "something" Then c.Offset(, 1).Value = "Target" End If Next End Sub Mike "Workbook" wrote: Is there a macro that will scan every even cell in column F for contents and when it finds contents it will do this (ActiveCell.FormulaR1C1 = "Target") in the even cell next to it in Column G? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Target Macro | Excel Programming | |||
Target cell reference moves when target is cut and pasted | Excel Discussion (Misc queries) | |||
Macro target to MsWord | Excel Worksheet Functions | |||
Ranges:Target in Worksheet_SelectionChange(ByVal Target As Range) | Excel Programming | |||
How find if target is object in Worksheet_Change (ByVal Target As.. ?) | Excel Programming |