Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
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
|Word 2016 - Spelling/Grammar Check - Inconsistent behavior upon completion||7||38|
|Excel Spreadsheet in a Word 2016 document.||3||33|
|Populate data based on a criteria||2||16|
|Recommendation vb6 to vb.net or others||14||36|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!