Excel listbox adatbetöltési gond
2021-05-06T18:48:57+02:00
2021-05-12T14:04:55+02:00
2022-08-12T02:35:31+02:00
Hier
Sziasztok

Van egy form-om, amin egy listboxba szeretnék betölteni egy adott sheet-ről adatokat.
Sajnos mindig csak arról a sheet-ről tölt be, ami éppen aktív.
A következő kódot használom, de nem működik.
Tud valaki segíteni?

With ListBox1
    .RowSource = ""
    .ColumnCount = 4
    .ColumnWidths = "50;100;100;100"
    .RowSource = Worksheets("mentett").Range("a2: x500").Address
End With

Köszönöm
Mutasd a teljes hozzászólást!

  • Szia!
    Mit jelent az, hogy nem működik? Mi a hibaüzenet?
    Szerintem gond lehet az, hogy 4 oszloposnak határoztad meg az objektumot és az A-X oszlopot szeretnéd forrásnak megjelölni, ami azért több, mint 4 oszlop ugye?
    Üdv.
    Mutasd a teljes hozzászólást!
  • Szia!

    Hogy érted, hogy csak arról a sheet-ről tölt be ami aktív?
    a RowSource = Worksheets("munkalapneve") adja meg, hogy melyik munkalapon van a forrás.
    Szóval, ha ezt átírod bármelyik másik munkalap nevére, akkor onnan fogja venni az adatokat.(sőt, ezt változóval is meg lehet adni neki, mármint a "munkalapneve" lehet változó). Az ez után szereplő Range("a2: x500").Address adja meg, hogy az adott munkalap melyik része legyen a forrás.(ezt szintén meg lehet adni változóval is). Jelen kódrészlet a "mentett" nevű munkalapról az A2 cella és az X500 cella közti tartomány celláit jelöli meg forrásként.

    A másik gond valószínű az lesz, amit Fferi már megírt.

    (viszont használd a forráskód gombot, ha kódot illesztesz be -> a szövegmező felett a '</>' gomb)
    Mutasd a teljes hozzászólást!
  • Szia
    Köszönöm a választ, valóban 4 oszlop volt megadva, de több volt bemeneti tartománynak megadva, ezt javítottam.
    Mutasd a teljes hozzászólást!
  • Szia

    Pontosan az történik, amit írtam, teljesen mindegy hogy a munkafüzet 5 munkalapja közül melyik aktív arról veszi a A:D oszlopból az adatot.
    Sohasem tapasztaltam még ilyet. eddig ha megadtam egy listboxnak, hogy melyik munkalapról vegye az adatot mindig onnan vette.
    Mutasd a teljes hozzászólást!
  • hát, akkor én így távgyógyításból passzolok, annyira (még) nem értek hozzá.
    Mutasd a teljes hozzászólást!
  • Szia!

    Próbáld meg, hogy az Address után tegyél nyitó-záró zárójel párt:
     .RowSource = Worksheets("mentett").Range("a2: x500").Address()

    Üdv.
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd