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: 38
Experience:  Masters of Info. Systems; 10+ years using Microsoft Office.
71693728
Type Your Microsoft Office Question Here...
R. Michael is online now
A new question is answered every 9 seconds

locked RA- cs-jml

Customer Question

"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."
Submitted: 1 year ago.
Category: Microsoft Office
Expert:  R. Michael replied 1 year ago.
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 www.wikisend.com so I can see or is this restricted data? Let me know and. I can start working on the form and VBA.
Customer: replied 1 year 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.

Expert:  R. Michael replied 1 year ago.
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, MIS Analyst
Category: Microsoft Office
Satisfied Customers: 38
Experience: Masters of Info. Systems; 10+ years using Microsoft Office.
R. Michael and 2 other Microsoft Office Specialists are ready to help you
Customer: replied 1 year ago.


my bad; button to cause the prompt.

Customer: replied 1 year 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 1 year ago.
Relist: Incomplete answer.
Customer: replied 1 year ago.


are you there? Are you working on it?

Expert:  R. Michael replied 1 year ago.

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

Link: http://puu.sh/1yqPs

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
Sheets("Sheet1").Select
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)

CpyRng.Select
Application.CutCopyMode = False
Selection.Copy

'Below May need to Change Sheet to correct Sheet Name to be pasted
Sheets("Sheet2").Select

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


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

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

End Sub

JustAnswer in the News:

 
 
 
Ask-a-doc Web sites: If you've got a quick question, you can try to get an answer from sites that say they have various specialists on hand to give quick answers... Justanswer.com.
JustAnswer.com...has seen a spike since October in legal questions from readers about layoffs, unemployment and severance.
Web sites like justanswer.com/legal
...leave nothing to chance.
Traffic on JustAnswer rose 14 percent...and had nearly 400,000 page views in 30 days...inquiries related to stress, high blood pressure, drinking and heart pain jumped 33 percent.
Tory Johnson, GMA Workplace Contributor, discusses work-from-home jobs, such as JustAnswer in which verified Experts answer people’s questions.
I will tell you that...the things you have to go through to be an Expert are quite rigorous.
 
 
 

What Customers are Saying:

 
 
 
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
< Last | Next >
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
  • Wonderful service, prompt, efficient, and accurate. Couldn't have asked for more. I cannot thank you enough for your help. Mary C. Freshfield, Liverpool, UK
  • This expert is wonderful. They truly know what they are talking about, and they actually care about you. They really helped put my nerves at ease. Thank you so much!!!! Alex Los Angeles, CA
  • Thank you for all your help. It is nice to know that this service is here for people like myself, who need answers fast and are not sure who to consult. GP Hesperia, CA
  • I couldn't be more satisfied! This is the site I will always come to when I need a second opinion. Justin Kernersville, NC
  • Just let me say that this encounter has been entirely professional and most helpful. I liked that I could ask additional questions and get answered in a very short turn around. Esther Woodstock, NY
  • Thank you so much for taking your time and knowledge to support my concerns. Not only did you answer my questions, you even took it a step further with replying with more pertinent information I needed to know. Robin Elkton, Maryland
 
 
 

Meet The Experts:

 
 
 
  • jstinehelfer

    Information Systems Manager

    Satisfied Customers:

    36
    A+ Comptia Certified computer repair
< Last | Next >
  • http://ww2.justanswer.com/uploads/JS/jstinehelfer/2012-6-6_215146_Pictureofme1.64x64.png jstinehelfer's Avatar

    jstinehelfer

    Information Systems Manager

    Satisfied Customers:

    36
    A+ Comptia Certified computer repair
  • http://ww2.justanswer.com/uploads/JA/JasonJames122/2011-12-16_135647_jasonjamesheadshotweb.64x64.jpg JasonJames122's Avatar

    JasonJames122

    Computer Enthusiast

    Satisfied Customers:

    0
    I manage all information systems (network of Windows PC's and servers with Microsoft Office products) for a small business
  • http://ww2.justanswer.com/uploads/JE/jessmagz/2012-6-6_18129_jm.64x64.jpg Jess M.'s Avatar

    Jess M.

    Computer Support Specialist

    Satisfied Customers:

    301
    Computer Software Specialist for more than 10 years
  • http://ww2.justanswer.com/uploads/CH/chutz747/2011-11-6_14231_me.64x64.jpg The-PC-Guy's Avatar

    The-PC-Guy

    Computer Manager

    Satisfied Customers:

    274
    20 years experience providing remote computer support
  • http://ww2.justanswer.com/uploads/SP/spherrod/2012-6-6_174244_1000852.64x64.JPG Steve Herrod's Avatar

    Steve Herrod

    Computer Support Specialist

    Satisfied Customers:

    125
    Trained in Microsoft Office from 2000 through to latest version 2010.
  • http://ww2.justanswer.com/uploads/SE/Seashore2011/2011-12-6_33418_111205223015.64x64.jpg Chris L.'s Avatar

    Chris L.

    Support Specialist

    Satisfied Customers:

    124
    Certified Expert with over 10 years experience.
  • http://ww2.justanswer.com/uploads/KR/krkljatorm/2012-6-24_153417_ITMiro.64x64.jpg IT Miro's Avatar

    IT Miro

    Computer Scientist

    Satisfied Customers:

    97
    Bachelor's Degree in Information Technology, Microsoft Certified Professional