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
|Set email body to html using vbscript||6||28|
|SUMIFS with a criteria that could be in multiple rows||21||37|
|Excel Copy Macro down foe each row||4||21|
|excel cannot open the file because the file format or file extension is not valid||5||34|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!