How to detect the cell is contain "Euro" format?

[Useful]

Hi mr Excel!
I have a question about macro.
How to detect that the formula contains value as euro format. and also after detecting that euro format then multiple them 5, if not euro then multiple 7


P.S :this code finds where is $ format
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate

 

[saltkev]

Hi Give this a go.

For Each euroval In Range("b5:b12")                                      ' range to search
 
           If euroval.NumberFormat = "[$€-2] #,##0.00" Then
              euroval.Offset(0, 1).Value = (euroval.Value * 5)                      ' cell copied to
              euroval.Value = euroval.Offset(0, 1).Value
              euroval.Offset(0, 1).Delete
 
          Else
              euroval.Offset(0, 1).Value = (euroval.Value * 7)
              euroval.Value = euroval.Offset(0, 1).Value
              euroval.Offset(0, 1).Delete
 
         End If
 
Next euroval

regards


Kev

 

[Useful]

Saltkev Thanks a lot! this code is working