Ayuda con buscarv

Hola a todos.

Tengo la siguiente macro que me busca un número en un archivo y me
dice si existe o no existe:

Dim nom As String
Dim c As Long
Dim r As Range

c = Val(InputBox("Digite el número de cédula", "Cédula"))
Set r = Worksheets("1").Range("a1:a3436")
On Error Resume Next

nom = Application.WorksheetFunction.VLookup(c, r, 2, 0)
If Err.Number = 0 Then
MsgBox "el empleado existe"

Else
MsgBox "el empleado no existe"
Err.Clear
End If
On Error GoTo 0

End Sub

Pero no se que hago para que me active la celda donde encuentra el
número.

De antemano gracias a todos.

Boris Marx

On 7 feb, 23:14, "marx" wrote:





> Hola a todos.

> Tengo la siguiente macro que me busca un número en un archivo y me
> dice si existe o no existe:

> Dim nom As String
> Dim c As Long
> Dim r As Range

> c = Val(InputBox("Digite el número de cédula", "Cédula"))
> Set r = Worksheets("1").Range("a1:a3436")
> On Error Resume Next

> nom = Application.WorksheetFunction.VLookup(c, r, 2, 0)
> If Err.Number = 0 Then
> MsgBox "el empleado existe"

> Else
> MsgBox "el empleado no existe"
> Err.Clear
> End If
> On Error GoTo 0

> End Sub

> Pero no se que hago para que me active la celda donde encuentra el
> número.

> De antemano gracias a todos.

> Boris Marx

Prueba con este código
Dim nom As String
Dim c As Long
Dim r As Range
Dim celda As Range
Dim celda1 As String
Dim valida As Boolean
valida = False
c = Val(InputBox("Digite el número de cédula", "Cédula"))
Set r = Worksheets("1").Range("a1:a3436")
For Each celda In r
If celda.Value = c Then
celda1 = celda.Address
valida = True
End If
Next
If valida Then
MsgBox "el empleado existe"
Worksheets("1").Range(celda1).Select
Else
MsgBox "el empleado no existe"
End If- Ocultar texto de la cita -

- Mostrar texto de la cita -