Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Preenchimento automatico de colunas

Ir para baixo 
2 participantes
AutorMensagem
rodrigo_goncalves




Mensagens : 3
Data de inscrição : 11/03/2014

Preenchimento automatico de colunas Empty
MensagemAssunto: Preenchimento automatico de colunas   Preenchimento automatico de colunas EmptyTer Mar 11, 2014 5:07 pm

Bom dia a todos! Sou novo no fórum, espero poder ajudar no que estiver ao meu alcance, porém, começo com uma dúvida:

tenho em uma planilha um intervalo de datas, por exemplo:

A1 = Jan/2014
B1 = Jul/2014

Alguém conhece uma forma de eu criar um botão que quando acionado preencha as colunas seguindo esse intervalo de datas? Tipo, ao clicar no botão, a partir da coluna "C" por exemplo, ficaria assim:

C            D             E            F           G           H           I
jan/14 fev/14 mar/14 abr/14 mai/14 jun/14 jul/14

Desde já agradeço e espero poder ajudá-los daqui para frente...
Abçs
Rodrigo
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Preenchimento automatico de colunas Empty
MensagemAssunto: Re: Preenchimento automatico de colunas   Preenchimento automatico de colunas EmptyTer Mar 11, 2014 7:29 pm

Boa tarde!!

Poderia ser assim?
Código:
Sub MesAno()
    Cells(2, 3).Formula = "=MONTH(TODAY())&""/""&YEAR(TODAY())"
    Cells(2, 4).Resize(, 9).Formula = "=MONTH(C2)+1&""/""&YEAR(TODAY())"
End Sub

Att
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Preenchimento automatico de colunas Empty
MensagemAssunto: Re: Preenchimento automatico de colunas   Preenchimento automatico de colunas EmptyTer Mar 11, 2014 7:37 pm

Boa tarde!!

Caso não queira as formulas nas células, então.
Código:
Sub MesAnoII()
    Cells(2, 3).Formula = "=MONTH(TODAY())&""/""&YEAR(TODAY())"
    Cells(2, 4).Resize(, 9).Formula = "=MONTH(C2)+1&""/""&YEAR(TODAY())"
      Range("C2:L2").Select
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, _
      Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Att
Ir para o topo Ir para baixo
rodrigo_goncalves




Mensagens : 3
Data de inscrição : 11/03/2014

Preenchimento automatico de colunas Empty
MensagemAssunto: Re: Preenchimento automatico de colunas   Preenchimento automatico de colunas EmptyTer Mar 11, 2014 9:30 pm

Cara... funcionou em partes!! O código lista os meses na coluna sim, porém ele não tá fazendo a partir do intervalo das células A1 e B1.
Ele tá gerando os meses "fixos" de 03 a 12/2014. A ideia seria que ele gerasse de acordo com o intervalo. Tem como??

Abçs!
Ir para o topo Ir para baixo
rodrigo_goncalves




Mensagens : 3
Data de inscrição : 11/03/2014

Preenchimento automatico de colunas Empty
MensagemAssunto: Re: Preenchimento automatico de colunas   Preenchimento automatico de colunas EmptyTer Mar 11, 2014 9:48 pm

Cara... fiz umas modificações e funcionou em partes tbm...
Código:
Sub MesAnoII()
    Cells(2, 3).Formula = "=MONTH(A1)&""/""&YEAR(A1)"
    Cells(2, 4).Resize(, 24).Formula = "=MONTH(C2)+1&""/""&YEAR(C2)"
      Range("C2:AL2").Select
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, _
      Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Dessa forma ele até faz respeitando a o intervalo das células, porém, quando eu coloco as o intervalo de referencia (exemplo) A1 = 01/13 e  B1 = 05/14 ele faz o seguinte:

1/2013 2/2013 3/2013 4/2013 5/2013 6/2013 7/2013 8/2013 9/2013 10/2013 11/2013 12/2013 13/2013 #VALOR! #VALOR! #VALOR! #VALOR! #VALOR!

não inicia o ano de 2014 e em seguida dá esse erro.
abçs
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Preenchimento automatico de colunas Empty
MensagemAssunto: Re: Preenchimento automatico de colunas   Preenchimento automatico de colunas EmptyTer Mar 11, 2014 11:46 pm

Boa tarde!!

Veja o arquivo em anexo.
http://www.sendspace.com/file/zujpy5

Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





Preenchimento automatico de colunas Empty
MensagemAssunto: Re: Preenchimento automatico de colunas   Preenchimento automatico de colunas Empty

Ir para o topo Ir para baixo
 
Preenchimento automatico de colunas
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Copiar e agrupar linhas de colunas iguais em novas colunas
» Preenchimento Automático
» Gerador de código automático
» Dividindo uma soma em três colunas
» Somar colunas de horas com condição

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: