Boa tarde!
Já estou com os itens da ComboBox criados. Desejo, ao selecionar o item no ComboBox, apenas a linha na qual este pertence se colorir.
Criei o código abaixo, mas ao rodar ele colore a linha selecionada, o cabeçalho e o resto da planilha sem conteúdo:
Private Sub CommandButton1_Click()
ActiveSheet.Range("$A$1:$A$1000").AutoFilter Field:=1, Criteria1:="=*" & Me.ComboBox1.Value & "*"
Rows.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.ShowAllData
Range("H1").Select
Unload Me
Principal.Show
End SubObrigado!!
