Combobox + copiar datos con formato

Hola expertos:
Tengo un combobox  con distintas opciones.
Necesito que en base a la opción seleccionada, al hacer click copie los datos de varias celdas de la hoja 2 con formato (negrita, subrayado, etc) a la hoja 1
Adjunto la macro que realicé (con case), pero tengo el problema que no copia con formato. Se puede hacer de otra manera?
Private Sub ComboBox1_Change()
Select Case Range("f12").Value
Case 1
        Worksheets("Hoja5").Range("b17:b37").Clear
        Worksheets("Hoja5").Range("c17:c37").Clear
        Worksheets("Hoja5").Range("b17:b37").Value = Worksheets("CAMBIOS").Range ("d10:d30").Value
        Worksheets("Hoja5").Range("c17:c37").Value = Worksheets("CAMBIOS").Range("e10:e30").Value
Case 2
        Worksheets("Hoja5").Range("b17:b37").Clear
        Worksheets("Hoja5").Range("c17:c37").Clear
        Worksheets("Hoja5").Range("b17:b37").Value = Worksheets("CAMBIOS").Range("d44:d82").Value
        Worksheets("Hoja5").Range("c17:c37").Value = Worksheets("CAMBIOS").Range("e44:e82").Value
End Select
End Sub
Desde ya, muy agradecido
1

1 Respuesta

56.650 pts. Conocimientos avanzados en Excel, programación VB
Prueba esto y me cuentas
Private Sub ComboBox1_Change()
Select Case Range("f12").Value
Case 1
        Worksheets("Hoja5"). Range("b17:b37"). Clear
        Worksheets("Hoja5"). Range("c17:c37"). Clear
        Worksheets("CAMBIOS"). Range("d10:d30").Copy Destination:=Worksheets("Hoja5"). Range("b17:b37")
        Worksheets("CAMBIOS"). Range("e10:e30").Copy Destination:=Worksheets("Hoja5"). Range("c17:c37")
Case 2
        Worksheets("Hoja5"). Range("b17:b37"). Clear
        Worksheets("Hoja5"). Range("c17:c37"). Clear
        Worksheets("CAMBIOS"). Range("d44:d82").Copy Destination:=Worksheets("Hoja5"). Range("b17:b37")
        Worksheets("CAMBIOS"). Range("e44:e82").Copy Destination:=Worksheets("Hoja5"). Range("c17:c37")
        End Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas