VBA codeto color cells with conditions

[Veni11]

Hello everyone

is there a possible way to color a group of cells between to cells with specific "data".
For example in this table with the names. The Data between the dots should be colored in a color and then the next data between the 2 dots.
So the group (peter,sarah,dave) and the group (lionel,cristiano,ronaldinho,zidane) would be highlighted in different colors.

.

Peter

Sarah

Dave

.

Lionel

Cristiano

Ronaldinho

Zidane

.

 

[Legacy 143009]

Hi! Something like this should work:

Sub test()
  Dim dot As Long, i As Long
  If Cells(1, "A").Value = "." Then
    dot = 1
  End If
  For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    If Cells(i, "A").Value = "." Then
      Cells(i, "A").Offset(-1 * ((i - dot) - 1)).Resize((i - dot) - 1).Interior.ColorIndex = i + 1
      dot = i
    End If
  Next
End Sub

 

[Legacy 143009]

This will be safer:

Sub test()
  Dim dot As Long, i As Long
  If Cells(1, "A").Value = "." Then 'Change 1 here to the row where your first dot appears
    dot = 1 'Change 1 here to the row where your first dot appears
  End If
  Application.ScreenUpdating = False
  For i = dot + 1 To Cells(Rows.Count, "A").End(xlUp).Row
    If Cells(i, "A").Value = "." Then
      Cells(i, "A").Offset(-1 * ((i - dot) - 1)).Resize((i - dot) - 1).Interior.ColorIndex = i + 1
      dot = i
    End If
  Next
  Application.ScreenUpdating = True
End Sub