Witam, mam taką funkcyjkę, która może zadziałać jeśli w podanym zakresie komórek nie będzie żadnych formuł (jak '=suma()', '=A3+A4' itd)
Spójrzcie:
Sub AZ()
Dim rng, cl As Range, szukana As String
Dim j As Byte
Set rng = Range("F3:DZ100")
szukana = "="
j = 0
For Each cl In rng
If Left(cl.Value, 1) Like szukana Then
j = 1
End If
Next cl
If j = 1 Then
MsgBox "W arkuszu występuje jakaś formuła"
Else
- jakaś tam funkcja -
End If
End Sub
No właśnie. Tu nie mogę sobie poradzić, myślałem, że szukane słowo '=' załatwi sprawę, ale to tylko w przypadku gdyby w arkuszu będzie tekst '=' a nie jakaś formuła.