Elsa Matilde

En la sección Contactos de mi sitio aparecen mis correos. Podés enviármelo al de Gmail (cibersoftPUNTOarg). Enviame allí tu libro y me explicas todo en detalle.

Te dejo el código correcto: Dim mes As String mes = MonthName(Month(Sheets("Datos").Range("C2")), False) Sheets(mes).Select Aclaraciónes: Declaraste mes como libro cuando en realidad sería el nombre de la hoja (Worksheet). Pero en realidad allí se...

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....

Se puede lograr con macros o con fórmula, como se observa en la imagen. Mi separador de argumentos es punto y coma. Reemplaza por coma si ese es tu modo. Luego podrás conservar solo los valores copiando y pegando en el mismo lugar, opción 'solo...

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...

Te dejo la macro que solicitas. Entra al Editor de macros (desde menú Programador/Desarrollador o con el atajo ALT +F11) Inserta un módulo y allí pega el siguiente código: Sub ajusteHoja() 'x Elsamatilde Application.ScreenUpdating = False 'se quitan...

Es muy simple: ese mensaje de error 1004 es porque primero debes hacer la hoja visible y luego seleccionarla. O sea que cada botón tendrá instrucciones como éstas, con su respectivo nombre de hoja: Sub SANEAMIENTO() With Sheets("SANEAMIENTO")...