Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy a range with application.inputbox
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy a range with application.inputbox
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy a range with application.inputbox
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 -- Gary''s Student - gsnu200713 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy a range with application.inputbox
thanks both for reply
Gary had what i need "Gary''s Student" skrev: 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 -- Gary''s Student - gsnu200713 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Application.InputBox | Excel Programming | |||
application.inputbox | Excel Programming | |||
Inputbox and Application.InputBox | Excel Programming | |||
inputbox and application.run macro1 | Excel Programming | |||
application.inputbox | Excel Programming |