if cell formula is ".... than run a macro if not do not

[frotaru]

Hi,

I need a macro that runs only if a certain cell has a specified formula

Something like

in any worksheet
After checking if
Range("A2").Formula = "=IF(ISERROR(VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE)),"""",VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE))"

if it is true is should do nothing if false run a macro

Can anyone hlp me ?

Than you

 

[jindon]

Hi

to ThisWorkbook module

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Sh.Range("A2").Value = False Then
   'YourCode Here
End If
End Sub

 

[frotaru]

:d

Thank for u're help

But ... I’m using a macro that should check if cell “A2” is already filled with the formula shown. If is not call another macro

Something like

if Range("A2").Formula = "=IF(ISERROR(VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE)),"""",VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE))"

than do nothing

else run sub test01



Sub test01

Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE)),"""",VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE))"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:AX2"), Type:=xlFillDefault
Cells.Select
Range("A2").Activate
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Range("A1").Select


Could u help me with this ??

Plizzz

 

[jindon]

Re: :d

Then something like

Sub sample()
Dim myFormla As String, ws As Worksheet
myFormula = "=IF(ISERROR(VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE)),"""",VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE))"

For Each ws In Sheets
   If ws.Range("a2").FormulaR1C1 = myFormula Then
      ws.Select
      tet01
   End If
Next
End Sub

 

[frotaru]

Hi

Hi
Thank u verry much
U're ideea guided me and i solve it

thank u again