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

excel-va - combobox.rowsource od a1 do lastrow

dajmilogin 20 Paź 2014 13:24 540 2
  • #1 20 Paź 2014 13:24
    dajmilogin
    Poziom 10  

    Witam,

    Jak w temacie. Combobox o nazwie SMkolor w userformie, próbuję dodać listę z innego arkusza(Kolor) niż aktywny(mogą różne arkusze), problem w tym, że nie wiem jak napisać kod który dodał by tylko pola wypełnione z pierwszej kolumny arkusza "Kolor".
    Czy mógłby ktoś miły pomóc?

    Dodano po 55 [minuty]:

    Jakby co to sobie już poradziłem, wklejam kod... może komuś się przyda:


    Code:


    Private Sub UserForm_Initialize()

    Dim rRange As Range

    On Error GoTo ErrorHandle


    Set rRange = Worksheets("kolor").Range("c1")


    If Len(rRange.Formula) = 0 Then
       MsgBox "The list is empty"
       GoTo BeforeExit
    End If


    If Len(rRange.Offset(3, 0).Formula) > 0 Then
       Set rRange = Range(rRange, rRange.End(xlDown))
    End If


    SMKolor.RowSource = rRange.Address

    BeforeExit:
    Set rRange = Nothing
    Exit Sub
    ErrorHandle:
    MsgBox Err.Description
    Resume BeforeExit

    End Sub


    Dodano po 19 [minuty]:

    Kolejny problem, jeżeli zainicjuje userform w innym arkuszu to mi przepisuje do comboboxa treść właśnie z tego aktywnego arkusza, ajk zmienić ten kod żeby przepisywał zawsze z "Kolor"?

    0 2
  • Pomocny post
    #2 20 Paź 2014 13:57
    clubs
    Poziom 29  

    zobacz to

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 20 Paź 2014 14:42
    dajmilogin
    Poziom 10  

    Oczywiście działa, dziękuję. Tej metody też próbowałem wcześniej pomijając niestety userform w drugiej linijce kodu w związku z czym kod nie działał. Zamykam.

    0