Notifications

Clear all

Copiar e colar dados

2024 - VBA & Macros

Post Recente por Fernando Fernandes 13 anos atrás

9 Posts

2 Usuários

0 Reactions

2,286 Visualizações

RSS

natalia.oliveira

(@natalia-oliveira)

Posts: 43

Eminent 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

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

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

Postado : 29/04/2012 1:32 pm

natalia.oliveira

(@natalia-oliveira)

Posts: 43

Eminent 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

Fernando Fernandes

(@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

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

Postado : 29/04/2012 2:26 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

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

Postado : 29/04/2012 3:28 pm

natalia.oliveira

(@natalia-oliveira)

Posts: 43

Eminent Member

Topic starter

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

Postado : 30/04/2012 5:32 am

natalia.oliveira

(@natalia-oliveira)

Posts: 43

Eminent 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

(@natalia-oliveira)

Posts: 43

Eminent 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