Dear Super Moderator:
"... you won't make a similar mistake again."
IF anyone ever makes that same kind of a "mistake" going forward, that must blamed on the Forum - for such a grave System/Programming omission, especially considering all things promoted on a Site of this nature! 99.9 % of...
The simple answer is that I recklessly deleted the post within minutes WITHOUT looking for Gasman's (or any other) prompt response. Sorry for the mix up!! I hate to dominate/garbage up the awesome forum with a bunch of rash questions ... I regularly LIKE each and every post that ANY member...
I did the copy and paste to record macro as you described. I only did 2 of the 8 iterations and then I inspected the VB. After copying code and hard coding the column numbers, I found that cumbersome, as I have another 11 sets of cards from other years. That's when I found how the Offset...
Must say, it did not feel good to get Mr. Gasman's response yesterday. Clearly, he is probably the most active and knowledgeable responder on this whole site! I thank him for all he has done for me in the past!! I was able to set variables and use them for OFFSETS. If Gasman had not informed...
I think a deleted a post in the Excel forum a few minutes after I found my own solution. I would hate to lose your expertise because I have posted a question which essentially is poorly created. Never saw your response b4 I deleted my prior post as I would not have ignored you!
KALINE
No
Card No. and Manufacturer
GOOD 2
12-LOW
12-HIGH
Grade
Select
KALINE
201
1954 Topps - ROOKIE CARD
25
$400.00
$700.00
Place GOOD 2
Select
KALINE
23
1955 Bowman
30
$90.00
$150.00
Place GOOD 2
x
KALINE
4
1955 Topps
120
$90.00
$150.00
Place GOOD 2
x
ETC
This also...
This would work if I could get it to add each time rather than overwriting.
Public Sub FinalCopyRows()
' Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("kaline").Range("A6:C39,f6:f39,o6:n39").Copy Sheets("sheet1").Range("A:m")
Sheets("kaline").Range("A6:C39,g6:g39,o6:n39").Copy...
To break it down: 1st sheet contains baseball cards ROWS with a, b, c, d, e ,f, g, h columns named as: a=Team, b=Year, c=Card#, d=grade 1 value, e=grade 2 value, F=grade 3 value, G=grade 4 value, H=grade 5 value. The cards F, G, H column VALUES are garnered from FORMULAS/Averages of online...
Yikes, you know way more than I! There was some VB code posted before where it copied and added to the end of the 2nd sheet, and also pasted in the formulas, but I am pretty much lost now! ;-). The issue with that prior VB code is that I did not know how to select the RANGE of the 1st sheet...
I have this in 1st sheet: columns, a , b, c, d, e, F, G, H, and I want the copied sheet to break it down thusly: a, b, c, F, then ADD rows a, b, c, G, then ADD rows a, b, c, H, with the formula values of F, G, H included in the 2nd sheet.
This is incredibility simple and works! Now I need to know how to modify it and run it again with slight modifications, where I will select the "next up" column to the right of 1st sheet instead e.g.: Sheets("kaline").Range("A:C,G:G") rather than ... Range("A:C, F:F") - SO THAT the next...
Did not know that, but then again there should be a simple VBA current minor code adjustment which will work, so I don't have to go back to carefully record a macro?
Might be better in Excel forum (which I just noticed) as this is Excel VBA, if that matters? I want to copy columns 1,2,3 and 6 ONLY - from 1st to 2nd sheet - not copy the whole 1st sheet (which has Several columns) - as the copied posted code copies ALL of the many columns over.
The original copied code brings all the field for 1st sheet exactly into the 2nd sheet, but I only want a few of the fields (in the range) copied over ...
VBA Code:
Public Sub CopyRows()
Sheets("Kaline").Select
' TRIED Sheets("Kaline").Range ("A7.c999, f7.f999")
' Find the last row of data
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' Loop through each row
For x = 2 To FinalRow
' TRIED Range ("A7:c999, f1:f999")
' TRIED .Cells.Select
Cells(x...