colFare = Cells.Find(what:="Vendor Fare", after:=Cells(1, 1), lookat:=xlWhole).Column
I am sure there is a simple explanation, but I am blind to it... Can anyone enlighten me, please?
Option Explicit Sub FindFare() 'This routine loops through a column of values and counts the number of errors in the column Dim rowHeader As Integer Dim colFare As Integer Dim rowActive As Integer Dim ErrCount As Integer rowHeader = Cells.Find(what:="Client_Code", after:=Cells(1, 1), lookat:=xlWhole).Row 'colFare = 13 colFare = Cells.Find(what:="Vendor Fare", after:=Cells(1, 1), lookat:=xlWhole).Column rowActive = rowHeader 'Count Errors ErrCount = 0 'Loop through data Do Until Cells(rowActive, colFare) = "" If Cells(rowActive, colFare) Like "Err?*" Then ErrCount = ErrCount + 1 End If rowActive = rowActive + 1 Loop Debug.Print ErrCount End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.