Return Seq Values Until Blank value then return different set of seq values
Solved/Closed
lorieb63
-
Sep 28, 2021 at 02:14 PM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Contributor Last seen December 27, 2022 - Sep 30, 2021 at 11:33 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Contributor Last seen December 27, 2022 - Sep 30, 2021 at 11:33 AM
Related:
- Based on the values in cells b77 b88
- Based on the values in cells b77 - Best answers
- Based on the values in cells b77 b81 what function can automatically - Best answers
- Looking up and adding the values fixing different criteria - Excel Forum
- Based on the values in cells b77 b81 what function can automatically return the value in cell c77 ✓ - Excel Forum
- Looking For a Value in a Cell - Excel Forum
- Instagram account based in wrong country - Instagram Forum
- Conditional Formatting range of date cells based on another cell ✓ - Excel Forum
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Contributor
Last seen
December 27, 2022
555
Sep 30, 2021 at 11:33 AM
Sep 30, 2021 at 11:33 AM
Hi Lorieb,
When your source sheet looks like this:
and you want your destination sheet to look like this:
Then this is the code to use:
Best regards,
Trowa
When your source sheet looks like this:
and you want your destination sheet to look like this:
Then this is the code to use:
Sub RunMe() Dim r, c As Long r = 2 c = 1 Sheets("Sheet1").Select Do Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Cells(r, c).Value r = r + 1 If Cells(r, c).Value = vbNullString Then r = 2 c = c + 1 End If Loop Until Cells(r, c) = vbNullString End Sub
Best regards,
Trowa