Sub xCopy()
Set x = Application.InputBox(prompt:="Select a cell", Type:=8)
Set y = Application.InputBox(prompt:="Select a cell", Type:=8)
y.copy _
destination:=x
End Sub
(With no validity checks)
excelent wrote:
>
> Hi folks
>
> i got this sub that copy a cell or a range from 1 place to another
> in the same sheet, but if i fx. copy a cell with the formula =SUM(A1:A3)
> then the destinations copy show exatly the same =SUM(A1:A3)
> and thats just what i want but here the problem :
>
> How do i change the kode so i can copy from 1 sheet to another ?
>
> Sub xCopy()
>
> Set x = Application.InputBox(prompt:="Select a cell", Type:=8)
> Set y = Application.InputBox(prompt:="Select a cell", Type:=8)
>
> Range(y.Address) = x.Formula
>
> End Sub
>
> thanks in advance for any help.
--
Dave Peterson
|