Macro run only if the data is available in another cell

[amandeep08]

I Have one macro. I want that if the data in Column P is non blank only then this macro run on respective cell in column Q. If the cell is blank in column P, then same row in column Q will be blank. Below is the macro

Sub OddRowAlert()
With Range("q2:q100")
.Formula = "=IF((MOD(ROW(q2),2)),""B"",""A"")"
.Formula = .Value
End With
End Sub

Pl help

 

[mohadin]

Hi
How about

Sub OddRowAlert()
With Range("q2:q100")
.Formula = "=IF(P2<>"""",IF((MOD(ROW(Q2),2)),""B"",""A""),"""")"
.Formula = .Value
End With
End Sub

 

[HaHoBe]

Hi amandeep08,


maybe

Sub OddRowAlert_FormulasColP()
On Error Resume Next
With Range("p2:p100").SpecialCells(xlCellTypeFormulas, 23)
  .Offset(0, 1).Formula = "=IF((MOD(ROW(q2),2)),""B"",""A"")"
  Range("q2:q100").Value = Range("q2:q100").Value
End With
End Sub

Sub OddRowAlert_ValuesColP()
On Error Resume Next
Range("p2:p100").SpecialCells(xlCellTypeConstants, 23).Offset(0, 1).Formula = "=IF((MOD(ROW(q2),2)),""B"",""A"")"
With Range("q2:q100")
  .Value = .Value
End With
End Sub

Holger

 

[amandeep08]

Hi
How about

Sub OddRowAlert()
With Range("q2:q100")
.Formula = "=IF(P2<>"""",IF((MOD(ROW(Q2),2)),""B"",""A""),"""")"
.Formula = .Value
End With
End Sub

Thanks. This is working as per the expectation

 

[mohadin]

You Are very welcome
And thank you for the feedback
Be happy and safe
Happy new year