Notifications
Clear all

ISERIR DADOS BASEADO EM DATA

7 Posts
1 Usuários
0 Reactions
2,369 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá a todos!

Preciso de uma macro que insirar valores na coluna paseado em data.

Acho que o exemplo fica mais facil de entender.

Podem me ajudar?

T+

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2011 7:53 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Anderson, aqui no serviço não temos office 2007, se puder detalhar a solicitação para uma analise.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2011 8:08 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro bom dia!

Segue Salvo Em versão anterior.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2011 8:14 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja no anexo se lhe ajuda

Em B, dados via macro (insere formula / depois " Fixa" o valor)
Em C via Formula

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2011 9:02 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo, Obrigado pela resposta!
Porem quero justamente o contrario.
Quero alimentar a aba VALORES com os valores inseridos na aba CAPA em função da data informada.
Consegui ser mais claro agora?
To com dificudade de formular a questão estão decidi postar e ir acertando conforme as respostas fossem surgindo...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2011 9:16 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então use

Sub Insere()
Dim lRow As Long, lCol As Integer, nCol As Long, nRow As Long

lRow = Sheets("CAPA").Cells(Cells.Rows.Count, "A").End(xlUp).Row
lCol = Sheets("VALORES").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
nCol = Application.Match(Sheets("CAPA").Cells(1, 2), Sheets("Valores").Range("A1:NB1"), 0)

For i = 2 To lRow
nRow = Application.Match(Sheets("CAPA").Cells(i, 1).Value, Sheets("Valores").Range("A1:A36"), 0)
Sheets("Valores").Cells(nRow, nCol).Value = Sheets("CAPA").Cells(i, 2).Value
Next
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2011 10:18 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado funcionou perfeitamente!

:D :D :D

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2011 10:46 am