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 Moderator Last seen January 16, 2023 - Sep 30, 2021 at 11:33 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - Sep 30, 2021 at 11:33 AM
Related:
- Based on the values in cells b77 b81
- Based on the values in cells b77 b81 which function can automatically return the value in cell 77 - Best answers
- Based on the values in cells b77:b81 - Best answers
- Help me to add particular cells ✓ - Excel Forum
- Find values based on colum and sum in a table - Office Software Forum
- Conversion of values already present in cells ✓ - Excel Forum
- Fixing populating values into textboxes based on showing data in listbox ✓ - Excel Forum
- Two values to find on the same cell ✓ - Excel Forum
1 reply
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 16, 2023
544
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