Legördülő lista létrehozása
2017-06-22T11:29:55+02:00
2017-06-22T20:59:25+02:00
2022-08-10T17:15:29+02:00
Brandbalu
Sziasztok,

egy makró segítségével szeretnék egy legördülő listát létrehozni, úgy, hogy a kijelölt tartományból csak a látható sorok tartalmát vegye figyelembe.

Ezt írtam, de valamiért nem ok:

Sub liste() Dim usor As Integer Sheets("Inhalt").Select ActiveSheet.Range("$A$3:$O$71").AutoFilter Field:=9, Criteria1:="<>" usor = Cells(Rows.Count, "A").End(xlUp).Row Range("A4:A" & usor).Select Selection.SpecialCells(xlCellTypeVisible).Select ActiveWorkbook.Names.Add Name:="Adatok", RefersTo:=Selection Sheets("eredmény").Select Range("D1").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Adatok" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub
Köszi a segitséget!
Üdv,
Balu
Mutasd a teljes hozzászólást!
usor = Cells(Rows.Count, "A").End(xlUp).Row Range("A4:A" & usor).Select
Helyére:

dim akarmi as range usor = Cells(Rows.Count, "A").End(xlUp).Row set akarmi = ActiveSheet.Range("A1:A"& usor).Rows.SpecialCells(xlCellTypeVisible) akarmi.select
Lehet nem pontosan így kell, de most csak ez jutott eszembe, innen az ötlet: (Nem tudom a kódodat pontosan értelmezni, de ez talán segít.)

How to get the range of the visible rows after applying an advanced filter in Excel (VBA)
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