Cytat: sub zlicz()
Dim ile As Long
Dim Szukana As String
Dim Wks As Worksheet
Szukana = "MATERIAŁ DPAA_AA_BB 2006-10-27 %" 'szukana wartość
ile = -1
For Each Wks In ThisWorkbook.Worksheets
ile = ile + Application.CountIf(Wks.UsedRange, Szukana)
Next
MsgBox ile
End Sub
Czy ten procent to składnik szukanego ciagu? Czy też w ten sposób chcesz uzyskać liczbe wartości z podanym ciągiem i zakończonych dowolnymi znakami (tak jak w SQL)?
Jeżeli to drugie, to powinno być:
Szukana = "MATERIAŁ DPAA_AA_BB 2006-10-27 *"
Pozdrawiam |