¿Cómo seleccionar hojas con checkbox y copiarlas a libro nuevo?
publicado
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
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!!!