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

• #50938 Delila_1 veterán TillaT #50934

  Új Válasz 2023-05-04 17:44:49 #50938

  Ú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 TillaT #50934 üzenetére

  Ha már úgyis van makród, ezt javaslom:

  sor=2
Do While Cells(sor, 1) <> ""
If InStr(Cells(sor, 1), "X") > 0 Then
Cells(sor, 1).Characters(Start:=7, Length:=20).Font.ThemeColor = xlThemeColorDark1
End If
sor = sor + 1
Loop

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