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 | 
 

 Valor em células para executar macro

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



Mensagens: 21
Data de inscrição: 14/08/2011

MensagemAssunto: Valor em células para executar macro   Ter Dez 20, 2011 6:58 pm

Boa tarde pessoal,

Preciso de uma macro que verifique se há um determinado valor em um intervalo de células, se a macro encontrar o valor X ela executa outra macro.
EX: Se a "Macro A" achar os valor 5 ou 6 nas céluas A1:A200 (Celulas A1 até A200), executa "Macro B".

Quero destacar que tem que ser em um intervalo de células, e sem somar o valor de uma com a outra.

Chegei a fazer uma rotina:

Selec Case Range("A1").Value
Case "5": MsgBox "Cinco"
Case "6": MsgBox "Seis"
End Select


Porem verifica somente o valor da A1, quando tentei colocar Range("A1:A200"), apresentou erro em tempo de execução "13" Tipos imcompátiveis.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Valor em células para executar macro   Qua Dez 21, 2011 10:40 pm

Boa noite!!!

Caso necessário poste seu exemplo...

...Veja se é isso.

Código:
Sub Valor_ExcutarMacro()
        Dim kf As Long,

        Sheets("Plan1").Select
        Qtde = [A2].CurrentRegion.Rows.Count
        kf = 2
        For i = 2 To Qtde
        If Sheets("Plan1").Cells(i, "A").Value = 5 _
            And (Sheets("Pan1").Cells(i, "A").Value = 6) Then
                Call SuaMacroB 'Aqui (na cor de fonte negro), terá o nome da "Macro B"
          ks = ks + 1
            End If
         
        Next
       
    End Sub

Dê retorno...At++++ santa
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Erikson



Mensagens: 21
Data de inscrição: 14/08/2011

MensagemAssunto: Re: Valor em células para executar macro   Qui Dez 22, 2011 2:05 am

Alexandre boa noite,
Apresentou erro na sintaxe (Dim kf As Long,).

Mas cara muito obrigado pela atenção, até que enfim consegui achar a solução para o problema:

Código:
Sub buscavalor2()

    Dim UltimaLinha As Long

    'Grava a ultima linha preenchida
    UltimaLinha = Cells(Rows.Count, 7).End(xlUp).Row

    'Percorre a lista
    For i = 1 To UltimaLinha
        'Verifica se o valor é 5
        If Cells(i, 7).Value = 5 Then
            'Roda a macro
            Macro3
        'Verifica se o valor é 6
        ElseIf Cells(i, 7).Value = 6 Then
            'Roda a macro
            Macro2
        End If
    Next
End Sub

Abraço.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Valor em células para executar macro   Qui Dez 22, 2011 9:49 am

Bom dia!!!

..Erikson antes havia feito um pequeno teste e funcionou, depois tive que editar o topico por isso ficou uma virgula -->Dim kf As Long, <---
O que deve ter gerado o erro.

Mas o que importa é que além de ter retornado resolveu seu problema..valeu..parabéns

Até a próxima
At...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 

Valor em células para executar macro

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1

 Tópicos similares

-
» [tutorial] basico vba macro (libreoffice)
» Abrir o Gerenciador de Tarefas Pelo Executar
» Perfil para EMO
» Regras Para Cop's
» Combinações para BK

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 ::  :: -