In the following macro in excel please answer the italic question
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell.Range("A1:G1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Select
Dim x As String
x = InputBox("Put Value", "abc") ' How can the macro be paused here and
after input what
key will resume it ?
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Select

End Sub
Thanks for your help

Hi,

Simply displaying an input box in this case pauses you macro waiting for
that input but it isn't immediatly obvious what you are trying to do.Have a
look at my version and post back with what you want to do with the input when
you have it. I've deleted some lines from your code that aren't necessary.

Sub stantially()
Range("A1:G1").Copy
Range("A2").Select
ActiveSheet.Paste
x = InputBox("Put Value", "abc")
ActiveCell.Offset(0, 1).Select
End Sub

Mike
"Khan" wrote:

> In the following macro in excel please answer the italic question
> Range("A1").Select
> Selection.End(xlDown).Select
> Selection.End(xlDown).Select
> ActiveCell.Range("A1:G1").Select
> Selection.Copy
> ActiveCell.Offset(1, 0).Range("A1").Select
> ActiveSheet.Paste
> ActiveCell.Select
> Dim x As String
> x = InputBox("Put Value", "abc") ' How can the macro be paused here and
> after input what
> key will resume it ?
> ActiveCell.Offset(0, 1).Range("A1").Select
> ActiveCell.Select
>
> End Sub
> Thanks for your help

The Macro will pause automatically for the user to key in the value. After
the key enter or Ok the macro will continue.

Subodh
"Khan" <(E-Mail Removed)> wrote in message
news:84FC81D8-2868-49D0-9EB5-(E-Mail Removed)...
> In the following macro in excel please answer the italic question
> Range("A1").Select
> Selection.End(xlDown).Select
> Selection.End(xlDown).Select
> ActiveCell.Range("A1:G1").Select
> Selection.Copy
> ActiveCell.Offset(1, 0).Range("A1").Select
> ActiveSheet.Paste
> ActiveCell.Select
> Dim x As String
> x = InputBox("Put Value", "abc") ' How can the macro be paused here
> and
> after input what
> key will resume it ?
> ActiveCell.Offset(0, 1).Range("A1").Select
> ActiveCell.Select
>
> End Sub
> Thanks for your help