Colar fórmula até ú...
 
Notifications
Clear all

Colar fórmula até última linha da coluna anterior

6 Posts
4 Usuários
0 Reactions
1,941 Visualizações
(@igormdiniz)
Posts: 7
Active Member
Topic starter
 

Essa acho que é Facil para vcs !!!

Preciso copiar e colar uma célula até a ultima linha da coluna anterior, conforme abaixo.

Na coluna "A" tenho varias linhas e preciso copiar e colar fórmulas da célula B2 na linha B3 até a ultima linha da coluna A.

PRODUTO ITEM
A2 B2
A3
A4
A5
A6
A7
A8
A9
A10
A11
A12
A13
A14
A15
A16
A17
A18
A19
A20

Esse código vai ser último para usar em planilhas onde deixo a formula apenas na 1º linha e copio formula e valores para as linhas abaixo.

Grato,
Igor Diniz

 
Postado : 12/03/2016 6:27 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Basta usar a ferrramenta auto preenchimento

selecione B2

Coloque o cursor no canto inferior direito da celula o cursor vai mudar de cor e ficar preto

Basta dar dois cliques vai copiar ate a ultima linha preenchida da coluna A

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 12/03/2016 8:08 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se quiser por VBA, utilize a rotina abaixo :

Sub AutoFill()

    Dim Ultimalinha As Long
    
    Ultimalinha = Range("A" & Rows.Count).End(xlUp).Row
    
    Range("B2").AutoFill Destination:=Range("B2:" & "B" & Ultimalinha)

End Sub

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

 
Postado : 12/03/2016 8:19 pm
(@igormdiniz)
Posts: 7
Active Member
Topic starter
 

Mauro deu certo! Agora caso eu queira copiar e colar valores as da celula B4:B FIM, como faria ?

 
Postado : 12/03/2016 8:29 pm
Trindade
(@trindade)
Posts: 278
Reputable Member
 

Boa noite, igormdiniz.

Tenta assim:

Sub AutoFill()

    Dim Ultimalinha As Long
    
    Ultimalinha = Range("A" & Rows.Count).End(xlUp).Row
    
    Range("B2").AutoFill Destination:=Range("B2:" & "B" & Ultimalinha)
	
	Range("B2:" & "B" & Ultimalinha).Copy
	
	Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
		
	Application.CutCopyMode = False


End Sub

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 12/03/2016 10:34 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Eu não gosto muito de utilizar o selection, pois dependendo de onde estiver o cursor vai colar no lugar errado, para evitar isto pode determinar na rotina para onde devemos colar :

Abaixo estamos copiando e colando somete os valores para a coluna "C", se for para outra ou para a mesma é só alterar a letra .

Sub AutoFill_Copy_Values()

    Dim Ultimalinha As Long
    
    Ultimalinha = Range("A" & Rows.Count).End(xlUp).Row
    
    Range("B2").AutoFill Destination:=Range("B2:" & "B" & Ultimalinha)
   
    Range("B2:" & "B" & Ultimalinha).Copy
    
    'Se for para copiar e colar na mesma coluna, só altere as letras
    'Cola só os valores na coluna C
    ActiveSheet.Range("C2:" & "C" & Ultimalinha).PasteSpecial xlPasteValues

    Application.CutCopyMode = False

End Sub

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

 
Postado : 13/03/2016 9:54 am