Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
UPGRADE em MACRO (r...
 
Notifications
Clear all

UPGRADE em MACRO (replicar colagem)

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
537 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 
Sub CopiarFICHAS()

Range("J3:AG2000").Copy

[color=#0000BF]With Range("BA3")[/color]
With Range("CJ3")
With Range("DS3")
With Range("FB3")
With Range("GK3")
With Range("HT3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

End Sub

.
A Macro acima funciona perfeitamente com uma ação (em azul) ... como preciso colar a mesma coisa em vários lugares, tentei adicionar os outros lugares, mas deu erro!! ... É que, em cada local que vou colar, preciso classificar por ordens diferentes!!
.
Alguém pode dar uma luz para a macro acima fazer o que sugeri?? ... Obrigado!!
.

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

 
Postado : 01/03/2017 9:36 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
PS: posso colocar um botão para cada Macro colar em um lugar diferente ... mas acredito que não deve ser difícil colocar tudo em um botão só!! ... Só eu, um zero em macros kk, não consigo kk!!!
.

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

 
Postado : 01/03/2017 9:57 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Tenta assim


Sub CopiarFICHAS()

Range("J3:AG2000").Copy

With Range("BA3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With
With Range("CJ3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

With Range("DS3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

With Range("FB3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

With Range("GK3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

With Range("HT3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 01/03/2017 10:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
MPrudencio, SHOW!! ... Valeu!!!
.

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

 
Postado : 01/03/2017 10:21 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A Macro abaixo funciona perfeitamente, mas sempre que preciso acrescentar uma coluna, tenho que reajustar a Macro TODA (matrizes e células de referência)!!
.
Nada tão grave diante do trabalho maravilhoso que ela faz .... mas vai que alguém tem uma solução mágica que ajusta as matrizes e células de referência automaticamente!! k

Sub CopiarFICHAS()

Range("J3:AG3000").Copy

With Range("BC3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With
With Range("CL3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

With Range("DU3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

With Range("FD3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

With Range("GM3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

End Sub
Sub ClassificarJUL()

Range("BC2:BZ3000").Sort _
Key1:=Range("BC2"), order1:=xlDescending, _
Key2:=Range("BP2"), order2:=xlAscending, _
Header:=xlYes
MsgBox "Classificado com sucesso!", vbInformation, "OK"
Range("BM2").Select

End Sub
Sub ClassificarAGO()

Range("CL2:DI3000").Sort _
Key1:=Range("CM2"), order1:=xlDescending, _
Key2:=Range("CY2"), order2:=xlAscending, _
Header:=xlYes
MsgBox "Classificado com sucesso!", vbInformation, "OK"
Range("CL2").Select

End Sub
Sub ClassificarSET()

Range("DU2:ER3000").Sort _
Key1:=Range("DW2"), order1:=xlDescending, _
Key2:=Range("EH2"), order2:=xlAscending, _
Header:=xlYes
MsgBox "Classificado com sucesso!", vbInformation, "OK"
Range("DU2").Select

End Sub
Sub ClassificarOUT()

Range("FD2:GA3000").Sort _
Key1:=Range("FG2"), order1:=xlDescending, _
Key2:=Range("FQ2"), order2:=xlAscending, _
Header:=xlYes
MsgBox "Classificado com sucesso!", vbInformation, "OK"
Range("FD2").Select

End Sub
Sub ClassificarNOV()

Range("GM2:HJ3000").Sort _
Key1:=Range("GQ2"), order1:=xlDescending, _
Key2:=Range("GZ2"), order2:=xlAscending, _
Header:=xlYes
MsgBox "Classificado com sucesso!", vbInformation, "NOVEMBRO OK"
Range("GM2").Select

End Sub

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

 
Postado : 05/03/2017 6:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico