Recent content by dcavaiani

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...

"But otherwise, only a moderator should delete a post with responses." "But otherwise, only a moderator should delete a post with responses."

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...

Sub KalineMacro() ' ' Macro recorded 1/1/2024 by dcava Range("D1").Select Selection.Copy Range("G2:G34").Select ActiveSheet.Paste Range("D35").Select Application.CutCopyMode = False Selection.Copy Range("G36:G68").Select ActiveSheet.Paste...

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...

Guess I would calculate the next available starting end range position for each iteration, and that works!

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?