Botón actualizar datos

12 envíos / 0 nuevos
Último envío
Marcela_ov
Imagen de Marcela_ov
Offline
última acción: Hace 1 mes 1 semana
alta: 16/07/2017 - 19:03
Puntos: 130
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 14 horas 55 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8700
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 1 mes 1 semana
alta: 16/07/2017 - 19:03
Puntos: 130
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 14 horas 55 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8700
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 1 mes 1 semana
alta: 16/07/2017 - 19:03
Puntos: 130
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 1 mes 1 semana
alta: 16/07/2017 - 19:03
Puntos: 130
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 14 horas 55 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8700
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 1 mes 1 semana
alta: 16/07/2017 - 19:03
Puntos: 130
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 14 horas 55 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8700
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 1 mes 1 semana
alta: 16/07/2017 - 19:03
Puntos: 130
Cron, muchisimas gracias por

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

Saludos!!

Marcela_ov
Imagen de Marcela_ov
Offline
última acción: Hace 1 mes 1 semana
alta: 16/07/2017 - 19:03
Puntos: 130
Ayuda......

Buen día podria ayudarme con un problema que me ha surgido al crear una base de datos en excel con vba por favor.

He creado un formulario en excel contiene combobox y textbox's para capturar datos y guardarlos celdas especificas en una hoja excel ... lo que no logro hacer (y tampoco encontré algo similar que pudiese adaptar a mi situación) es:

Como puedo buscar informacion a partir de 2 datos introducidos en el formulario (en este caso en el ComboBox4 y texbox179 respectivamente) y al pulsar el botón  "consultar" (que lleva por nombre CONSULTARCAP...  se carguen los demás datos en los demás textbox ( que serian el: TextBox177 y TextBox178 ).

De ante mano muchas gracias por su ayuda.

Saludos :)

Cron
Imagen de Cron
Offline
última acción: Hace 14 horas 55 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8700
¿Dónde están los datos que

¿Dónde están los datos que necesitas cargar a los otros combos?

Si la info ya está en la hoja, ¿de verdad necesitas cargarlos al formulario?

De todas maneras, para buscar el Cells.find que utilizabas está bien. Esto te da una celda, por lo que si lo asignas a un objeto tipo range, puedes obtener fila y columna. Algo así como:

 

Dim objeto as range

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

fila = objeto.row

columna = objeto.column

 

Esto te puede servir si necesitas encontrar una celda y devolver el valor de dos celdas más a la derecha. Harías:

Valor = cells(fila,columna + 2)

 

Un saludo