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 The-PC-Guy Your Own Question

The-PC-Guy
The-PC-Guy, Computer Manager
Category: Microsoft Office
Satisfied Customers: 1251
Experience:  20 years experience providing remote computer support
Type Your Microsoft Office Question Here...
The-PC-Guy is online now
A new question is answered every 9 seconds

In a workbook, I have two sheets named “CPC” and “CE” The

Resolved Question:

In a workbook, I have two sheets named “CPC” and “CE”
The user is on “CPC” sheet and places the cursor on the row of data that he wants to change
Then clicks on a Macro Button

Public RowtoChange as integer

Sub Load_Data_click()
Sheets(“CPC”).select

With activecell.currentregion
Rowtochange = ActiveCell.Row
End With

‘How does a macro load data from the Rowtochange selected on Sheet “CPC” and put various cells
‘from that row into sheet “CE”?

Load into cell B4 on sheet”CE” the contents of the cell on sheet “CPC” column A, Rowtochange
Load into cell B5 on sheet”CE” the contents of the cell on sheet “CPC” column B, Rowtochange
Load into cell B6 on sheet”CE” the contents of the cell on sheet “CPC” column C, Rowtochange

‘Then to end macro
Sheets(“CPC”).select
Sheets(“CE”).visible = True
Range(“B7”).Select
Sheets(“CPC”).Select
Activewindow.Selectsheets.visible = False

‘This leaves the user with sheet “CE” open, the cursor in cell B7 and the 3 cells above containing the contents of the selected row from sheet “CPC”

End Sub
Submitted: 8 months ago.
Category: Microsoft Office
Expert:  The-PC-Guy replied 8 months ago.
Thanks for using JustAnswer. My name isXXXXX will do whatever I can to answer your question

Not sure what you are trying to accomplish with this macro, do you want me to copy the contents of 1 cell from one sheet to another. then hide a sheet and show the other selecting a specific cell.

If so the best bet is to start over from scratch and create a new macro for you.

And you want the macro to fire when someone clicks a button? or when they click a particular cell?
Customer: replied 8 months ago.

The rows in the CPC file contain Product data records. The CPC file is formatted so all cells are locked but can be selected.


The user clicks on any cell within the row on the CPC sheet that he wants to change. I don't want the user to make any changes on the CPC sheet. I created the CE sheet to hold the current data in column B and the new data to be entered by the user for this product into column C. I need the cell contents on the CPC sheet of the selected row and columns A,B,C to be placed into sheet CE into cells B4, B5, and B6. I already have a macro to save this revised Product record into the CPC file and at the same time delete the old product record from the CPC file.


I don’t know how to make the macro move data from one cell in CPC to another cell on CE sheet per the above.



Expert:  The-PC-Guy replied 8 months ago.
the following sub will do what you need

Sub MoveIT()

Dim sr As Long

sr = Selection.Row

Worksheets("CPC").Select
Range("A" & sr).Select
Selection.Copy
Worksheets("CE").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False

Worksheets("CPC").Select
Range("B" & sr).Select
Selection.Copy
Worksheets("CE").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False

Worksheets("CPC").Select
Range("C" & sr).Select
Selection.Copy
Worksheets("CE").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False

End Sub

it is getting late where I am, so If you have any problems let me know as I will check back tomarrrow and can make any corrections you need then.

otherwise

PLEASE REMEMBER TO RATE MY SERVICE

YOU DO SO WITH THE SMILEYS BENEATH THIS CHAT WINDOW
The-PC-Guy, Computer Manager
Category: Microsoft Office
Satisfied Customers: 1251
Experience: 20 years experience providing remote computer support
The-PC-Guy and 2 other Microsoft Office Specialists are ready to help you
Expert:  The-PC-Guy replied 8 months ago.
did you get all of the above information to work?

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