Witam
Mam problem z poniższym makrem w Excelu. Mianowicie potrzebuję aby Excel wyświetlił wynik związany z dniami, w których wybrana osoba nie wydała pieniędzy. Tak wygląda napisane przeze mnie makro.
Function kiedy_robil_zakupy(kto_dany As String) As String
Dim k As Date, data As Range, d, n As String, kto As Range, kk, z As Integer
Set data = [f4:f22]
Set kto = [c4:c22]
kk = 0
n = ""
For k = "02-1" To "02-27"
kk = kk + 1
d = Right(data(kk), 2)
If kto(kk) <> kto_dany And InStr(n, d) = 0 Then n = n & ", " & d
Next k
z = Len(n)
kiedy_robil_zakupy = Right(n, z - 2)
End Function
A tak wygląda tabela, na której działam
Chcę aby kod wyrzucił mi dni, w których dla argumentu Adam pokaże mi dni, w których Adam nie wydawał pieniędzy. Natomiast wynik jaki wyrzuca kod to:
03, 06, 09, 15, 18, 21, 22, 24, 26, 27
Jak widać powyżej nie jest to do końca poprawne gdyż pojawia się liczba 24. A jak widać w tabeli 24-02 Adam wydał pieniądze. Nie mogę znaleźć błędu w kodzie powyżej i będę bardzo wdzięczny za wszelką pomoc, gdyż zmagam się z tym zadaniem od kilku godzin.
Pozdrawiam