Notifications
Clear all

Macro Copiar e colar especial

17 Posts
2 Usuários
0 Reactions
3,984 Visualizações
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Estou com uma planilha que contem dados e nas colunas E2 e F2 estão com formulas.
Utilizei a opção gravar macro e quando rodo ela dá erro.
Porem só não consigo fazer com que a formula copie dados até a ultima linha com informação.
A partir da E3 e F3 tem que aparecer somente só valores.

 
Postado : 30/12/2012 2:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Poste seu arquivo compactado!!
Lembre-se de usar a Pesquisa e a Biblioteca.

Att

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

 
Postado : 30/12/2012 2:50 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi o que deseja?

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

 
Postado : 30/12/2012 2:53 pm
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

A formula está na guia lcto nas colunas e2 e f2. preciso que ela copie a formula até a ultima linha com dados.

 
Postado : 30/12/2012 3:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Talvez só para mim, que uso 2007, mas há algo de errado com seu anexo! :roll:
Att

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

 
Postado : 30/12/2012 3:26 pm
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Quando utilizei a opção gravar macro eu tinha informações até a linha 134, porem quando eu incluo mais informações na planilha , suponhamos que seja até a linha 140 e quando mando atualizar ela vai até a linha 134, as outras linha que foram preenchidas a formula não se aplica.

 
Postado : 30/12/2012 3:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

O que eu quero dizer é, ao tentar abrir seu arquivo gerou um conflito, talvez por causa de minha versão, ou algo assim !!
Resumeindo eu não consegui ver o conteudo de seu anexo!
Att

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

 
Postado : 30/12/2012 3:50 pm
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Vou enviar o arquivo fonte macro
Quando eu utilizei a opção gravar macro tinha dados das colunas até a linha 134.
Preciso somente do comando que se eu colocar dados até a linha 150, quando eu salvar automaticamente ele preencha até a linha 150 e não até linha 134, conforme gerou no corpo da macro

Sub Atualiza_Lcto()
'
' Atualiza_Lcto Macro
' Autor Denilson Roberto de Souza
'

'
    Range("E2:F2").Select
    Selection.AutoFill Destination:=Range("E2:f134")
    Range("E2:f134").Select
    Range("E3:f134").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
 
Postado : 30/12/2012 3:59 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!
Veja se é isso....

Option Explicit
Sub NaoEntendiSuaDuvida()
Range("E2:F2").Select
Selection.Autofill Destination:=Range("E2:F" & Range("D65536").End(xlUp).Row)
End Sub

Existem detalhes que com o arquivo ou bem descrito :(

Att

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

 
Postado : 30/12/2012 5:04 pm
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Caso queira que a partir da linha e3:f3 apareça somente valores no lugar da formula

Option Explicit
Sub NaoEntendiSuaDuvida()
Range("E2:F2").Select
Selection.Autofill Destination:=Range("E2:F" & Range("D65536").End(xlUp).Row)
End Sub

 
Postado : 30/12/2012 8:16 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tente assim:

Sub NaoEntendiSuaDuvida()
Range("E2:F2").Select
Selection.AutoFill Destination:=Range("E2:F" & Range("D65536").End(xlUp).Row)
Range("E3:F" & Range("D65536").End(xlUp).Row).Select
    Selection.Copy
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("E3").Select
End Sub

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

 
Postado : 31/12/2012 7:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente assim

Sub NaoEntendiSuaDuvida()
Dim LR As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
Range("E2:F2").AutoFill Destination:=Range("E2:F" & LR)
With Range("E3:F" & LR)
    .Value = .Value
End With
End Sub

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

 
Postado : 31/12/2012 8:05 am
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

As duas macros para copia de formula deram certas, porem, a planilha só atualiza se a guia estiver aberta.
Tentei o formulário em outra guia , porem os dados ficam gravados e a informação não é atualizada.
Tem como eu definir na macro em qual guia ela deve atualizar.

 
Postado : 31/01/2013 8:43 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi :?: :mrgreen:

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

 
Postado : 01/02/2013 6:03 am
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Resumindo, tem como definir na formula em qual guia ele deve definir o uso da macro.

 
Postado : 04/02/2013 6:54 pm
Página 1 / 2