Dante Amor

Revisa estas respuestas Cómo hacer que esta macro guarde en pdf? Llenar datos plantilla pdf o guardar automáticamente plantilla dotx o alguna alternativa

Si las carpetas son en tu unidad de disco, la diagonal debe ser esta: \ Si quieres el mensaje utiliza lo siguiente: Sub CrearCarpetas() Dim ruta As Variant, celda As Variant ruta = InputBox("Ingresa la ruta donde quieres crear las carpetas") celda =...

Ejecuta la siguiente macro en la hoja donde quieres las fórmulas Sub Macro2() Range("H11:H27").Formula = "=IFERROR(IF(RC[-7]<>"""",VLOOKUP(RC[-5],Hoja2!C[-5]:C,6,0),""""),"""")" End Sub

Puedes poner tu código completo, no veo qué tienes en la variable i. Tampoco entiendo cuál es tu hoja activa. También puedes poner ejemplos de lo que tienes en cada hoja. Hice una prueba con datos de prueba y no tengo error.

Aquí otro ejemplo para cargar el número y después incrementar el número cada que guardas datos en la hoja Private Sub CommandButton1_Click() 'guardar datos en la hoja1 'tú código ' Label1.Caption = Label1.Caption + 1 End Sub Private Sub...

El siguiente ejemplo, copia la hoja1 en un nuevo libro, guarda el nuevo libro con el nombre del textbox1. Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Hoja1").Copy...

H o l a y bienvenido a TodoExpertos! A qué te refieres con "sin que me tome los campos vacíos". Quieres decir, si toda la fila, por ejemplo de E5 hasta J5 está vacía, ¿entonces esa fila no debe copiarse?

Cada producto tiene una celda asociada, o será una celda al azar. ¿Cómo cargas los datos en el combo?, puedes poner aquí tu código. ¿Es un combo en un formulario de usuario? ¿Es un combo Control ActiveX? ¿O es un combo en la hoja de Control de formulario?

Con lo siguiente puedes pegar con la hoja protegida y oculta. No es necesario hacer visible la hoja. No mencionaste en dónde quieres pegar, entonces te puse un ejemplo, cambia "abc" por el password que desees. Sub nuevoingreso() ' nuevoingreso Macro...

Revisa si en lugar de textbox puedes incluir el control MonthView1 o DTPicker1, cualquiera de esos controles solamente te permite fechas válidas. Y lo utilizas así: Sheets("Hoja1").Cells(UltFila + 1, 7) = MonthView1.valueSheets("Hoja1").Cells(UltFila...