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

• #40611 Delila_1 veterán oke #40608

  Új Válasz 2019-04-02 12:54:43 #40611

  Ú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 oke #40608 üzenetére

  Sub Rendben()
Dim usor As Long
ActiveSheet.Range("$A:$X").AutoFilter Field:=6, Criteria1:=">25"
usor = Range("F" & Rows.Count).End(xlUp).Row
Range("X2:X" & usor).SpecialCells(xlCellTypeVisible) = "Rendben"
End Sub

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