Encontrar Valor Mostrar MsgBox

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

Encontrar Valor Mostrar MsgBox

Mensagem por alexandrevba em Dom Mar 30, 2014 9:45 am

Bom dia!!

Código:
Sub EncontrarValor()

'Este exemplo percorre coluna "A", e procura
'um valor selecionado na caixa de entrada e exibi o endereço com uma MsgBox

    Dim r As Range
    Dim c As Range
    Dim s As String
    Dim ms As String
    Set r = Range("A1", Range("A65536").End(xlUp))
    ms = "O valor foi encontrado em  "
    s = InputBox("Procurando valores", "Procurar", "Digite um valor")

    For Each c In r.Cells
        If c = s Then MsgBox ms & c.Address
    Next c

End Sub

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum