Setting Inner Loop

Slicemahn

Board Regular
Joined
Jun 10, 2004
Messages
120
Hi,

I am looking for a unique way to set up an inner loop that will look at all the cells that a user would select to action. The current inner loop in my code will not fly. Please also note that the attached spreadsheet is only a snip. The actual sheet is 980 rows long. So please send your suggestions with this in mind.

Report_Snip.xlsm
ABCDEFGHIJKLMNOPQRSTUVWX
1GroupLocationReport NameBusiness UnitLinkStatusPriorityCommentsSupportTeam LeadRefresh CycleChoice 1Choice 2Date AppliedOlinkElinkAlinkUpdatedUpdated ByAudienceIDCountPathChecked
2CORENorth Buildingabc.xlsxMarketinghttps://sharepoint.com/Marketing/abc.xlsxInactiveLowStaffTom FieldingWeeklyUpdateCLASSIFIEDCLASSIFIEDCLASSIFIED04/21/2022 11:45 AMTom Fielding145321CLASSIFIEDYes
3CORECentral BuildingEmployee_Asset.xlsxAdminhttps://sharepoint.com/Admin/Employee_Asset.xlsxActiveMedDeptSuzanne DurrantWeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/24/2022 9:30 AMMichelle Fennings194521CLASSIFIEDYes
4COREDMZEnd Point Mappings.xlsxIThttps://sharepoint.com/IT/End Point Mappings.xlsxActiveHighDeptHenry NguyenBi-WeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/11/2022 3:30 PMLazar Popovic124491CLASSIFIEDYes
5COREWest QuadStudent Residence.xlsxResidencehttps://sharepoint.com/Residence/Student Residence.xlsxActiveLowStaffBob HamiltonWeeklyRenewCLASSIFIEDCLASSIFIEDCLASSIFIED04/21/2022 11:45 AMRiston Comich143221CLASSIFIEDYes
6COREEast QuadCustodial_Projects 2022.xlsxFacilitieshttps://sharepoint.com/Facilities/Custodial_Projects 2022.xlsxActiveMedDeptHector RodriguezWeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/24/2022 9:30 AMDarlene Love191871CLASSIFIEDYes
7CORENorth BuildingSys_Org_diag.xlsxIThttps://sharepoint.com/IT/Sys_Org_diag.xlsxActiveHighDeptHenry NguyenBi-WeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/11/2022 3:30 PMMark Kisel124391CLASSIFIEDYes
8CORESouth PointStudent_RAC_Membership.xlsxMarketinghttps://sharepoint.com/Marketing/Student_RAC_Membership.xlsxActiveLowStaffTom FieldingWeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/21/2022 11:45 AMAaron Ladner141161CLASSIFIEDYes
9COREWest QuadEmployee_Asset.xlsxAdminhttps://sharepoint.com/Admin/Employee_Asset.xlsxActiveMedDeptSuzanne DurrantWeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/24/2022 9:30 AMChristopher Continental197621CLASSIFIEDYes
10COREEast QuadCash Reconciliation Report.xlsxFacilitieshttps://sharepoint.com/Facilities/Cash Reconciliation Report.xlsxActiveHighDeptHector RodriguezBi-WeeklyRenewCLASSIFIEDCLASSIFIEDCLASSIFIED04/11/2022 3:30 PMEnzo Ramoni129811CLASSIFIEDYes
11COREWest QuadE2E Cost Report.xlsxMarketinghttps://sharepoint.com/Marketing/E2E Cost Report.xlsxActiveLowStaffTom FieldingWeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/21/2022 11:45 AMHailey Read143231CLASSIFIEDYes
12DMZLibraryDewey Decimal-Volumes by Floor.xlsxStudent Resources\\dumexteam.dumex.com\webDavWWW\Dewey Decimal Volumes by Floor.xlsxInactiveMedDeptChristmas MartinWeeklyRetireCLASSIFIEDCLASSIFIEDCLASSIFIED04/24/2022 9:30 AMCarlton Spence190171CLASSIFIEDYes
13DMZRAC FacilitiesGym Memberships 2022.xlsxRecreation Facility\\dumexteam.dumex.com\webDavWWW\Gym Memberships 2022.xlsxActiveLowStaffHannah WorthingtonWeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/21/2022 11:45 AMRobert Westall147911CLASSIFIEDYes
14DMZRAC FacilitiesGym Asset Tracker.xlsxRecreation Facility\\dumexteam.dumex.com\webDavWWW\Gym Asset Tracker.xlsxInactiveMedDeptHannah WorthingtonWeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/24/2022 9:30 AMHarold Snell192861CLASSIFIEDYes
15COREEast QuadSupplies List.xlsxFacilitieshttps://sharepoint.com/Facilities/Supplies List.xlsxActiveHighDeptHector RodriguezBi-WeeklyRetireCLASSIFIEDCLASSIFIEDCLASSIFIED04/11/2022 3:30 PMColin George121151CLASSIFIEDYes
16DMZWest QuadHousing RSVP Fall 2023.xlsxResidence\\dumexteam.dumex.com\webDavWWW\Housing RSVP Fall 2023.xlsxActiveLowStaffBob HamiltonWeeklyRetireCLASSIFIEDCLASSIFIEDCLASSIFIED04/21/2022 11:45 AMYaroslav Popovic143601CLASSIFIEDYes
17CORENorth BuildingSCOA Budgets.xlsxAccountinghttps://sharepoint.com/Accounting/SCOA Budgets.xlsxActiveMedDeptSteven FischerallWeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/24/2022 9:30 AMSuzanne Durrant198021CLASSIFIEDYes
18CORECentral BuildingCost Benefit Analyses_Spring 2022.xlsxIThttps://sharepoint.com/IT/Cost Benefit Analyses_Spring 2022.xlsxActiveHighDeptHenry NguyenBi-WeeklyCLASSIFIEDCLASSIFIEDCLASSIFIED04/11/2022 3:30 PMSamantha Crozier122961CLASSIFIEDYes
Sheet1
Cell Formulas
RangeFormula
E17:E18,E15,E2:E11E2=HYPERLINK("https://sharepoint.com/"&D2&"/"&C2)
Cells with Data Validation
CellAllowCriteria
L2:L18ListUpdate, Retire, Renew


As for the code I am using;

VBA Code:
Sub ExecuteUserRequest()
Dim ReportCount As Long
Dim ChosenReport As Integer
Dim x As Long

ReportCount = Range("B2").CurrentRegion.Rows.Count
ChosenReport = WorksheetFunction.CountA(Columns(12) - 1)
x = 2

Application.ScreenUpdating = False
Do While x <= ReportCount
        For Each WorksheetFunction.CountA(Columns(13)) In Columns(13)
        
        Select Case Cells(x, 12)
        Case Renew
        ' perform action
        Case Retire
        ' peform action
        Case Update
        ' perform action
        End Select
        
        Next

x = x + 1
Loop

Application.ScreenUpdating = True


End Sub

Thanks in advance Everyone for your help!
 

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.

Forum statistics

Threads
1,223,230
Messages
6,170,883
Members
452,364
Latest member
springate

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top