sergio chica
23 de Mayo del 2011

Sub Macro_COPYRESTO()
Dim rango As Variant
rango = ("$D$4:$BA$9")
If ActiveCell.Activate = rango Then
With Worksheets("Global")
ActiveCell.Value = .Cells(ActiveCell.row, 3).Value
End With
Else
If ActiveCell.Activate rango Then
MsgBox "Esta función solo sirve en el rango " & rango
End If
End If
End Sub


lo que pasa es que me saca el mensaje "Esta función solo sirve en el rango " asi este en el rango que debe de estar no se en que este fallando me pueden ayudar gracias

MasQueUnIntento
06 de Julio del 2011

Has visto esto??

h t t p://msdn.microsoft.com/en-us/library/aa221612(v=office.11).aspx


Suerte!!

PD: Quitale los espacios a http!