GoldenLine
Zaloguj się

konto usunięte

Temat: VBA określenie lokalizacji Combobox

Witam wszystkich,

Proszę o pomoc w zdefiniowaniu Combo Box w ponizszym kodzie:

Sub DropDown5_Change()
For Each cell In Range("'Nach Wert'!$A$9:$A$896")
If cell.Value <> "" Then
ComboBox1.AddItem cell.Value

End If
Next cell

End Sub

Zwraca mi blad 438. Domyslam sie ze nie moze okreslic polozenia combo boxa. Znajduje sie on w zakładce Nach Wert w polu e2 (='Nach Wert'!$E$2).

Z góry dziękuje
Link do wypowiedziLink
Bogdan Gilarski

Bogdan Gilarski www.excelperfect.pl
Perfect And
Practical

Temat: VBA określenie lokalizacji Combobox

Zmień Range(...) na
Sheets("Nach Wert").Range("A9:A896")
Link do wypowiedziLink

konto usunięte

Temat: VBA określenie lokalizacji Combobox

Dzięki za odpowiedź. Zmieniłem ale kod wykrzacza się na linijce:

ComboBox1.AddItem cell.Value

Gdzieś przeczytałem coś takiego:

I think the reason that this is happening could be because ComboBox1 is scoping to the VBA module and its associated sheet, while Range is scoping to the "Active Sheet".

It looks like you may be able to use the GetObject function to pull the combobox from the workbook

Może to ten sam przypadek?
Link do wypowiedziLink
Bogdan Gilarski

Bogdan Gilarski www.excelperfect.pl
Perfect And
Practical

Temat: VBA określenie lokalizacji Combobox

Wbrew pozorom mało informacji. Jeżeli osadziłeś w arkuszu o nazwie Nach Wert comboboxa z przybornika formularzy (kontrolka activeX) o nazwie Combobox1, to powinno zadziałać
Sub DropDown5_Change()

Dim cell As Range



With Sheets("Nach Wert")

  .ComboBox1.Clear

  For Each cell In .Range("A9:A896")

    If cell.Value <> "" Then

      .ComboBox1.AddItem cell.Value

    End If

  Next cell

End With



End Sub
Link do wypowiedziLink

konto usunięte

Temat: VBA określenie lokalizacji Combobox

Dziekuje za pomoc. Działa świetnie. :)
Jeszcze 2 szybkie pytania:

1. Co i gdzie terzeba zmienic zeby przeniesc Combo Boxa do zakladki "Graph"?
2. Jak ustawić "link cell" w Combobox activeX? Potrzebuje zeby zwracal wybrany numer do komórki E2 w zakladce Nach Wert.

Dzięki.
Link do wypowiedziLink
Bogdan Gilarski

Bogdan Gilarski www.excelperfect.pl
Perfect And
Practical

Temat: VBA określenie lokalizacji Combobox

W moduł ogólny wklej (np: Module1)
Sub DropDown5_Change()

Dim cell As Range



With Sheets("Graph").ComboBox1

  .Clear

  For Each cell In Sheets("Nach Wert").Range("A9:A896")

    If cell.Value <> "" Then

      .AddItem cell.Value

    End If

  Next cell

End With



End Sub


Linked Cell sobie odpuść :), lepiej oprogramować zdarzenie Change (zmiana wartości) przy wyborze na Cbx, zatem w moduł arkusza Graph (tam gdzie masz ComboBox1)
Private Sub ComboBox1_Change()

    Sheets("Nach Wert").Range("E2") = ComboBox1.Value

End Sub
Link do wypowiedziLink

konto usunięte

Temat: VBA określenie lokalizacji Combobox

Dziękuje bardzo za pomoc. Pierwsze kroki z VBA bywaja ciężkie...:)
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Unikaty z kolumny - bez VBA...




Wyślij zaproszenie do
Anuluj