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
1

Te anexo el código actualizado

Cambia "Auxiliar" por el nombre de tu hoja auxiliar

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)
    '
    'Copiar celdas a la hoja auxiliar
    h.Cells.Copy Sheets("Auxiliar").Range("A1")
    MsgBox "Información copiada"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas