Boa Noite Amigo Mauro.
Obrigado pela resposta.
so mais uma pergunta, pois sou aprendiz de vba,o conhecimento é pouco, e com tanto codigo diferente fiquei confuso.
os codigos que me indicou é para colocar junto aos que eu coloquei?
Pedro, eu só indiquei uns exemplos de como você pode definir e/ou alterar a cor de uma celula uma vez que na rotina que colocou não é informado nenhuma celula, e você só informou o seguinte : "queria que quando mudasse a cor da textbox fosse tambem mudar a cor de fundo da celuna na folha", ou seja não disse a qual celula se refere, mas supondo que, conforme a primeira condição se sua rotina abaixo:
Private Sub TextBox14_Change()
If txtmes.Value = "Fevereiro" Then
TextBox14.BackColor = &HFFFF&
End If
Se o Valor de txtmes for igual a "Fevereiro"
alterar a cor de fundo do TextBox14, e se a celula na planilha que contem o valor "Fevereiro" for a "A1", ficaria assim :
Private Sub TextBox14_Change()
If txtmes.Value = "Fevereiro" Then
TextBox14.BackColor = &HFFFF&
Range("A1").Interior.Color = &HFFFF&
End If
Quanto ás outras formas, são maneiras diferentes de tratarmos os ranges, mas vai variar conforme estivermos definindo:
Range("A1").Interior.Color = &HFFFF& - Indicamos diretamente a celula "A1"
Cells(1, 2).Interior.Color = &HFFFF& - o 1 significa a linha e o 2 a coluna, então se refere a A2
Cells(1, 3).Interior.ColorIndex = 10 - o 1 significa a linha e o 3 a coluna, então se refere a A3
Cells(1, 4).Interior.Color = RGB(0, 0, 250) - o 1 significa a linha e o 4 a coluna, então se refere a A4
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 24/03/2016 11:23 am