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

• #30634 Fferi50 Topikgazda alfa20 #30633

  Új Válasz 2016-02-17 16:59:28 #30634

  Ú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 alfa20 #30633 üzenetére

  Szia!

  Próbáld így:
  On Error Resume Next
  ActiveSheet.Range("A1:W" & usor).AutoFilter Field:=23, Criteria1:="szures"
  Range("G2:G" & usor).SpecialCells(xlCellTypeVisible).Select
  If Err=0 Then Selection.Font.Bold = True
  On Error Goto 0

  Üdv.

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