MACRO PARA SELECIONAR UMA LINHA INTEIRA
Fala pessoal
Esse vba tá me dando um trabalho do cacete.
Agora preciso fazer um macro pra executar na planilha toda vez que ela é aberta.
Preciso fazer o seguinte:
Tenho uma linha no excel com diversas fórmulas. Preciso enviá-la por e-mail a um gerente, mas com as fórmulas, ela fica mais pesada. Então estou copiando uma linha inteira(ela tem mais de 15 mil) e usando o Colar Especial para colar somente os valores.
Tentei gravar isso em um macro, mas ele grava o número da linha que eu selecionei! E quando eu executo a macro, ele fica fazendo a operação diversas vezes na mesma linha.
tentei mudar o códio da macro pra colocar um FOR e mudar a linha a cada operação mas dá erro.
Alguem sabe como fazer essa macro?
segue o código da macro:
Esse vba tá me dando um trabalho do cacete.
Agora preciso fazer um macro pra executar na planilha toda vez que ela é aberta.
Preciso fazer o seguinte:
Tenho uma linha no excel com diversas fórmulas. Preciso enviá-la por e-mail a um gerente, mas com as fórmulas, ela fica mais pesada. Então estou copiando uma linha inteira(ela tem mais de 15 mil) e usando o Colar Especial para colar somente os valores.
Tentei gravar isso em um macro, mas ele grava o número da linha que eu selecionei! E quando eu executo a macro, ele fica fazendo a operação diversas vezes na mesma linha.
tentei mudar o códio da macro pra colocar um FOR e mudar a linha a cada operação mas dá erro.
Alguem sabe como fazer essa macro?
segue o código da macro:
Sub Macro2()
[ô]
[ô] Macro2 Macro
[ô]
For i = 1 To 100
Range([Ô]A(i):BC19[Ô]).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
ninguém? hehehe sei que é difiçil achar quem conheca bem as diferenças entre vb e vba mas...
olha não seria assim
Sub Macro2()
[ô]
[ô] Macro2 Macro
[ô]
For i = 1 To 100
Range([Ô]A[Ô] & i & [Ô]:BC19[Ô]).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Tópico encerrado , respostas não são mais permitidas