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

• #50617 lappy őstag eszgé100 #50615

  Új Válasz 2023-03-02 12:24:49 #50617

  Ú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

  

  lappy

  őstag

  válasz eszgé100 #50615 üzenetére

  lehet ez jobb kód

• #50616 Delila_1 veterán eszgé100 #50615

  Új Válasz 2023-03-02 12:23:07 #50616

  Ú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 eszgé100 #50615 üzenetére

  Az E oszlopodra:
  Sub Zold_Piros()
Dim sor As Long, usor As Long, kezd As Integer, hossz As Integer

usor = Range("E" & Rows.Count).End(xlUp).Row
For sor = 1 To usor
If Right(Cells(sor, "E"), 4) = "true" Then
hossz = 4
kezd = InStr(Cells(sor, "E"), "true")
Cells(sor, "E").Characters(Start:=kezd, Length:=hossz).Font.ColorIndex = 4
Else
hossz = 5
kezd = InStr(Cells(sor, "E"), "false")
Cells(sor, "E").Characters(Start:=kezd, Length:=hossz).Font.ColorIndex = 3
End If
Next
End Sub

  Lusta voltam a nagybetűre váltást bele venni, majd kiigazítod.

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