Macro para inserir linha

2024 - VBA & Macros

Post Recente por Edcronos 10 anos atrás

5 Posts

3 Usuários

0 Reactions

599 Visualizações

RSS

sj_martins

(@sj_martins)

Posts: 2

New Member

Topic starter

Olá Pessoal, muito boa tarde!! Como vcs estão? Espero que muito bem!!

Estou tentando criar uma macro de modo que, a partir da célula selecionada, seja inserida uma linha, e copie o conteúdo da linha acima e delete as informações;.

Na verdade é só inserir uma linha!!

Estou tentando fazer mas ela só funciona na célula específica da macro. Tem como fazer com ela funcione a partir de qualquer célula na planilha?
Sou muito ruim nisso =(

Sub Inserir_Linha()
'
' Inserir_Linha Macro
'

'
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.ClearContents
Range("C6").Select
Selection.Copy
Range("C7").Select
ActiveSheet.Paste
Range("A7").Select
Application.CutCopyMode = False
End Sub

Abs!

Postado : 05/07/2014 1:18 pm

Edcronos

(@edcronos)

Posts: 1006

Noble Member

poste um exemplo da planilha com indicação do que vc quer

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

Postado : 05/07/2014 1:30 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Se for inserir a linha.

Sub AleVBA_12394()
ActiveCell.Offset(1).EntireRow.Insert
End Sub

Att

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

Postado : 05/07/2014 1:34 pm

sj_martins

(@sj_martins)

Posts: 2

New Member

Topic starter

Gde garoto!
Coloquei o anexo.

Independente da onde esteja a célula selecionada, ela sempre faz a mesma coisa, que é na célula A7
Por exemplo, se eu quiser inserir uma linnha para outra empresa, na célula A15, não funciona. Ele vai voltar para a célula A7.

alexandre, tentei por aqui mas deu erro

Obrigado!!

teste1.xlsm

Postado : 06/07/2014 10:53 am