- 18 Out 2018 às 08:06
#37848
Galera, estou usando uma macro vinculada a um CommandButton Click. Entretanto, quando chega em Range ("A5").Select, ele me solicita depurar. Não consigo identificar o que falta no comando para funcionar corretamente.
O engraçado que quando executo o mesmo comando através de módulo funciona perfeitamente. Conseguem me ajudar?
Private Sub CommandButton2_Click()
'
' GERAR_PROPOSTA Macro
'
'
'Seleciona, copia e cola em uma nova planilha e ordena por modelo, TP e preço
Range("A64").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Range("A5").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Columns("H:H").Select
Neste comando dá certo.
Sub GERAR_PROPOSTA()
'
' GERAR_PROPOSTA Macro
'
'
'Seleciona, copia e cola em uma nova planilha e ordena por modelo, TP e preço
Range("A64").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Worksheets.Select
Range("A5").Select
ActiveSheet.Paste
Cells.Select
O engraçado que quando executo o mesmo comando através de módulo funciona perfeitamente. Conseguem me ajudar?
Private Sub CommandButton2_Click()
'
' GERAR_PROPOSTA Macro
'
'
'Seleciona, copia e cola em uma nova planilha e ordena por modelo, TP e preço
Range("A64").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Range("A5").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Columns("H:H").Select
Neste comando dá certo.
Sub GERAR_PROPOSTA()
'
' GERAR_PROPOSTA Macro
'
'
'Seleciona, copia e cola em uma nova planilha e ordena por modelo, TP e preço
Range("A64").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Worksheets.Select
Range("A5").Select
ActiveSheet.Paste
Cells.Select