Botón actualizar datos

10 envíos / 0 nuevos
Último envío
Marcela_ov
Imagen de Marcela_ov
Offline
última acción: Hace 3 días 6 horas
alta: 16/07/2017 - 19:03
Puntos: 120
Botón actualizar datos

Buen día, tengo un problema parecido al que resuelves en este post... soy nueva en esto de VBA y buscando en tutoriales y libros e ido programando una base de datos solo que al querer hechar andar el boton de actualizar no e podido se me duplican los datos o bien se guardan en otras celdas...  el boton de buscar yo lo programe de la siguiente manera...

Private Sub CommandButton2_Click()

Worksheets("BASE_DATOS").Activate

Range("A4.JF1000").Select

 Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _

   False, SearchFormat:=False).Activate

       

       

ActiveCell.Offset(0, 1).Select

TextBox2 = ActiveCell               'Nombre

 

Podrias ayudarme por favor... estoy desesperada , de ante mano gracias!!!

Llora

Cron
Imagen de Cron
Offline
última acción: Hace 10 horas 27 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8370
Hola¿Qué es exactamente lo

Hola

¿Qué es exactamente lo que quieres hacer?

 

Un saludo

Marcela_ov
Imagen de Marcela_ov
Offline
última acción: Hace 3 días 6 horas
alta: 16/07/2017 - 19:03
Puntos: 120
Hola Cron.. quiero programar

Hola Cron.. quiero programar un boton para actualizar datos... es decir los busco y quiero modificarlos... lo que me pasa es que al querer hacerlo se me duplican... y no e encontrado la forma para programarlo

Cron
Imagen de Cron
Offline
última acción: Hace 10 horas 27 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8370
La idea general está clara.

La idea general está clara. Pero debes ser más precisa.

¿Quieres que al pulsar un botón en un formulario, los valores que hay en un textbox se copien a una celda?¿Quieres que la hoja actualice los datos que llegan desde otra hoja/libro? ¿Quieres que se recalcule la hoja porque no lo hace? ¿Qué es exactamente para ti "actualizar datos"?

 

Un saludo

Marcela_ov
Imagen de Marcela_ov
Offline
última acción: Hace 3 días 6 horas
alta: 16/07/2017 - 19:03
Puntos: 120
Buen día Cron, tengo un boton

Buen día Cron, tengo un boton "Actualizar".... Yo busco un dato (mediante el # de empleado) me aparece la información de este (Nombre, apellidos, examenes, fechas y calificaciones de los mismos... como estos tienen validez solo por un año requiero estar cambiando esta informacion.... entonces quiero buscar al empleado #4512 y modificar ciertos datos y que estas modificaciones sustituyan a las anteriores en la misma casilla.... cosa que no hace... busco al empleado #4512 me muestra toda la informacione cada casilla del formulario y al modificar algo me lo guarda en otras celdas como un empleado nuevo....

¿Podria adjuntar el archivo aqui mismo?

Marcela_ov
Imagen de Marcela_ov
Offline
última acción: Hace 3 días 6 horas
alta: 16/07/2017 - 19:03
Puntos: 120
Te adjunto una captura de

Te adjunto una captura de pantalla del formulario... quiero cambiar datos desde el formulario y que se reflejen el mi archivo excel.

 

De ante mano gracias por tu tiempo.

AdjuntoTamaño
Image icon formulario.png141.59 KB
Cron
Imagen de Cron
Offline
última acción: Hace 10 horas 27 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8370
Vale, entonces entiendo que

Vale, entonces entiendo que lo que tienes es un formulario y quieres que el valor del textbox se copie a la celda. Tu código está al revés. Cuando haces la búsqueda, copias el valor de la celda al textbox del formulario.

Cuando haces una asignación (un signo igual), el lado de la derecha es el que tiene el valor, y el de la izquierda es donde lo quieres poner.

En tu caso, sustituye:

ActiveCell.Offset(0, 1).Select

TextBox2 = ActiveCell

por lo siguiente:

ActiveCell.Offset(0, 1).Select

Activecell.value = TextBox2

Marcela_ov
Imagen de Marcela_ov
Offline
última acción: Hace 3 días 6 horas
alta: 16/07/2017 - 19:03
Puntos: 120
Se siguen guardando los datos

Se siguen guardando los datos modificados como un dato totalmente nuevo, es decir, en otras casilla de la base de datos.. aque se debera esto?

Te adjunto el archivo espero puedas darle un vistaso.

De ante mano muchas gracias!

AdjuntoTamaño
File base_de_datos_proyecto.xlsm3.68 MB
Cron
Imagen de Cron
Offline
última acción: Hace 10 horas 27 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8370
En el código asociado al

En el código asociado al botón "Actualizar datos" le dices que lo copie en la primera fila. Sin embargo, en el código que nos pasaste en tu primera pregunta, realizas una búsqueda con este código:

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate

Y que ahora ha desaparecido en el archivo que nos has mandado.

En cuanto lo pones en su sitio, el botón funciona perfectamente.

 

Un saludo

Marcela_ov
Imagen de Marcela_ov
Offline
última acción: Hace 3 días 6 horas
alta: 16/07/2017 - 19:03
Puntos: 120
Cron, muchisimas gracias por

Cron, muchisimas gracias por tu ayuda me ha servido de mucho.

Saludos!!