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

• #37258 Delila_1 veterán lacid90 #37253

  Új Válasz 2018-02-05 19:06:47 #37258

  Ú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 lacid90 #37253 üzenetére

  A szín módosítása nem "esemény" az Excel számára. Egy makróval megoldható. Megváltoztatod a színt, majd duplaklikk a cellán, és megtörténik a másolás.

  A fehér háttér igazán fehér, vagy "Nincs kitöltés? A fekete betű fekete, vagy "Automatikus"?
  Az idézőjelesekhez írtam a makrót. Ez a duplaklikk hatására a cellával azonos sorba, de 5-tel jobbra másolja a cella tartalmát.

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex <> -4142 Then _
Target.Copy Range(Target.Address).Offset(, 5)
If Target.Font.ColorIndex <> -4105 Then _
Target.Copy Range(Target.Address).Offset(, 5)
End Sub

  A laphoz kell rendelned a makrót, lásd a Téma összefoglalóban.

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