Jump to content

Archived

This topic is now archived and is closed to further replies.

PauPV

¿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!!!

Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy