2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Hirdetés

!! SZERVERLEÁLLÁS, ADATVESZTÉS INFORMÁCIÓK !!
Köszönjük a sok biztatást, támogatást! Utolsó pillanat a féláras hirdetésfeladásra, előfizetésre!

Új hozzászólás Aktív témák

  • #1951 vilag tag
    Új Válasz #1951
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    vilag

    tag

    Üdv!

    VBA-ban szeretnék bizonyos rowsource tulajdonságot állítani változók segítségével.
    A probléma az, hogy az oszlopoknak és a soroknak csak a számát ismerem és sehogyan sem sikerült r1c1 típusú hivatkozással megoldani a dolgot.

    Jelenleg egy ilyen félmegoldásom van:

    szektorkod = Application.WorksheetFunction.Match("Szektorkód", ThisWorkbook.Sheets("Napló").Range("1:1"), 0)
    szektornev = Application.WorksheetFunction.Match("Szektornév", ThisWorkbook.Sheets("Napló").Range("1:1"), 0)

    szektorkodvege = ThisWorkbook.Worksheets("Napló").Columns(szektorkod).End(xlDown).Row
    x = Cells(2, szektorkod).Address
    y = Cells(szektorkodvege, szektornev).Address
    ComboBox27.RowSource = "Napló!" + x + ":" + y

    Az alsó 4 sort szeretném lerövidíteni max 2 sorra a vezérlők nagy száma miatt.

    A legjobb megoldás talán az volna, ha sikerülne az oszlopok számát valahogyan visszaalakítani betűre, mert úgy a változókból egyszerűen össze tudnám rakni a rowsource-ot vagy a match eredményét valahogyan úgy megkapni, hogy az ne r1c1 típusú hivatkozás legyen.

    Előre is köszönöm a segítséget!

Új hozzászólás Aktív témák