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 | 
 

 Macro rodando em sub rotina

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



Mensagens : 21
Data de inscrição : 22/10/2012

MensagemAssunto: Macro rodando em sub rotina   Qui Nov 22, 2012 2:15 pm

Bom dia

A macro abaixo foi desenvolvida pelo McJota, aqui do fórum em 27 de outubro e atende 100% minha necessidade. Um outro post aqui do fórum, faz um pedido de ajuda com macro semelhante pelo santa.ars, e prontamente atendido. Então queria saber do alexandrevba se tem como implementar essa parte do código do santa.ars, na macro do McJota:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1")) Is Nothing Or Target.Cells.Count > 1 Then
Exit Sub
Else
Call SuaMacro
End If
End Sub

Para que rodasse a macro do McJota, sem a necessidade do botão executar e em caso positivo, onde seria a inserção da macro do McJota.

Macro do McJota

Sub Valor()
Dim y As String
Dim x As Range
Dim j As Range
On Error GoTo erro
Application.EnableEvents = False
ActiveCell.Offset(0, -1).Select
Set x = ActiveCell
y = ActiveCell.Value
ThisWorkbook.Worksheets("Plan2").Activate
With Sheets("Plan2").Range("S1:S10")
Set c = .Find(y, Lookat:=xlWhole)
If Not c Is Nothing Then
c.Select
Set j = ActiveCell
Range("U" & j, "AD" & j).Select
Selection.Copy
ThisWorkbook.Worksheets("Plan1").Activate
ActiveCell.Offset(0, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(0, -3).Select
Application.EnableEvents = True
End If
End With
erro:
Exit Sub
End Sub
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: Macro rodando em sub rotina   Qui Nov 22, 2012 4:37 pm

Bom dia!!

Qual célula na sua planilha que sempre recebe alteração (como a macro vai rodar??? tova a vez que uma célula vai sofre alteração??).
se for substitua a linha por
Código:
If Intersect(Target, Range("SuaCelulaAqui")) Is Nothing Or Target.Cells.Count > 1 Then

Aqui nesta linha coloque o nome de sua macro
Código:
Call SuaMacro
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: Macro rodando em sub rotina   Qui Nov 22, 2012 4:37 pm

Bom dia!!

Qual célula na sua planilha que sempre recebe alteração (como a macro vai rodar??? tova a vez que uma célula vai sofre alteração??).
se for substitua a linha por
Código:
If Intersect(Target, Range("SuaCelulaAqui")) Is Nothing Or Target.Cells.Count > 1 Then

Aqui nesta linha coloque o nome de sua macro
Código:
Call SuaMacro
depois do comando CALL
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Xanel



Mensagens : 21
Data de inscrição : 22/10/2012

MensagemAssunto: Re: Macro rodando em sub rotina   Qui Nov 22, 2012 10:43 pm

Boa tarde

Vou fazer a implementação e depois posto o resultado.

Abraco
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro rodando em sub rotina   Hoje à(s) 1:32 pm

Voltar ao Topo Ir em baixo
 
Macro rodando em sub rotina
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» wave 723 nao ta rodando vedeos do youtube
» [TUTORIAL] Aplicativos rodando em Background e Ativar Landscape e Rotate
» Wave 723 rodando Android.
» azamerica s1001 abrindo 43w ceu 70w c2 rodando liso iks sks
» 3DS já pode ser pirateado

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: