none
MACRO PARA COPIAR E COLAR DE ACORDO COM O DIA E MÊS RRS feed

  • Pergunta

  • Boa noite!

    Preciso de uma macro para identificar o dia e mês de hoje nas celulas "B2" e "C2", olhar em uma tabela onde na coluna "D", linha "8" a "19" tenho os meses de Janeiro e Dezmbro, na linha 7 da coluna "E" até a coluna "AI" enhos dias de "1" a "31", ai a macro identifica a celula cruzada do mês com o dia e copia o valor (somente valor, sem formatação) da celula "D4" para esta celula cruzada que corresponde ao mês e dia de hoje. Depois repete o processo só que copia da celula"D5" para a cruzada de acordo com o mês e dia de hoje.

    Todos estes dados estão na mesma planilha "Plan1"

    Ex: hoje è 28/Agosto

    Vai copiar e colar o valor da celula "D4" na celula cruzado do mês e dia neste exemplo a "AF15" e "D5" para a "AF27"

    Amanha 29/Agosto,

    Vai copiar e colar o valor da celula "D4" na celula cruzado do mês e dia neste exemplo a "AG15" e "D5" para a "AG27"

    Obrigado!


    quinta-feira, 29 de agosto de 2013 01:21

Respostas

Todas as Respostas

  • Meu querido,

    Que pé que está seu código ou função? Já chegou a desenvolver algo? Se sim, poste aqui que corrigimos. 

    quinta-feira, 29 de agosto de 2013 19:39
  • Meu querido,

    Que pé que está seu código ou função? Já chegou a desenvolver algo? Se sim, poste aqui que corrigimos. 


    Olá, Lucas, boa noite...

    Obrigado, pelo retorno acabei fazendo um soma de formula com macro e ficou ok, utilizei procv e proch com o codigo abaixo e esta ok!

    Valeu mesmo assim!

    Sub AtualizarGraficos()

    ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

    Sheets("Dados").Select

    ' Informação de Coleta Planta
    Cells(Range("AP8").Value, Range("AP9").Value).Value = Range("D4").Value

    'Informação de Análise Planta
    Cells(Range("AP12").Value, Range("AP13").Value).Value = Range("D5").Value

    End Sub

    sexta-feira, 30 de agosto de 2013 00:21
  • Poderia disponibilizar uma pasta de trabalho para download como exemplo para eu sugerir um código?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 30 de agosto de 2013 00:22
    Moderador