Macro para repetição

[Andre Edgar Kassouf]

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

[Patropi]

Desmembrado do tópico:

 

http://forum.clubedohardware.com.br/forums/topic/676870-loop-em-c%C3%A9lulas-do-excel-com-vba-sem-macro/page-0

 

Crie sempre um novo tópico para as tuas dúvidas.

 

Patropi - Moderador

[Andre Edgar Kassouf]

ta difícil conseguir ajuda mesmo     

[Visitante]

ta difícil conseguir ajuda mesmo     

Difícil é entender o que você deseja

 

 

galera podem me ajudar a fazer uma repeticao dessa formula em varias celulas consecutivas?

A expressão "dessa formula" sugere que o que foi postado seria uma fórmula, no entanto se trata de um código escrito em VBA. ..

Ainda, examinando o seu código também não há qualquer referência a fórmulas...

Então, tentando adivinhar, suponho que você queira estender a ação do código para outras células além da célula 'C17', no entanto a expressão "celulas consecutivas" é impreciso. Seriam células consecutivas para baixo, para a direita, em ambos, quantas células consecutivas?

 

Teste se o código abaixo apresenta resultados iguais ao seu. Se sim, ficaria mais fácil introduzir nele os ajustes para a sua necessidade.

Se achar conveniente para facilitar o entendimento do que você deseja sugiro que disponibilize uma amostra do seu arquivo com as explicações na própria planilha.

Sub CommandButton29_Click() If Range("C17") = "" And Month(Date) > 1 Then   Range("C17").Interior.ColorIndex = 3 Else: Range("C17").Interior.ColorIndex = 0 End IfEnd Sub

[Andre Edgar Kassouf]

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

[Visitante]

O código que você postou verifica se 'C17' está vazia e se o mês corrente é janeiro. Nada a ver com controle de vencimento.

 

Para destacar se certo pagamento não realizado está em atraso é preciso comparar a data de vencimento com a data do dia. Onde está a data do vencimento e onde está indicado que o pagamento não foi efetuado?

 

Esse tipo de controle é aplicação típica para a Formatação Condicional do Excel. Já pesquisou esse recurso?

 

Renovo a sugestão para você disponibilizar uma amostra do seu arquivo.

[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

[Patropi]

André

 

sobre o arquivo nao consigo disponibilizar desculpe por motivo de dados de clientes incluidos 

 

A Maioria dos usuários do fórum, montam uma planilha de exemplo, para anexar no fórum, com dados fictícios, mas com o layout original e o código utilizado

A pessoa tem que ajudar para ser ajudada.

Nas tuas primeiras mensagens você postou "que está difícil", mas a culpa é tua e não dos colaboradores, pois eles disponibilizam seu tempo gratuitamente para ajudar.

 

[]s