Hej,
Håller på med ett formulär och jag snappade upp en bit kod på nätet som jag lånade, kommer tyvärr inte ihåg var eller av vem.
Den ska göra så att flikarna ändrar färg beroende på om det finns något i formuläret eller ej. Koden nedan fungerar men jag vill egentligen ha det för Range B4:J34. Allts A-J från 4-34 men då får jag upp felmeddelanden. Jag har då skrivit
B4:B34;C4:C34;D4:D34 osv.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
Set myRange = ActiveSheet.Range("B4:B34")
If Application.WorksheetFunction.CountA(myRange) = 1 Then
Blad1.Tab.Color = vbGreen
Else
Blad1.Tab.Color = xlColorIndexNone
End If
End Sub
Hur ska jag bära mig åt för att lösa detta?
Anders