Saltar al contenido

¿Cómo seleccionar hojas con checkbox y copiarlas a libro nuevo?


Recommended Posts

Macro para copiar hojas con checkbox a un nuevo libro

Hola a todos!!

Ojala me pudieran ayudar con esta macro ya que no se como activar los checkbox, les explico un poco.

En esta macro tengo 11 hojas con diferente nombre cada una y en una hoja coloque 11 checkbox los cuales necesito que al seleccionar esos checkbox y picar un botón detecte cuales fueron palomeados para copiar solamente esas hojas a un nuevo libro. Hasta ahora lo que tengo es esto:

If CheckBox1_Click = True Then Sheets("Hoja1").Select

If CheckBox3_Click = True Then Sheets("Hoja2").Select

If CheckBox4_Click = True Then Sheets("Hoja3").Select.........

If CheckBox5_Click = True Then Sheets("Hoja11").Select

Workbook.Add

ActiveSheet.Paste

Application.CutCopyMode = FalseSheets("Cotización").Select

ActiveWorkbook.SaveAs Filename:=carp _

& "\" & Sheets("Cotización").Range("I3") + [" "] + [i6] & ".xls"

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=carp & "\" & [i3] + [" "] + [i6]

Muchas Gracias!!!

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.