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

• #39770 ny.janos tag friccccc #39768

  Új Válasz 2018-12-10 11:35:25 #39770

  Ú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

  

  ny.janos

  tag

  válasz friccccc #39768 üzenetére

  Szia!

  Ha csak egyszer van szükséged a színek módosítására, nem pedig visszatérően, akkor ehhez nem szükséges makró. Beszúrsz egy segédoszlopot, majd bekapcsolod az autoszűrőt. Szűrsz a jelöletlen hátterű sorokra, a segédoszlopodba beírsz egy tetszőleges értéket, másolod az utolsó sorig. A szűrést törlöd, majd a segédoszlopban az üres értékekre szűrsz. A színezett celláidat átszínezed, majd törlöd a segédoszlopod.
  Leírni szerintem tovább tartott, mint megcsinálni.

• #39769 Delila_1 veterán friccccc #39768

  Új Válasz 2018-12-10 11:07:33 #39769

  Ú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 friccccc #39768 üzenetére

  Kijelölöd a tartományt, és indítod a makrót.

  A For Each CV In Selection sorban a Selection helyett megadhatod a tartományt, pl. Range("A5:C30") módon, ekkor nem kell előre kijelölnöd a tartományt.

  Sub Egyszin()
Dim CV As Range
For Each CV In Selection
If CV.Interior.ColorIndex <> -4142 Then
CV.Interior.Color = vbYellow
End If
Next
End Sub

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