Andre Edgar Kassouf

osvaldo obrigado mais uma vez seguindo o raciocino do seu codigo acima cheguei nessa solucao Dim cell As Range For Each cell In Range("c17:c30") If cell.Value = "" And Month(Date) > 1 Then cell.Interior.ColorIndex = 3 Else: cell.Interior.ColorIndex = 0 End If Next cell isso era o que eu precisava funcionou bem mas agora quero que se faca a verificacao de coluna em coluna ate chegar na letra "O" tendo em conta que em cada coluna aumenta um mes (jan,fev,marco,abril,maio etc....) sobre o arquivo nao consigo disponibilizar desculpe por motivo de dados de clientes incluidos agradeco desde ja a tua ajuda

obrigado pela atencao osvaldomp vou tentar explicar melhor o que preciso e uma rotina pra saber se o pagamento do cliente esta vencido ou nao se for vencido a celular se preenche com a cor vermelha isso devera acontecer no exemplo que citei acima nas celulas c17 ate c30 ai pensei o que precisava e adaptar este codigo dentro de uma rotina FOR ou algo parecido pra ficar em loop assim vai vereficando as celulas sempre que clicar no botao espero ter explicado melhor o teu codigo apresenta o mesmo resultado que o meu preciso que rode na coluna interia ate a celula 30 por exemplo c30

ta difícil conseguir ajuda mesmo

galera podem me ajudar a fazer uma repeticao dessa formula em varias celulas consecutivas? Private Sub CommandButton29_Click() n = Now() If Plan1.Range("c17") = "" Then If Month(n) > 1 Then Plan1.Range("c17").Interior.ColorIndex = 3 Else Plan1.Range("c17").Interior.ColorIndex = 0 End If Else Plan1.Range("c17").Interior.ColorIndex = 0 End If End Sub