Copy a range with application.inputbox

[Guest]

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]

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)

 

[Guest]

Sub xCopy()

Set x = Application.InputBox(prompt:="Select a cell", Type:=8)
Set y = Application.InputBox(prompt:="Select a cell", Type:=8)

y.Formula = x.Formula

End Sub

answer the inputboxes via mouse clicks.


Your method
Range(y.address)
hides the parent, so excel does not know which sheet you are referring to

 

[Guest]

thanks both for reply

Gary had what i need


"Gary''s Student" skrev: