Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[EXCEL][VBA] Błąd gdy ComboBox nie ma warości

10 Mar 2010 10:46 2009 3
  • Poziom 10  
    Koledzy pomożecie z takim drobiazgiem. Bo mam zaćmienie.

    Code:
    Private Sub UserForm_activate()                              
    
      Sheets("LISTA").Activate
    Dim a As Integer
    a = 4 + ComboBox1.Value
    Me.ComboBox3.RowSource = Range(Cells(4, 3), Cells(a, 3)).Address   

    Jeśli Combox1 ma wartość jest OK ale jeśli jest puste wyskakuje błąd nr 13
    i nie chce tego przyjąć informując, że ComboBox1.Value=""
    O co chodzi, wiem że to proste ale ciemna masa :cry:
    Pomóżcie !!!

    Proszę pamiętać o używaniu znaczników code. - arnoldziq
  • Poziom 15  
    Wydaje mi sie ze nie mozesz do typu Int dodac typu String a juz na pewno nie pustego stringa (""). Jesli wspomniany ComboBox ma wartsc to jest ona najpewniej niejawnie rzutowana na Int i dopiero dodawana do wyniku.
  • Poziom 10  
    Jak sama nazwa wskazuje to forum dla początkujących i ja taki właśnie jestem. Powiem nawet raczkujący. Myślę więc, że masz rację. Tylko poradź co z tym fantem zrobić. Proszę. A przy okazji mógłbyś, bardziej po "chłopsku" wyjaśnić swoją poprzednią poradę.
  • Pomocny post
    Moderator Programowanie
    Podstaw zero, jeśli wartość <> liczba.
    Code:
    If Not IsNumeric(ComboBox1.Value) Then ComboBox1.Value = 0
    
    a = 4 + ComboBox1.Value


    p.s.
    Code:
    =PODSTAW(temat;"pomóżcie";"")