GoldenLine
Zaloguj się

konto usunięte

Temat: Run time error 13

Mam następujący problem: makro wyrzuca mi run time error 13 na poniższej linijce kodu:

Select Case Cell.Offset(0, 2 - PKPeriodNum) And Cell.Offset(0, 4 - PKPeriodNum) And Cell.Offset(0, 8 - PKPeriodNum)


Zmienną PKPeriodNum mam zadeklarowaną jako Byte, próbowałem też zmieniać na Integer, Long i Variant, ale błąd pojawia się cały czas. Co jest przyczyną?

Będę wdzięczny za podpowiedzi.Ten post został edytowany przez Autora dnia 23.02.14 o godzinie 14:25
Link do wypowiedziLink
Łukasz N.

Łukasz N. ETL Developer

Temat: Run time error 13

Witam,

Proszę sprawdzić jakiego typu wartość ma Pan w :
Cell.Offset(0, 2 - PKPeriodNum)
Cell.Offset(0, 4 - PKPeriodNum)
Cell.Offset(0, 8 - PKPeriodNum)

Czy są na 100% typu boolean?
Może trzeba będzie je zamienić na ten typ stosując CBool().

Nie bardzo rozumiem dlaczego chce Pan użyć konstrukcji Select Case skoro możliwe są tylko 2 wartości True oraz False.
Link do wypowiedziLink

konto usunięte

Temat: Run time error 13

Witam i dziękuję, za reakcję.
Jestem początkującym użytkownikiem VBA stąd nietrafiony pomysł na zastosowanie Select Case. Metodą prób i błędów udało mi się rozszyfrować mój błąd. Po zamianie Select Case na If...Then wszystko działa jak należy.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

REGEXEXTRACT i error




Wyślij zaproszenie do
Anuluj