Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Macro rodando em sub rotina

Ir para baixo 
2 participantes
AutorMensagem
Xanel




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

Macro rodando em sub rotina Empty
MensagemAssunto: Macro rodando em sub rotina   Macro rodando em sub rotina EmptyQui 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro rodando em sub rotina Empty
MensagemAssunto: Re: Macro rodando em sub rotina   Macro rodando em sub rotina EmptyQui 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro rodando em sub rotina Empty
MensagemAssunto: Re: Macro rodando em sub rotina   Macro rodando em sub rotina EmptyQui 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
Ir para o topo Ir para baixo
Xanel




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

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

Boa tarde

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

Abraco
Ir para o topo Ir para baixo
Conteúdo patrocinado





Macro rodando em sub rotina Empty
MensagemAssunto: Re: Macro rodando em sub rotina   Macro rodando em sub rotina Empty

Ir para o topo Ir para baixo
 
Macro rodando em sub rotina
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Rotina rodando lenta após edição da planilha
» Macro - Construir uma macro para inserir valores em um RANGE
» Ajuda Urgente para Criar Rotina em VBA.
» Macro para apagar linhas repetidas
» Macro com sons

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: