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

• #43975 oke senior tag

  Új Válasz 2020-05-15 10:23:55 #43975

  Ú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

  

  oke

  senior tag

  Sziasztok,
  
  Három kérdésem is lenne:
  
  1, Hogyan lehet átrakni egy makrót egy excel fájlból a Personal-ba?
  2, Szeretném a W oszlopban lévő értékek közül a „lakás” és a szoba szavakat törölni, hogy üres legyen a cella. Csak magukat az értékeket, nem a sort. Az alábbi kódrészlettel próbálkoztam, de üres sorokat generál:
  Selection.AutoFilter
   'ActiveSheet.Range("$A:$W").AutoFilter Field:=23, Criteria1:="=lakás", _
        Operator:=xlOr, Criteria2:="=szoba"
    Range("W2").Select
   'Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    ActiveSheet.Range("$A:$W").AutoFilter Field:=23
  
  3, szeretnék egy legörülő lista válastót berakni a V oszlopba,. A lista ugyan abban a könyvtárban, de egy másik táblázatban szerepel, ezzel próbálkoztam, de nem akar működni, illetve csak a második csellába rakssal próbálkoztam, nem tudom hogy lehet kiterjeszteni az eész oszloba addig, amíg van adat:
  Range("V2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="= [Munkafüzet3.xlsx]Lista!$A$2:$A$17"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Columns("v:v").Select

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