VBA help please

[IEvansNH]

Hello all,

As my first post, I'm looking for some help creating a macro for a summary page in a workbook. I did some searches, but I don't think the wording of my inquiry was effective.

Here's the jist; I have a 5 tab worksheet where sheets 2-5 have a lot of data, but only some of the data is needed for the summary. Column A has names, column C has a product name and column K has data that, if the value is greater than one, along with the product name and their name, need to be carried to specific columns in the summary worksheet. The intent is to have all of the information in sheets 2-5 updated weekly and once pasted, the macro would update the specifics automatically.

I'm a newb, but have a keen interest in developing my skills here. Hope someone can guide me a bit.

 

[L. Howard]

Hmmmmm, only thing that comes to mind is perhaps you assigned an Upper case A to the code and are doing ctrl + a instead of ctrl + shift + a on the sheet.

Assigning to a Forms control button is always a good option.

What if anything, do you experience with ctrl + q? Even with an empty sheet you should have a mild alert sound from the Clear event.

Howard

 

[IEvansNH]

So I can run the macro by opening the macro box and hitting run, not by using ctrl+a, producing product results on sheet 1. If for each product listed across the top of the summary page, I wanted to show the actual number of units listed in column K, where would I make that adjustment?

 

[L. Howard]

OK, so instead of the text ("Product A", etc) in column C of data pages dispersed accross sheet 1, you want the numbers in column K of data pages dispersed accross sheet 1.

Is this example correct?

If Sheet 2 cell A4 = Jim
Sheet 2 cell C4 = "Product C"
Sheet 2 cell E4 = 03801
Sheet 2 cell K4 =10

Then Sheet 1 A5 = Jim
Sheet 1 G5 = 10 (G5 Header is Product C)
Sheet 1 S 5 = 03801

Howard

 

[L. Howard]

If my previous post question is TRUE then change

This

.Cells(lNextRow, vP(1)) = wks.Cells(rng.Row, "C")

to this

.Cells(lNextRow, vP(1)) = wks.Cells(rng.Row, "K")

It's about 45 lines down in the code from Sub.... (count white spaces a a line)

Howard

 

[rjwebgraphix]

In reviewing both of your comments, I made the change to ctrl+a for the action request, but I don't see anything happening. I saved the change and tried to run it. What am I missing?

Possibly internal shortcut confusion? CTRL-A is the built-in shortcut for "Select All"

 

[rjwebgraphix]

In Alphabetical order, These are what I know of that you should stay away from when selecting your shortcut.

CTRL-A	Select All
CTRL-B	Bold
CTRL-C	Copy
CTRL-D	Fill Down
CTRL-F	Find
CTRL-G	Go To
CTRL-H	Replace
CTRL-I	Italics
CTRL-K	Hyperlink
CTRL-L	Create List
CTRL-N	New File
CTRL-O	Open File
CTRL-P	Print
CTRL-R	Fill Right
CTRL-S	Save File
CTRL-U	Underline
CTRL-V	Paste
CTRL-X	Cut
CTRL-Y	Redo
CTRL-W	Close Workbook
CTRL-Z	Undo

<tbody>
</tbody>

Not much less after all that. (Big eye roll @ Microsoft)

 

[L. Howard]

Good info, never knew there were that many.

I'll probably just quit using them.

Thanks,
Howard

 

[IEvansNH]

Howard, you have it correct. Sorry I didn't reply sooner, I never got notification that you posted.

 

[L. Howard]

<Howard, you have it correct.>

Is the correct part about Uppercase A

OR

The sheet transfer senario I asked about

OR

Both?

And have you made the line 45 correction in the code from C to K?

Is the workbook working for as you like?

Howard

 

[IEvansNH]

So the "a" that I placed is a lowercase, not an upper. I changed it to "J" but it still doesn't run the macro. I did get the line changed for the sheet transfer and the data from K is transferring