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

• #30633 alfa20 senior tag

  Új Válasz 2016-02-17 16:20:27 #30633

  Ú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

  

  alfa20

  senior tag

  sziasztok!

  Makróban szűrők egy oszlopra és kierőltetem a látható cellákat
  Range("G2:G" & usor).SpecialCells(xlCellTypeVisible).Select

  viszont ha nincs szűrési feltét, akkor hibát kapok: "nincs ilyen cella" ezt hogy tudom át ugrani?
  On Error GoTo tova1-al nem sikerült

  On Error GoTo tova2
  ActiveSheet.Range("A1:W" & usor).AutoFilter Field:=23, Criteria1:="szures"
  Range("G2:G" & usor).SpecialCells(xlCellTypeVisible).Select
  Selection.Font.Bold = True
  tova2:

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