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

• #37264 Delila_1 veterán spe88 #37263

  Új Válasz 2018-02-06 10:55:08 #37264

  Ú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

  

  Delila_1

  veterán

  válasz spe88 #37263 üzenetére

  Az első kérdésedre:

  Sub Szures_Torles()
Dim tartomany As String, usor As Long

tartomany = Range("AH1").CurrentRegion.Address
ActiveSheet.Range(tartomany).AutoFilter Field:=1, Criteria1:="ok"
usor = Range("AH" & Rows.Count).End(xlUp).Row
Rows("2:" & usor).Delete Shift:=xlUp
ActiveSheet.Range(tartomany).AutoFilter Field:=1
End Sub

  A másodikhoz nem kell makró. Kijelölöd a területet. Ha nincsenek a területen belül teljes üres sorok, vagy teljes üres oszlopok, akkor a tartomány bármelyik celláján állva a Ctrl+a (all), vagy a Ctrl+t (táblázat) kijelöli az egészet. Másolás (Ctrl+c), jobb klikk, irányított beillesztés, értékeket.

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