Obecnie przedstawię poczynione przeze mnie próby.
Na marginesie - wydaje mi się , że marek033 oraz adams_nt są na urlopie (i to całkiem słusznie)
W przedstawionej tabeli w komórkach znajdują się formuły (=[Ewidencja.xlsm]Styczeń!$T$70) , w sytuacji gdy w kolejnym miesiącu nie zapłacono jeszcze za rachunek ,w Ewidencji mamy "0.00" - zostaje to przeniesione do omawianej tabeli w tej postaci.
zmieniłam formułą w komórkach na następującą:
= jeżeli([Ewidencja.xlsm]Styczeń!$Y$70>0;=[Ewidencja.xlsm]Styczeń!$Y$70;"") - co prawda komórki w tabeli mam puste (w których miesiącach nie wpłacono) - ale (uwaga), makro ich nie traktuje jako puste.
Jedynie te komórki w których "wyczyszczę zawartość" widzi jako puste. Z kolei zastosowałem inne makro - na "Przeszukiwanie komórek o zadanej wartości"
Const Kolumna As String = "B"
Dim Wartosc As Variant
Dim i As Long
Wartosc = InputBox
i = i + 1
If Cells(i, Kolumna) = Wartosc Then
MsgBox "Podana wartość jest w komórce " & Kolumna & i
Exit Sub
End If
Loop While Cells(i, Kolumna).Value <> "" And i <= 17
MsgBox "Wszystkie miesiące opłacone 
"
End Sub
Pewnie by działało z przyciskiem ALE mnie musi pokazywać tą komórkę ( numer pierwszego miesiąca w którym nie dokonano jeszcze wpłaty) na bieżąco.
Jeżeli by się to makro przerobić bez przycisku - lub napisać inne - to bardzo proszę o pomoc.
Pozdrawiam.
