How JustAnswer Works:
  • Ask an Expert
    Experts are full of valuable knowledge and are ready to help with any question. Credentials confirmed by a Fortune 500 verification firm.
  • Get a Professional Answer
    Via email, text message, or notification as you wait on our site.
    Ask follow up questions if you need to.
  • 100% Satisfaction Guarantee
    Rate the answer you receive.
Ask R. Michael Your Own Question
R. Michael
R. Michael, MIS Analyst
Category: Microsoft Office
Satisfied Customers: 60
Experience:  Masters of Info. Systems; 10+ years using Microsoft Office.
Type Your Microsoft Office Question Here...
R. Michael is online now
A new question is answered every 9 seconds

locked RA- cs-jml

This answer was rated:

"I have dates in row 11 and need a input box to ask the user what date you need and the vba will copy from that column in row 12 to 312 on another sheet named results. fyi the data in these cells including the date are formulas from another entire workbook."
Hi I am R. Michael and I can assist with this solution. I do have a few questions: Is it correct to say that the formulas are linked to another workbook but the VBA and input box will reference only one workbook? Are you able to upload the file to so I can see or is this restricted data? Let me know and. I can start working on the form and VBA.
Customer: replied 4 years ago.

yes the one work book (book "a") pulls from the other(source book) in the fome of linked formulas; so the vba will be only on the work book ( book "a"). Uploading is not an option at this time. it is excel 2010 and on row 11 i have dates for cy 2013. so when the user needs a single date (e.g. 1/15/13) the information from column 1/15/13 row 12 through row 312 will past to sheet 2.

Sorry one more question did you want the in input box to start ie: when the workbook opens, when a button is clicked, or some other event?
R. Michael and 5 other Microsoft Office Specialists are ready to help you
Customer: replied 4 years ago.

my bad; button to cause the prompt.

Customer: replied 4 years ago.

fyi copy the entire range 12 to 312 and paste the value to column, lets say b1, to 300 on the other sheet.

Customer: replied 4 years ago.
Relist: Incomplete answer.
Customer: replied 4 years ago.

are you there? Are you working on it?

Hello Below is a link to a spreadsheet that shows the Macro you need:


Below is the Code or the actual Macro with Comments. Please let me know if you are satisfied with this code and if so please provide positive ratings, otherwise. Please reply with and needed modifications.

Sub CopyCol()
Dim StCol As Range
Dim CpyRng As Range
Dim UsrDt As Date
Dim x As Integer

'Change Range Row to correct column if dates do not start in column A, ALSO Sheet names may need to be changed
Set StCol = Sheets("Sheet1").Range("A11")

UsrDt = InputBox("Please enter date")
If Not (IsDate(UsrDt)) Then
MsgBox ("Please enter a correct date format")
Exit Sub
End If
x = 0
Do While Not (IsEmpty(StCol))
If StCol = UsrDt Then

Set CpyRng = Range(StCol.Offset(1, 0).Address & ":" & StCol.Offset(301, 0).Address)

Application.CutCopyMode = False

'Below May need to Change Sheet to correct Sheet Name to be pasted

'Below May need to Change Range to correct cell to be pasted
'Below Pastes Values only to remove those formulas
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
x = x + 1

End If
Set StCol = StCol.Offset(0, 1)

If x <> 1 Then
MsgBox ("Date not Found")
End If

End Sub