Copiar tabla en hoja auxiliar
Tengo un formulario con un combobox (Combobox12) que lista las hojas del documento.
De la siguiente manera
Private Sub ComboBox12_Change() If ComboBox12.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "AVISO" Exit Sub End If Call Mostrar Set h = Sheets(ComboBox12.ListIndex + 1) End Sub Private Sub UserForm_Activate() For Each h In Sheets Select Case h.Name 'oculta las hojas que no quiero que se vean para imprimir Case "indice", "Hoja3", "Hoja4", "Temp" Case Else ComboBox8.AddItem h.Name 'hace el listado de equipos para poder imprimir las etiquetas ComboBox10.AddItem h.Name ComboBox12.AddItem h.Name End Select Next End Sub
Private Sub ComboBox12_Change() If ComboBox12.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "atencion" Exit Sub End If Call Mostrar Set h = Sheets(ComboBox12.ListIndex + 1) End Sub Private Sub UserForm_Activate() For Each h In Sheets Select Case h.Name 'oculta las hojas que no quiero que se vean para imprimir Case "indice", "Hoja3", "Hoja4", "Temp" Case Else ComboBox8.AddItem h.Name 'hace el listado de hojas ComboBox12.AddItem h.Name End Select Next End Sub
Quisera que al elegir la hoja la informacion de dicha hoja la lleve a otra hoja auxiliar.
1 Respuesta
Respuesta de Dante Amor
1