Macro VBA en excel para copiar rango de celdas en base a valor de otra celda
En la celda B62 puedo tener dos valores ASR1000 ó ASR9000, que obtengo de una lista desplegable, dependiendo de lo que esté en esa celda, para el valor ASR1000 deseo que me copie el rango AD108:AV555, con el mismo formato, en el rango A108:S555. Para el valor ASR9000 deseo que me copie el rango AW108:BO555, con el mismo formato, en el rango A108:S555. ¿Se puede realizar con una Macro? Nota, en los rangos indicados existen celdas combinadas y algunas contienen fórmulas, solo me interesa mantener valor y formatos, todo dentro de la misma hoja.
1 Respuesta
If Range("B62") = "ASR1000" Then
Range("AD108:AV555").Copy
Range("A108:S555").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Análogo para el otro
¡Gracias! por tu ayuda
Agregué la otra parte y funciona de lujo, muchas gracias
If Range("B62") = "ASR1000" Then
Range("AD108:AV555").Copy
Range("A108:S555").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False 'quita lo seleccionado al copiar
End If
If Range("B62") = "ASR9000" Then
Range("AW108:BO555").Copy
Range("A108:S555").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False 'quita lo seleccionado al copiar
End If
No funcionaba el mio porque lo puse asi:
If Range("B62") = "ASR9000" Then
Range("AW108:BO555").Copy
Range("A108:S555").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
else
Range("AD108:AV555").Copy
Range("A108:S555").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
