Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Chegar seleção de c...
 
Notifications
Clear all

Chegar seleção de células para o lado

 
2024 - VBA & Macros
Post Recente por bellizzi 10 anos atrás
3 Posts
2 Usuários
0 Reactions
1,010 Visualizações
RSS
 bellizzi
(@bellizzi)
Posts: 33
Eminent Member
Topic starter
 

Pessoal, bom dia.

Possuo o seguinte código:

Range(Selection, Selection.End(xlToRight)).Select
Selection.End(xlToRight).Select
Range(Selection, Cells(ActiveCell.Row, "ZZ")).Select
Range(ActiveCell.Address, "XFD8").Cut Destination:=Range("H8:XEW8")
Range("I8").Select

Ele serve para deslocar as células selecionadas para o lado. Porém não esta funcionando como eu gostaria, pois sempre perco informação.
Gostaria que ele fizesso o seguinte, a seleção irá deslocar toda uma coluna para traz. Exemplo : Se a seleção começa na coluna D, quero que seja deslocado tudo e passe a começar na coluna C.

Desde já um abraço e obrigado a todos.

 
Postado : 13/02/2015 8:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Sinceramente eu não entendi.

Sub naoEntende()
ActiveCell.EntireColumn.Offset(0, -1).Insert
End Sub

Att

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

 
Postado : 13/02/2015 9:45 am
 bellizzi
(@bellizzi)
Posts: 33
Eminent Member
Topic starter
 

Boa tarde!!

Sinceramente eu não entendi.

Att

Segue planilha de exemplo.

Tive apenas de alterar um pouco do código com relação as células. Mas faz a mesma coisa que expliquei antes

 
Postado : 13/02/2015 11:02 am
Forum Jump:
  Tópico Anterior
Próximo Tópico