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

• #43978 Fferi50 Topikgazda oke #43975

  Új Válasz 2020-05-15 11:54:00 #43978

  Ú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

  

  Fferi50

  Topikgazda

  válasz oke #43975 üzenetére

  Szia!
  1. Ha már van Personalod, akkor a VBA nézetben kinyitod, megnyitod a modulját. Majd egyszerűen átmásolod a kívánt makrót oda. Ha az eredeti helyen nem akarod otthagyni, akkor a kivág - áthelyez megy vagy másolás után törlöd onnan.
  Ha még nincs Personal, akkor indítasz egy makrórögzítést az egyéni makró munkafüzetbe. Pl. kijelölsz egy cellát. Utána leállítod a rögzítést. Átmész a VBA nézetbe. A többit lásd fent.
  2.Elvileg jó a kód, nem generálhat üres sorokat (persze az itt kikommentelt sorok kellenek bele.) Bár én inkább így csinálnám:
  ActiveSheet.Range("$A:$W").AutoFilter Field:=23, Criteria1:="=lakás", _
  Operator:=xlOr, Criteria2:="=szoba"
  Range(Range("W2"),Range("W" & Rows.Count).End(xlUp)).ClearContents
  Activesheet.ShowAlldata 'vagy
  Activesheet.AutofilterMode=False
  3.
  Dim ucell as Range
  Set ucell=Range("V" & Rows.Count).End(xlUp)
  With Range(Range("V2"),ucell).Validation
  '..... ide jönnek a soraid
  End With
  Üdv.

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