Copy and paste data into Input Box

[howard]

I have a user form that activates an input box

The code to activate the inputbox is

 Sub Input_Value()

Dim StartDate As String, EndDate As String, Arr As Variant
  With Sheets("Imported Data")
   .Range("Z1").Value = InputBox("Enter the value")
  End With

End Sub

When the input box is activcated, I would like to select the cell containing the value to be copied and pasted into the input box


It would be appreciated if someone could kindly advise how to do this and provide me with the code

 

[Jaafar Tribak]

Is this what you want ?

Sub Input_Value()
    Dim StartDate As String, EndDate As String, Arr As Variant
    With Sheets("Imported Data")
    .Range("Z1").Value = InputBox("Enter the value", , ActiveCell.Value)
    End With
End Sub

 

[howard]

Thanks for your reply. When the input box is activated, It does not allow me to select a cell to copy on the workbook and paste into the input box-see link below

Input Box.PNG

Shared with Dropbox

www.dropbox.com

Input Box .xlsm

Shared with Dropbox

www.dropbox.com

Kindly amend your code to allow me to select a cell and copy and paste this into the inputbox , once the inputbox is acticated