Keresés

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

  • 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

Hirdetés