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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Preenchimento automatico de colunas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
rodrigo_goncalves



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

MensagemAssunto: Preenchimento automatico de colunas   Ter 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Preenchimento automatico de colunas   Ter 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Preenchimento automatico de colunas   Ter 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
rodrigo_goncalves



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

MensagemAssunto: Re: Preenchimento automatico de colunas   Ter 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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
rodrigo_goncalves



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

MensagemAssunto: Re: Preenchimento automatico de colunas   Ter 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

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

Boa tarde!!

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

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Preenchimento automatico de colunas   Hoje à(s) 2:51 am

Voltar ao Topo Ir em baixo
 
Preenchimento automatico de colunas
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como faço pro meu chefao atirar automatico no player
» Warn Automatico
» Como aumentar colunas exteriores do portal
» Texto da mensagem de homepage em colunas
» Ajuste automatico da logo

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: