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