'Macro creada por JCarreon el 25 de junio de 2014
'Probada y funcionando en todas las versiones de excel desde la 97
'Uso:
'1. Seleccione la celda destino
'2. Ejecute la macro BigBrother
'3. Seleccione la Celda o el Rango a Observar en la ventana BigBrother
'
'Util para:
'>Observar lo que sucede en una celda o rango de celdas de modo remoto.
'>La Celda o el Rango a Observar en la ventana BigBrother puede incluso
' estar ubicada en cualquier parte del libro de trabajo.
'
' Se entrega para su uso sin asumir por mi parte responsabilidades por fallos o pérdidas
'de cualquier tipo.
'Si desea modificar este código para mejorar su operación y uso, solicito su honestidad de mencionar
'mi credito acerca de la idea y desarrollo original de este sencillo código.
'Para aprender de los demás, favor enviame una copia la modificación que hagas.
'También te agradeceré enviarme código de alguna macro que cosideres útil. Gracias
'*************************************************
Dim rOrigen As Range
Dim rDestino As Range
On Error Resume Next
Set rOrigen = Application.InputBox("Selecione una celda o rango a observar", _
"rango a observar:", Selection.Address, , , , ,
If rOrigen Is Nothing Then
MsgBox "Parece que hay algo mal. Deseas cancelar la selección?"
Else
' rOrigen.Select
rOrigen.Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
End If
End Sub
