Ahrens Ruano

Te dejo el siguiente código espero te sirva, en la primera columna del listbox te devuelve el nombre de las hojas, en la segunda el código y posición de cada hoja. Private Sub UserForm_Initialize() 'CONFIGURO EL LISTBOX PARA EL INGRESO DE DATOS...

Te dejo los códigos para que los adaptes a tu proyecto. Private Sub ComboBox1_Change() 'ACA BUSCO LA FECHA 'AL HACER UN CAMBIO, LIMPIO LOS TEXTBOX Me.TextBox1 = "" Me.TextBox2 = "" Me.TextBox3 = "" Me.TextBox4 = "" Me.TextBox5 = "" End SubPrivate Sub...

Juan Diego Arango un cordial saludo, viendo el codigo que tienes por ende tienes que estar posicionado en la hoja Datos, entonces solo cambia donde dice activesheet por sheets("Datos") O lo puedes hacer de la siguiente manera, declarando en una...

Seria conveniente que subas un ejemplo de tu proyecto para revisarlo. Yo he trabajado con proyectos parecidos y no he tenido problemas.

Nacha Pop, con mucho puedo enviar a tu correo el archivo que le proporcioné a Roger Grande.

¿Podrías enviar un ejemplo de tu proyecto para revisar en donde se origina el problema?

Perdón por la intromisión, hola Diana Alexis prueba por agregar lo que está en negrita en el código del CommandButton3 Private Sub CommandButton3_Click() If Me.ListBox1.ListIndex < 0 Then MsgBox "No se ha elegido ningún registro", vbExclamation,...

Roger Grande, ¿podrías subir una captura de pantalla para saber como van los datos?

Federico Paz te paso a dar la solución a tu problema, solo agrega a tu código las líneas que están en negrita. Sub Imprimir_Click() Dim Resp As Byte Application.ScreenUpdating = False Sheets("ORIGINAL").Visible = xlSheetVisible 'MUESTRA LA HOJA...

Podrías usar una macro en el evento change de la hoja actual que al cambiar el dato en la celda C2 la información del elipse cambie automáticamente y otra macro en un modulo, para cuando des clic en el elipse este cambie al dato de la celda C3. Si es...