Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|Excel-Find duplicates that ONLY have paticular criteria in another column||21||35|
|Request to review costing formula||3||32|
|Why do my Excel files become huge?||27||30|