Solved
Excel Find Next & Count Rows
Posted on 2004-10-11
Hi - need som help, I'm trying to calculate the number of cells that are blank between two fields.
The code below does the following:
1. strLBLSearch = General
2. lngFirst = 1
Trying to figure our how to get A5 cell value.
A1 = General
A2 =
A3 =
A4 =
A5 = Commercial
A6 = Electrical
A7 =
A8 = Business
I know that I can use the following to calculate the number of blank cells within a range:
strRange = "A" & lngFirst & ":" & "A" & lngSecond
intNumberMissing = WorksheetFunction.CountBlank(Range(strRange))
'------------------------------------------------------------------
Dim lngFirst, lngSecond As Long
For r = 1 To strCells
x = ws.Cells(r, 1)
y = ws.Cells(r, 2)
w = ws.Cells(r, 3)
If strLBLSearch = x Then
lngFirst = r
End If
Next r
'--------------------------------------------------------------