Dante Amor

Prueba así: =ESNOD($G3)

¿El intervalo de fechas siempre abarcan 2 meses?

Y qué pasa si solamente pones en la celda E8 la fórmula: =B1&B2&B3

Te propongo que adaptes lo siguiente a tu código. De la siguiente manera estoy separando: - La carpeta inicial - La carpeta que se forma con las celdas - El nombre del archivo Sub GB() Dim base1 As String, base2, ruta As String Dim num As Variant Dim...

Cómo cargaste los datos en el listbox. Puedes poner aquí todo tu código.

Prueba así: Sub RangoImpresion() Sheets("FACTURA").Range("B2:AL65").Select End Sub Sub Imprimir_direcFact_1() Call RangoImpresion ActiveSheet.PageSetup.PrintArea = Selection.Address With ActiveSheet.PageSetup .PrintArea = "" .Orientation = xlPortrait...

Funciona para mí Incluso puse el valor "N/A" y también lo hace para los textbox que están dentro del Frame6 Private Sub OptionButton33_Click() Dim CtrT As Control If OptionButton33 = True Then For Each CtrT In Frame6.Controls If TypeOf CtrT Is...

Puedes explicarlo con una imagen de lo que tienes. Y otra imagen con el resultado.

Estando en el libro donde quieres la tabla dinámica, selecciona del menú Insertar tabla dinámica, selecciona el rango de celdas del otro libro. En "Elija dónde desea colocar el informe de tabla dinámica", selecciona : "Hoja de cálculo existente"

Prueba la siguiente: Sub copiarceldas() Sheets("Hoja1").Range("A1:E10").Copy Sheets("Hoja2").Range("A" & Rows.Count).End(3)(2) End Sub