Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Converter Macro para VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Mitterrand



Mensagens : 36
Data de inscrição : 03/02/2012

MensagemAssunto: Converter Macro para VBA   Seg Abr 16, 2012 4:52 am

Boa noite.

Gostaria de saber se tem como transformar uma Macro que é executada ao clicar em um determinado botão em códigos VBA. O objetivo é fazer com que ao executar a ação não seja visível o ir e vir (por exemplo o copiar de célular em uma planilha e colar em uma outra).
Segue abaixo o exemplo prático:

Sub Copia_cola()
'
' Copia_cola
'
Sheets("AAA").Select
Range("C17:H17").Select
Selection.Copy
Sheets("BBB").Select
Range("C22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("21:21").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C21").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("AAA").Select
Selection.ClearContents
Range("C17").Select
End If
End Sub

Esta Macro copia um intervalo em uma planilha e leva para outra. Só que quando ela é executada é possível ver a ação, e é exatamente isso que não quero. Gostaria que a ação fosse executada sem que o usuário tivesse que ver.

Obrigado mais uma vez!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Converter Macro para VBA   Seg Abr 16, 2012 3:40 pm

Bom dia!!


Faça assim......agora eu não entendi um End if sem IF
Código:
Sub Copia_cola()
'
' Copia_cola
'
Application.ScreenUpdating = False
Sheets("AAA").Select
Range("C17:H17").Select
Selection.Copy
Sheets("BBB").Select
Range("C22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("21:21").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C21").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("AAA").Select
Selection.ClearContents
Range("C17").Select
End If
Application.ScreenUpdating = True
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Mitterrand



Mensagens : 36
Data de inscrição : 03/02/2012

MensagemAssunto: Re: Converter Macro para VBA   Seg Abr 16, 2012 9:16 pm

Obrigado amigo! E sobre o If, é que tem uma condição antes da ação.



alexandrevba escreveu:
Bom dia!!


Faça assim......agora eu não entendi um End if sem IF
Código:
Sub Copia_cola()
'
' Copia_cola
'
Application.ScreenUpdating = False
Sheets("AAA").Select
Range("C17:H17").Select
Selection.Copy
Sheets("BBB").Select
Range("C22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("21:21").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C21").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("AAA").Select
Selection.ClearContents
Range("C17").Select
End If
Application.ScreenUpdating = True
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Converter Macro para VBA   Hoje à(s) 10:50 pm

Voltar ao Topo Ir em baixo
 
Converter Macro para VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Converter sisx para jar (messenger)
» É possível converter exe para iso ou cso?
» WAVE para MIDI
» Tem como importar modelagens feitas no Google SketchUp para o GM?
» Erro ao converter .gmk para .gmx

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: