Ir ao conteúdo
  • Cadastre-se
Andre Edgar Kassouf

Macro para repetição

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

ta difícil conseguir ajuda mesmo  :(  :(  :(

Difícil é entender o que você deseja :confused:

 

 

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
  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×