Elsa Matilde

Con mucho gusto te desarrollaré la macro... pero no están claras las imágenes. Faltaría conocer: - A qué hoja pertenece cada imagen, - Que se vean los encabezados para ubicar la columna de cada campo, - Cuál es la columna del campo Pagar. - Si el...

Estoy leyendo que necesitas '....como poner accesos directos a hojas que estan ocultas....' Entonces lo ideal sería que tengas una macro en el evento de creación de hojas (Workbook_NewSheet). Esto te permitirá crear el vínculo y luego ocultarla. El...

Leyendo el código del evento Initialize, veo que tenés un error en la primer instrucción: Private Sub userform_initialize() a = Sheets("Hoja11").Range("A2:K" & Sheets("Hoja11").Range("A" & Rows.Count).End(3)).Value Para establecer un rango sería: a =...

Más allá de que Dante te revise el resto de los códigos, te comento cuál es el motivo del mensaje de Error 1004 en el evento Initialize del Userform. Private Sub userform_initialize() 'esta parte es donde se detiene y genera el error 'Ajusta columna...

Como no dejaste ningún tipo de ejemplo o imagen de cómo se encuentran tus datos ni los controles de tu formulario, no podemos hacer mucho desde aquí. Te invito a mirar el video N° 36 de mi canal y desde el enlace al Blog podrás descargar el libro de...

Veo en la imagen que tienes un código para el botón AGREGAR, donde se ejecuta una macro para el agregado y luego la llamada al Userform. Aquí habría que considerar 2 situaciones: Si debe guardarse o no el registro cuando haya campos vacíos....

También te invito a visitar la sección de Manuales de mi sitio que dejo al pie. Desde allí podrás descargar una versión reducida a modo de demo donde ya se desarrolla parte de su contenido. Quiero remarcar el volumen del contenido en manual 500Macros...

Te dejo el código ajustado para las 3 primeras formas, faltaría repetir las instrucciones para el resto ajustando el nombre de cada objeto. Sub Copia_Datos() 'hoja con las formas Sheets("Hoja2").Select 'Codigo dato = Sheets("Hoja1").[A1]...

Al momento de definir el inicio de tu rango le agregué 2 variables según tu imagen. Y al final la instrucción para la cuadrícula: Private Sub CommandButton1_Click() Set h = Sheets("Blad1") x = 7 : a = 5 Z = 2 : b = 1 For i = Txtini_y.Text To Txtfin_y...

Como hace días que veo esta consulta sin respuesta, me atrevo a dejar mi comentario. Lo mío en realidad es Excel. Y allí es frecuente recibir consultas acerca de que no se reconocen las fechas ... y esto se debe a que en las celdas los datos parecen...