We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.