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.

vba excel - wyszukiwanie wiersza po wartościach z dwóch combobox

28 Lip 2015 19:53 1017 8
  • Poziom 6  
    Witam, jestem totalnie początkującym w vba excel i będę bardzo wdzięczny za pomoc w rozwiązaniu mojego problemu.

    Mam taki arkusz "Budżety"
    vba excel - wyszukiwanie wiersza po wartościach z dwóch combobox

    Mam też formularz, w którym są dwa ComboBox. Jeżeli w jednym wybiorę projekt to w drugim listują się wartości z kolumny pozycja przypisane do projektu.

    Teraz nie wiem jak wyszukać odpowiedni wiersz, aby dodać Koszt.

    Chciałbym wybrać projekt (z jednego comboboxa) następnie konkretną pozycję (z drugiego comboboxa) i przypisać w Excelu w danym wierszu wartość Koszt np. z pola tekstowego w formularzu.

    Obsługę combobox zrobiłem ale teraz nie wiem jak zrobić wyszukanie odpowiedniego wiersza i kolumny do wpisania pozycji Koszt
  • Specjalista - VBA, Excel
    Własciwość ComboBox ListIndex
  • Poziom 6  
    Możesz coś więcej powiedzieć?
  • Specjalista - VBA, Excel
    luzik122 napisał:
    Obsługę combobox zrobiłem

    Pokaż kod tej obsługę, nawet lepiej załącz plik(minimalnie zrzut ekranu ComboBox2 - Properties)
  • Poziom 6  
    cc2.Clear ' combo 2 gdzie wrzucam pozycje
    Worksheets("Budżety").Activate
    pozycja = Empty

    For Each c In ActiveSheet.Range("a1:a22") ' przeszukiwanie nr projektu
    If c = cc1.Value Then ' jeżeli znalazł projekt wybrany w combo 1

    pozycja = ActiveSheet.Cells(c.Row, 3) 'wybiera pozycje
    cc2.AddItem pozycja ' dodaje pozycje

    End If
    Next c

    I teraz po tym wyborze chciałbym znaleźć odpowiedni wiersz i wpisując wartość Kosztu dodać ją tam gdzie trzeba

    vba excel - wyszukiwanie wiersza po wartościach z dwóch combobox
  • Pomocny post
    Specjalista - VBA, Excel
    Analogicznie
    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Edit
  • Poziom 6  
    mam w tym formularzu pole tekstowe kw1
    Dodaj proszę jeszcze kod, aby tekst z kw1 wpisał w odpowiedniej komórce w kolumnie D
  • Pomocny post
    Specjalista - VBA, Excel
    W tym celu zmienna "wiersz" powinien być zadeklarowany jako globalna.
    Wtedy
    Code:
    Range("D" & wiersz) = kw1.Text
  • Poziom 6  
    Dziękuję, to rozwiązało moją sprawę.