YellowLabPro
12-06-2007, 01:37 PM
I am trying to loop through a range on Sheet1 get the values from each row and deliver them on Sheet2, with, certain ones joined together down row 1
For instance the value below is A1:G1
32 305 Snowboard Boots Black/WhiteReg.$274.99Discount50%Now:$137.49
It would look like this on Sheet2, A1:A4
32 305 Snowboard Boots Black/WhiteReg. $274.99Discount 50%Now: $137.49
I would skip a row and do this again.
What I am struggling w/ is how to icrement the row to begin the next record. I am very rusty, I have not written any code for a couple months now. Uggh.
Sub mConcatenate3()
Dim c As Range, rng As Range
Dim Lrow As Long
Lrow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Sheets("Sheet1").Range("A1:A" & Lrow)
For Each c In rng
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Next c
End Sub
For instance the value below is A1:G1
32 305 Snowboard Boots Black/WhiteReg.$274.99Discount50%Now:$137.49
It would look like this on Sheet2, A1:A4
32 305 Snowboard Boots Black/WhiteReg. $274.99Discount 50%Now: $137.49
I would skip a row and do this again.
What I am struggling w/ is how to icrement the row to begin the next record. I am very rusty, I have not written any code for a couple months now. Uggh.
Sub mConcatenate3()
Dim c As Range, rng As Range
Dim Lrow As Long
Lrow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Sheets("Sheet1").Range("A1:A" & Lrow)
For Each c In rng
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Next c
End Sub