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

• #52873 Delila_1 veterán gycs02 #52871

  Új Válasz 2024-06-25 06:08:58 #52873

  Ú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 gycs02 #52871 üzenetére

  Szia!

  Az „x” beírásához.
  Az A oszlopba A2:A1000-ig írtam adatokat, majd szűrtem. A szűrt sorok mellé a B oszlopba íratok X-et.
  Sub Lathatoba_x()
    Dim elso As Integer, utolso As Integer
    elso = Range("A2:A1000").SpecialCells(xlCellTypeVisible).Row
    utolso = Range("A" & Rows.Count).End(xlUp).Row
    Range("B" & elso & ":B" & utolso).SpecialCells(xlCellTypeVisible) = "x"
End Sub

  Ez meg a szűrt tartomány másolása:
  Sub masol()
    Dim elso As Integer, utolso As Integer
    elso = Range("A2:A1000").SpecialCells(xlCellTypeVisible).Row
    utolso = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:A1000").SpecialCells(xlCellTypeVisible).Copy Sheets("Munka2").Range("A1")
End Sub

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