¿Es posible copiar de una hoja a otra determinados rangos, dada una o varias condiciones?
Elsa: quisiera saber si es posible Copiar de una hoja a otra determinados rangos, dada una o varias condiciones; sé que en un ejemplo, diste el código de copiar ENTERA una hoja, pero necesitaría sólo una parte de ella (ej., si Hoja1! A1=9, COPIAR rango B6:S17 a Hoja3!A5:R16). Gracias!
1 respuesta
Respuesta de Elsa Matilde
1
No es posible 'ejecutar' ciertas acciones como resultado de fórmulas, como el ejemplo que adjuntaste.
Si es posible programar que se evalúe lo ingresado en alguna celda y en base a su resultado se copiará un rango.
En el Editor, objeto HOJA donde harás la carga de datos, copiá una rutina siguiendo este ejemplo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(fgalse, false)= "A1" Then
'controla el valor de la celda
If Target.value = 9 Then
'copia rango
ActiveSheet.range("B6:S17").copy destination:=Sheets("Hoja3").range("A5")
End If
End If
End Sub
Esto pegará el rango completo a partir de A5.
Pruébalo y comentame si responde a tu consulta.
Saludos
Elsa
** Todo sobre macros en manual 400Macros
Si es posible programar que se evalúe lo ingresado en alguna celda y en base a su resultado se copiará un rango.
En el Editor, objeto HOJA donde harás la carga de datos, copiá una rutina siguiendo este ejemplo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(fgalse, false)= "A1" Then
'controla el valor de la celda
If Target.value = 9 Then
'copia rango
ActiveSheet.range("B6:S17").copy destination:=Sheets("Hoja3").range("A5")
End If
End If
End Sub
Esto pegará el rango completo a partir de A5.
Pruébalo y comentame si responde a tu consulta.
Saludos
Elsa
** Todo sobre macros en manual 400Macros
¡Excelente, Elsita! (Aunque, la verdad, estaba bien encaminado...). Veo, entonces, que, al obtener una fecha, coloque manualmente un dato, para que active la copia...
