Executar macro a partir da célula ativa
Enviado: 10 Abr 2018 às 09:55
Fala galera! Sou novo em programação e estou precisando de uma ajudinha!
Preciso montar um relatório que possui diversas informações e gostaria de automatizar uma parte. Tenho o código abaixo mas gostaria que a macro fosse executada a partir da célula que eu clicar, ou seja, a célula que estiver ativa.
Basicamente o que eu preciso é que o excel copie um intervalo de dados de uma coluna, transponha os dados na horizontal e exclua as linhas das quais eu copiei os dados. Tudo isso baseado sempre na célula ativa.
Em anexo compartilho uma planilha com um exemplo do que preciso.
Sub Macro1()
Range("A3:A4").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Rows("3:4").Select
Selection.Delete Shift:=xlUp
Range("A2").Select
End Sub
Desde já obrigado!!
Preciso montar um relatório que possui diversas informações e gostaria de automatizar uma parte. Tenho o código abaixo mas gostaria que a macro fosse executada a partir da célula que eu clicar, ou seja, a célula que estiver ativa.
Basicamente o que eu preciso é que o excel copie um intervalo de dados de uma coluna, transponha os dados na horizontal e exclua as linhas das quais eu copiei os dados. Tudo isso baseado sempre na célula ativa.
Em anexo compartilho uma planilha com um exemplo do que preciso.
Sub Macro1()
Range("A3:A4").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Rows("3:4").Select
Selection.Delete Shift:=xlUp
Range("A2").Select
End Sub
Desde já obrigado!!
