Indsæt streg

Er det sådan du mener, her er det farven Gul, den finder.


Sub Gennemstregning()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Interior.ColorIndex = 6 Then
  Rows(i).Font.Strikethrough = True
  Else
    Rows(i).Font.Strikethrough = False
  End If
Next
End Sub

Der skal ikke en streg gennem navnet, men en streg over navnet og hele rækken hen.
Det er sådan en streg, man laver, når man skal indramme nogle celler. I dette tilfælde skal det altså udelukkende være for oven.

Kan man lave det så det er ligegyldigt, hvilken farve det er?
Jeg har nemlig både gule, røde og grønne felter.

Nu sætter den streg over cellerne som er farvet, kun dem uden farve går fri

Sub Stregning()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Interior.ColorIndex <> xlNone Then
  Rows(i).Borders(xlEdgeTop).LineStyle = xlContinuous
  Else
    Rows(i).Borders(xlEdgeTop).LineStyle = xlNone
  End If
Next
End Sub

Det er super, kabbak! Lav et svar

Kan man lave det sådan, at der kun stregerne over cellerne i de 10 første kolonner?

Sub Stregning()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Interior.ColorIndex <> xlNone Then
  Range(Cells(i, 1),Cells(i, 10)).Borders(xlEdgeTop).LineStyle = xlContinuous
  Else
  Range(Cells(i, 1),Cells(i, 10)).Borders(xlEdgeTop).LineStyle = xlNone
  End If
Next
End Sub