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

• #53132 Delila_1 veterán melan #53127

  Új Válasz 2024-08-31 07:14:23 #53132

  Ú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 melan #53127 üzenetére

  Makróval megoldható.
  A képen az eredeti tábláról az E:G oszlopokba tettem egy másolatot, az összefűzés láthatósága miatt.
  Nálad az A és B oszlopok lesznek összefűzve a C-ben. A makró ezt az oszlopot értékként saját magára illeszti.

  A makró:
  Sub szinez()
    Dim sor As Integer, usor As Integer, hossz1 As Integer, hossz2 As Integer
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    Range("C2:C" & usor) = Range("C2:C" & usor).Value
    
    For sor = 2 To usor
        hossz1 = Len(Cells(sor, 1))
        hossz2 = Len(Cells(sor, 3)) - hossz1
        Cells(sor, 3).Characters(Start:=1, Length:=hossz1).Font.Color = -16776961
        Cells(sor, 3).Characters(Start:=hossz1 + 1, Length:=hossz2).Font.Color = -65536
    Next
End Sub

  

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