Comments on: Getting Cell Reference With Input Box http://excelvbamacro.com/getting-cell-references-with-input-box/ Excel VBA Macro Tutorial and Examples Tue, 25 May 2010 20:23:08 +0800 http://wordpress.org/?v=404 hourly 1 By: Viviana Maphishttp://excelvbamacro.com/getting-cell-references-with-input-box/comment-page-1/#comment-325 Viviana Maphis Sun, 21 Jun 2009 07:23:15 +0000 http://excelvbamacro.com/?p=13#comment-325 This macro has been very useful, how ever, I cant paste outside the workbook, how can I add a line to prompt for a file or just move to another file and paste?Thank you This macro has been very useful, how ever, I cant paste outside the workbook, how can I add a line to prompt for a file or just move to another file and paste?

Thank you

]]> By: Excel VBA Macrohttp://excelvbamacro.com/getting-cell-references-with-input-box/comment-page-1/#comment-310 Excel VBA Macro Sun, 14 Jun 2009 15:17:25 +0000 http://excelvbamacro.com/?p=13#comment-310 hi pankaj, if you use my vba code above, then it's already set to paste all, both values and formats. hi pankaj, if you use my vba code above, then it’s already set to paste all, both values and formats.

]]> By: pankajhttp://excelvbamacro.com/getting-cell-references-with-input-box/comment-page-1/#comment-305 pankaj Tue, 09 Jun 2009 18:47:02 +0000 http://excelvbamacro.com/?p=13#comment-305 how do I change it to paste values and formats? how do I change it to paste values and formats?

]]> By: James Quinnhttp://excelvbamacro.com/getting-cell-references-with-input-box/comment-page-1/#comment-16 James Quinn Fri, 07 Nov 2008 01:59:45 +0000 http://excelvbamacro.com/?p=13#comment-16 Well done. I needed a way to grab user range. This showed me how. Preesh. Well done. I needed a way to grab user range. This showed me how. Preesh.

]]> By: adminhttp://excelvbamacro.com/getting-cell-references-with-input-box/comment-page-1/#comment-13 admin Sat, 25 Oct 2008 05:40:15 +0000 http://excelvbamacro.com/?p=13#comment-13 yaa you are right jp, if the input range object is nothing, then its will fail, thanks for your revision :) yaa you are right jp, if the input range object is nothing, then its will fail, thanks for your revision :)

]]> By: JPhttp://excelvbamacro.com/getting-cell-references-with-input-box/comment-page-1/#comment-12 JP Fri, 17 Oct 2008 20:35:55 +0000 http://excelvbamacro.com/?p=13#comment-12 The Copy Method accepts a Destination, if you declare InputCells and OutputCells as Range Objects, you can take advantage of the Intellisense. Also, the code will silently fail if no range is selected. Here's an updated version with declarations and error handling:<pre class="brush:vb"> Sub CopyPaste()Dim InputCells As Excel.Range Dim OutputCells As Excel.Range On Error Resume Next 'Show input box to get range of cells that want to copy Set InputCells = _ Application.InputBox(prompt:="Block input cells/range", _ Title:="Copy Paste", Type:=8) On Error GoTo 0 If InputCells Is Nothing Then GoTo ExitProc 'Show input box to get where they want it paste Set OutputCells = _ Application.InputBox(prompt:="Select cell where you want paste it", _ Title:="Copy Paste", Type:=8) On Error GoTo 0If OutputCells Is Nothing Then GoTo ExitProc 'Copy range of input cells InputCells.Copy OutputCells ExitProc: Set InputCells = Nothing Set OutputCells = Nothing End Sub </pre>--JP The Copy Method accepts a Destination, if you declare InputCells and OutputCells as Range Objects, you can take advantage of the Intellisense. Also, the code will silently fail if no range is selected. Here’s an updated version with declarations and error handling:

Sub CopyPaste()

Dim InputCells As Excel.Range
Dim OutputCells As Excel.Range

On Error Resume Next
'Show input box to get range of cells that want to copy
Set InputCells = _
Application.InputBox(prompt:="Block input cells/range", _
Title:="Copy Paste", Type:=8)
On Error GoTo 0

If InputCells Is Nothing Then GoTo ExitProc

'Show input box to get where they want it paste
Set OutputCells = _
Application.InputBox(prompt:="Select cell where you want paste it", _
Title:="Copy Paste", Type:=8)
On Error GoTo 0

If OutputCells Is Nothing Then GoTo ExitProc

'Copy range of input cells
InputCells.Copy OutputCells

ExitProc:
Set InputCells = Nothing
Set OutputCells = Nothing
End Sub

–JP

]]>