UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

emiliex11


Buenas tardes
En el formulario que esta en la imagen de la hoja tengo un boton para modificar datos . He mantenido el mismo codigo de buscar , pero lo que hace es añadir un nuevo registro y lo que quiero es que modifique solo ese registro
Muchas gracias por vuestra desinteresada respuestas
Saludos a todos

Private Sub imgModificar_Click()
On Error Resume Next
Dim buscar, i, DATO
Dim fila As Integer
fila = Hoja2.Range("C" & Rows.Count).End(xlUp).Row
DATO = InputBox("Digite el Localizador que desea consultar", "Consulta  por localizador")
txtLocalizador = (DATO)
For i = 6 To fila
  
   
    If Val(Hoja2.Range("L" & i)) = Val(txtLocalizador) Then
   
        TxtEntrada.Value = Hoja2.Range("C" & i)
        txtSalida.Value = Hoja2.Range("D" & i)
        txtHab.Value = Hoja2.Range("E" & i)
        txtAdul.Value = Hoja2.Range("F" & i)
        txtNiño.Value = Hoja2.Range("G" & i)
        txtNombre.Value = Hoja2.Range("I" & i)
        txtAgencia.Value = Hoja2.Range("J" & i)
        txtReg.Value = Hoja2.Range("K" & i)
        txtObservaciones.Value = Hoja2.Range("M" & i)
        txtorden.Value = Hoja2.Range("A" & i)
       
    End If
Next i
                     
End Sub

jhon1904

avatar
Hola, Emiliex11

te dejo una solucion espero te sirva

trata de subir un archivo a una base de datos en la nube como Dropbox, Mega la que se le facilite ya que no hay espacio en el foro.

te dejo un link de descarga saludos,


Archivo Excel


saludos,


_________________
Jhon Mayorquin
https://exceljohnmayorquin.blogspot.com.co/

emiliex11


Buenos dias John
Envio enlace de mega con el ejemplo
He hecho otros cambios en el codigo ,pero sigo igual
Muchas gracias de nuevo
el enlace que me has mandado no he podido abrirlo
Saludos

https://mega.nz/#!cZUxwbjJ!fJYAn3VvjC4Ex-rx3ET4_hkESXWiraBAlHLM5Bb-nyI

jhon1904

avatar
Hola,

Prueba con este enlace

https://mega.nz/#!JDw3QK4C!JoPHZ3ivYyTv-NL6REKEWel197niR4aayZY-xMVqb4U

O medas tu correo

saludos,


_________________
Jhon Mayorquin
https://exceljohnmayorquin.blogspot.com.co/

emiliex11


Buenas tardes
Muchas gracias Jhon todo perfecto, es lo que queria
Reitero las graacias por todo lo que estoy aprendiendo con vosotros
Un saludo
Emilio

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.