X
ďťż

Mefisto...diabeł czy anioł?

Mam takie makro


If dd.ListIndex > -1 Then
    With Sheets("Dane")
        ee.Value = .Range("B" & _
            Application.WorksheetFunction. _
            Match(dd.Value, Range("Buhaj"), 0)).Value
               
        poz = Application.Match(ee.Value, .Range("C1:IV1"), 0)
       
    If IsNumeric(poz) Then
           poz = poz + 2
           wiersz = .Cells(.Rows.Count, poz).End(xlUp).Row
            Select Case wiersz
              Case 2
                ff.AddItem .Cells(2, poz)
              Case Is > 2
                ff.List = _
                .Range(.Cells(2, poz), .Cells(wiersz, poz)).Value
            End Select
        End If
    End With
End If

Wszystko działa dobrze, do momentu gdy w zakresie "C1:IV" nie pojawi się wartość liczbowa np. "4566" wtedy makro nie zwraca mi wartości przypisanych pod tą nazwę. W momencie gdy przed liczby dodam jakąś literę np "P4566" wtedy makro działa.

Co się dzieje? Czy ktoś może mi pomóc rozwiązać ten problem?

Przykładowy plik z makrem znajduje się już na forum np. w temacie "Gotowy rejestr".

[ Dodano: 2008-12-21, 22:59 ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.