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

• #36578 Delila_1 veterán hallgat #36572

  Új Válasz 2017-11-17 13:25:12 #36578

  Ú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 hallgat #36572 üzenetére

  Jelöld ki a tartományt, majd futtasd az alábbi, modulba másolt makrót:

  Sub NoPiros()
For Each CV In Selection
If CV.Interior.ColorIndex = 3 Then
Range(CV.Address).Delete shift:=xlToLeft
End If
Next
End Sub

  Ahol egymás mellett több piros hátterű cella is van, a második megmarad, újbóli futtatás rendbe teszi.

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