Notifications
Clear all

Copiar e colar dados

9 Posts
2 Usuários
0 Reactions
2,270 Visualizações
(@natalia-oliveira)
Posts: 43
Trusted Member
Topic starter
 

Boa Tarde,

Gostaria de uma ajuda para criar uma macro.

Preciso de uma macro que copie os dados da linha 1 na 2 quando a mesma estiver vazia.

Exemplo

coluna1 coluna2 coluna3 coluna4
Nome natalia a
b
c
NOme Casa a
b
c
e assim em varias linhas

Preciso que fique assim

NOme natalia a
nome natalia b
nome natalia c
nome casa a
nome casa b
nome casa c

Alguem me ajude por favor.!!!!!

 
Postado : 29/04/2012 12:57 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

posta um anexo com um modelo, a explicação ta meio confusa

 
Postado : 29/04/2012 1:32 pm
(@natalia-oliveira)
Posts: 43
Trusted Member
Topic starter
 

Segue modelo

Eu (Alexandrevba), compactei para você, tente lembra nas próximas postagem faça como recomendado

 
Postado : 29/04/2012 2:16 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Favor ler as regras!!!! os arquivos devem ser compactados!!!

viewtopic.php?f=7&t=203

Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

 
Postado : 29/04/2012 2:26 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

se entendi o que quer é só usar a formula SE

 
Postado : 29/04/2012 3:28 pm
(@natalia-oliveira)
Posts: 43
Trusted Member
Topic starter
 

Isso só que preciso de uma macro pois são muitos itens.

 
Postado : 30/04/2012 5:32 am
(@natalia-oliveira)
Posts: 43
Trusted Member
Topic starter
 

Preciso que fique mais ou menos assim ...

IF A2=0
Then a2=linha anterior
else
proxima linha

e assim até a linha 2.000

 
Postado : 30/04/2012 7:23 am
(@natalia-oliveira)
Posts: 43
Trusted Member
Topic starter
 

Consegui fazer ...
Fiz a seguinte macroo ....
Sub FillCol()
For i = 1 To Selection.Cells.Count - 1
j = i + 1
If Selection.Cells(j, 1).Value = "" Then
Selection.Cells(j, 1).Value = Selection.Cells(i, 1).Value
End If
Next i
End Sub

Obrigada mesmo assim pela ajuda ..

 
Postado : 30/04/2012 9:28 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Acho que daria para usar essa dica no seu caso sem a necessidade de macros:

http://www.planilhando.com.br/forum/viewtopic.php?f=28&t=4244

 
Postado : 01/05/2012 7:09 am