Excel - Buscar informaciòn en hoja con macros

   
Vista:
Imágen de perfil de Emiliano

Buscar informaciòn en hoja con macros

Publicado por Emiliano (2 intervenciones) el 29/06/2017 21:48:47
Hola...
Estoy practicando algo de macros, y se me presento lo siguiente:
Lleno informaciòn en una hoja de excel con varios datos, incluido una imagen.

Celda A --- Celda B --- Celda C --- Celda D
Cedula --- Nombre --- Apellido --- Imagen


Tengo un formulario en VB

macros_practica

Y para buscar

Al ingresar su numero de cédula, debe realizar la búsqueda en la hoja de excel y presentar en las siguientes cajas de texto en el formulario.


Les agradeceria mi me dejan un link de informaciòn para realizar lo planteado o si me explican como debería realizar la búsqueda....
Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Buscar informaciòn en hoja con macros

Publicado por Andres Leonardo (969 intervenciones) el 29/06/2017 23:01:46
Espero esto te ayude
Esto busca incluso muestra si existe mas de una vez y muestra la ultima coincidencia, te sirve si en tu logica de ingreso el registro es UNICO.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub CmdBuscar_Click()
Dim id_nombre, idbusca As String
Dim UltimaFilaEncontrado As Integer
Dim encontrado As Range
Dim NumRows As Long
Dim Fila As Integer
 
 
' si el valor a buscar no esta ingresado salgo.....
If txtIdentificacion.Text = "" Then
   MsgBox "Digita el N° de indentidad a Buscar", vbCritical
   Exit Sub
End If
 
'Asigno valores a las variables
Fila = 1
UltimaFilaEncontrado = 0
 
'Aqui busco al rango  dentro de la columna A   -- es decir de A1 hasta AN  de las ocupadas
ultimaFila= Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
 
Do While Fila <= ultimaFila
    If TextBox1.Text = Range("c" & Fila).Value Then ' si lo encuentro digo en que fila hasta cuando salga
            UltimaFilaEncontrado = Fila
    End If
Fila = Fila + 1
Loop
 
    'si el valor no fue encontrado seguira siendo 0 entonces no encontre nada salgo del sub ya no sirve que siga haciendo nada
    If UltimaFilaEncontrado = 0 Then
       MsgBox "Elemento NO encontrado"
       Exit Sub
    End If
 
 
 'aqui lleno todos los textos del formulario
 TextBox2 = Range("B" & UltimaFilaEncontrado).Value  'aqui cambiaras el nombre del textbox y la celda
 TextBox3 = Range("C" & UltimaFilaEncontrado).Value
 TextBox4 = Range("D" & UltimaFilaEncontrado).Value
 TextBox6 = Range("E" & UltimaFilaEncontrado).Value
 
    'Pongo el numero de coincidencias en base a la formula de abajo.... como ya valide que esto es si existe .. entro....
    TextBox9.Value = WorksheetFunction.CountIf(Sheets("usuarios").Range("c:c"), TextBox1)
 
 txtIdentificacion.SetFocus
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Emiliano

Buscar informaciòn en hoja con macros

Publicado por Emiliano (2 intervenciones) el 29/06/2017 23:06:39
Gracias por responder, lo prueba y le menciono el resultado....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad