Right back at you.
Posts by vba_novice
-
-
Both are running smoothly. Thanks again jolivanes !
-
So you got me thinking about adding a header. I added one line at the top and a couple of additional columns. I was able to modified #8 and it seems to work, but which items would I modified in #10, if I had a line for the header and a couple of columns? Thanks!
-
I just tried both with 1400 rows. #8 comes back really fast. #10 gets same results but not as fast as #8. Thanks again.
-
Hello jolivanes ,
Items #4 and #8 both seems to be working correctly. Is #10 replacing one of those? Thanks!
-
Hello jolivanes,
Your 2nd code also works well and doesn't skip a cell at the top. I will probably use that one. Thanks again for your quick assistance.
-
Hey Alan,
I will give that a try also. Thanks for the suggestion!
-
It worked great. Yes, sometimes it can be a large range. Thanks jolivanes for the quick response! Have a good one.
-
Here's the attachment. The VBA worksheet is what the code is bringing back and the Desired worksheet is what I would like. Thanks!
-
I have data in columns B through F. I am needing it in the format of column A. I have tried the following VBA loop code. The 1st screen shot is the desired results and the 2nd screen shot is what the vba code is bringing back. It starts off copying and transposing correctly, but doesn't move down far enough before pasting and transposing the 2nd line and overwrites the data from the 1st. It needs to drop down 3 more lines before pasting. I am a vba novice and need help in this. Thanks in advance.
Sub Macro1()
ActiveCell.Offset(0, 2).Range("A1:D1").Select
selection.Copy
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(4, -2).Range("A1").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveCell.Offset(-3, 2).Range("A1:D1").Select
Application.CutCopyMode = False
selection.Copy
Loop
End