busqueda en visual basic 6.0

[harot]

amigos del foro una gran consulta que para muchos sera algo facil, tengo un pequeño programita de visual con excel el cual registra busca y elimina personal, me lo paso un amigo en otro foro era un programita de inventario y modifique , lo que necesito es que en vez de buscar por el rut, lo haga por el nombre e intentado con lo poco que se de hacerle modificacion y hasta ahora todo bien excepto por este detalle alguien me puede ayudar muestro el codigo a continuacion:

Código: [Seleccionar]

Private Sub CommandButton3_Click()
    Dim Fila As Integer
    Dim Final As Integer
    Dim Registro As Integer
   
       
        For Fila = 1 To 1000
            If Hoja11.Cells(Fila, 1) = "" Then
                Final = Fila
                Exit For
            End If
        Next
       
       
        For Registro = 2 To Final
            If Hoja11.Cells(Registro, 1) = Val(Me.txt_CodProd) Then
                Me.txt_CodProd.BackColor = &H8080FF
                MsgBox ("Registro ya existe" + Chr(13) + "Ingrese un RUT diferente")
                Me.txt_CodProd.SetFocus
                Exit Sub
                Exit For
            End If
        Next
       
      If MsgBox("Son correctos los datos?" + Chr(13) + "Desea proceder?", vbOKCancel) = vbOK Then
                Me.txt_CodProd.BackColor = &HFFFFFF
                Hoja11.Cells(Final, 1) = Val(Me.txt_CodProd)
                Hoja11.Cells(Final, 3) = Me.txt_validador
                Hoja11.Cells(Final, 4) = Me.txt_Nombre
                Hoja11.Cells(Final, 5) = Me.txt_instalacion
                Hoja11.Cells(Final, 6) = Me.txt_inicio
                Hoja11.Cells(Final, 7) = Me.txt_termino
                Hoja11.Cells(Final, 8) = Me.txt_Direccion
                Hoja11.Cells(Final, 9) = Me.txt_oficina
                Hoja11.Cells(Final, 10) = Me.txt_Comuna
                Hoja11.Cells(Final, 11) = Me.txt_ciudad
                Hoja11.Cells(Final, 12) = Me.txt_telfijo
                Hoja11.Cells(Final, 13) = Me.txt_contacto1
                Hoja11.Cells(Final, 14) = Me.txt_puesto1
                Hoja11.Cells(Final, 15) = Me.txt_celularcontacto1
                Hoja11.Cells(Final, 16) = Me.txt_telfijocontacto1
                Hoja11.Cells(Final, 17) = Me.txt_correo1contacto1
                Hoja11.Cells(Final, 18) = Me.txt_correo2contacto1
                Hoja11.Cells(Final, 19) = Me.txt_contacto2
                Hoja11.Cells(Final, 20) = Me.txt_puesto2
                Hoja11.Cells(Final, 21) = Me.txt_celularcontacto2
                Hoja11.Cells(Final, 22) = Me.txt_telfijocontacto2
                Hoja11.Cells(Final, 23) = Me.txt_correo1contacto2
                Hoja11.Cells(Final, 24) = Me.txt_correo2contacto2
                Hoja11.Cells(Final, 25) = Hoja8.Range("G1")
                '-----------------------------------------------
                Me.txt_CodProd = ""
                Me.txt_validador = ""
                Me.txt_Nombre = ""
                Me.txt_instalacion = ""
                Me.txt_inicio = ""
                Me.txt_termino = ""
                Me.txt_Direccion = ""
                Me.txt_oficina = ""
                Me.txt_Comuna = ""
                Me.txt_ciudad = ""
                Me.txt_telfijo = ""
                Me.txt_contacto1 = ""
                Me.txt_puesto1 = ""
                Me.txt_celularcontacto1 = ""
                Me.txt_telfijocontacto1 = ""
                Me.txt_correo1contacto1 = ""
                Me.txt_correo2contacto1 = ""
                Me.txt_contacto2 = ""
                Me.txt_puesto2 = ""
                Me.txt_celularcontacto2 = ""
                Me.txt_telfijocontacto2 = ""
                Me.txt_correo1contacto2 = ""
                Me.txt_correo2contacto2 = ""
                Me.txt_CodProd.SetFocus
            Else
                Exit Sub
    End If
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub


[Alex Rodríguez]

Hola, por favor para pegar código pulsar el botón # del foro e insertar el código entre las etiquetas [ code ] ... [ / code] que aparecen. Luego pulsar previsualizar y si está ok, pulsar publicar.

Sobre el código que has puesto, parece que es el código para insertar datos en la hoja de excel. Sin embargo tu pregunta parece estar referida a realizar búsquedas, que quizás esté en otra parte del código.

La búsqueda por RUT tiene la ventaja de que el rut es único, digamos un identificador. Si buscas 4584734 por ejemplo, o está o no está. Sin embargo, buscar por nombre presenta más problemas. Si buscas "Juan Fernandez" quizás exista "Juan Alberto Fernandez" ó "Juan Fernández" (con tilde, sin tilde, etc.) con lo cual es posible que no te devuelva una coincidencia aún existiendo la persona.

De cualquier forma, pega el código correspondiente o si es muy extenso, adjunta los archivos pulsando en "Opciones adicionales" y adjuntar, debajo de la ventana de texto del editor del foro. Saludos!

[harot]

amigo me gustaria enviarte el archivo de excel para que lo vieras pesa un mega por lo cual no puedo enviarlo dejo el link por si me ayudas https://onedrive.live.com/redir?resid=5106B0D523C7B15C%21506 para abrir USUARIO: harot PASS:020278

de ante mano muchas gracias

[Ogramar]

He intentado abrir el archivo pero no logro ejecutar, creo que por ser para 64 bits. He visto el código como código de Visual Basic para aplicaciones. No es exactamente VBA pero aquí encontrarás información sobre distintos aspectos de programación en Visual Basic: http://aprenderaprogramar.com/index.php?option=com_content&view=category&id=37&Itemid=61