DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub formullu()
For Each hucre In [A1:C10]
If hucre <> "" Then
If WorksheetFunction.IsFormula(hucre) = True Then
hucre.Interior.Color = vbRed
Else
hucre.Interior.Color = vbGreen
End If
End If
Next
End Sub