Problem z PortfolioComboBox w UserForm1

Mogę wybrac odpowiedni "Type" z range w sheet excel ale jak go wybieram to widze 0 1 2 3 (indeks wiersza chyba) - a chce dokladnie nazwe TO CO JEST w "Contact list" B4:B500.....

Kod:

Private Sub UserForm_Initialize()
    Dim TypeRange As Range
    Dim TypeCell As Range

    Set TypeRange = Sheets("Contact list").Range("B4:B500")
    
    For Each TypeCell In TypeRange
        If TypeCell.Value <> "" Then ' Check for non-empty values
            TypeComboBox.AddItem TypeCell.Value ' Add portfolio name to ComboBox
        End If
    Next TypeCell
    
End Sub

Fiszki Anki napisał(a):

Mogę wybrac odpowiedni "Type" z range w sheet excel ale jak go wybieram to widze 0 1 2 3 (indeks wiersza chyba) - a chce dokladnie nazwe TO CO JEST w "Contact list" B4:B500.....

Ten opis nie jest dla mnie jasny. Nie możesz wybrać żadnego "Type", możesz wybrać ewentualnie pozycję w Combobox.
Wklejony kod jest niekompletny, bo nie o tę część chodzi, jeśli mowa jest o elemencie z Combobox

Wklejony fragment kodu działa bez zarzutu, przy inicjalizacji formularza wczytuje pozycje z arkusza do combobox, tak jak powinno być

Zgaduję, że problem jest we fragmencie kodu którego brakuje (nie został wklejony), i z dużą pewnością chodzi o zdarzenie

TypeComboBox_Change()

Prawdopodobnie masz tam:

TypeComboBox.ListIndex

jeśli tak, to spróbuj zmienić na:

TypeComboBox.Value

widze 0 1 2 3 (indeks wiersza chyba) -

to jest indeks pozycji w tablicy