Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para inserir ...
 
Notifications
Clear all

Macro para inserir linha

 
2024 - VBA & Macros
Post Recente por Edcronos 10 anos atrás
5 Posts
3 Usuários
0 Reactions
591 Visualizações
RSS
 sj_martins
(@sj_martins)
Posts: 0
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

 
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

 
Postado : 05/07/2014 1:34 pm
 sj_martins
(@sj_martins)
Posts: 0
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
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

creio que poderia ficar melhor mas...

Sub Inserir_Linha()

L = ActiveCell.Row
L = L & ":" & L
Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

tenta isso

att

 
Postado : 06/07/2014 11:12 am
Forum Jump:
  Tópico Anterior
Próximo Tópico