Atasat aveti spre testare o propunere.
Premise: independent de numarul de randuri si coloane cu valori de test, pe coloana A aveti informatia in care scrie "pret"/"buc"
Am folosit urmatorul cod:
Cod: Selectaţi tot
Sub VerifValori()
'IPP - 12.02.2018
For Each c In Selection
If UCase(Cells(c.Row, 1).Value) <> "PRET" Then
If c.Value <> Int(c.Value) Then
MsgBox "Verificati celula " & c.Address & ", aveti valoare cu virgula", vbCritical, "Valoare cu virgula"
End If
End If
Next c
End Sub
IP