Macros Copiar formato celda y ancho de columnas
Saludos Expertos, tengo la siguiente Macro:
Sub Copiar_filtro()
Range("ab1", Cells(Rows.Count, "bu").End(xlUp)).Copy
Workbooks.Add.Worksheets(1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub
Lo realiza una copia de datos de una hoja determinada, crea un libro nuevo y pega los datos en la hoja1, hasta ahi todo OK, pero no consigo hacer que copie el formato de las celdas ni el ancho de las columnas,
Acudo a Ustedes, de antemano Gracias!!!!
1 respuesta
Respuesta de Dante Amor
1
Agrega lo siguiente a tu macro
Sub Copiar_filtro()
Set h1 = ActiveSheet
H1. Range("ab1", Cells(Rows. Count, "bu").End(xlUp)). Copy
Workbooks. Add. Worksheets(1). PasteSpecial xlPasteValuesAndNumberFormats
h1. Columns("AB:BU"). Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
