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

• #33895 poffsoft veterán nordican #33891

  Új Válasz 2017-01-25 23:33:35 #33895

  Ú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

  

  poffsoft

  veterán

  válasz nordican #33891 üzenetére

  Egy bizonyos lapon lévő rangera a hivatkozás:

  Sheets(1).Range("A1", "F100").Select
  vagy
  Sheets("Munka1").Range("A1", "F100").Select

  a sárga cellák szűrése (feltéve, hogy a colorindex=6 sárgáról van szó):

  With Selection.Interior
If .ColorIndex = 5 Then
.ColorIndex = None
.Pattern = xlNone
End If
End With

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