Keresés

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

  • Delila_1

    Topikgazda

    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.

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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