Just wondering if anyone can help me.
I've written a basic piece of code that searches through and excel sheet and brings it into a flexgrid.
If it finds the text that has been searched for it puts it into BOLD text. What I am trying to do is if it does not find anything then it removes it.
This is what I have got so far...
Dim rownum As Long
Dim rowtoremove As Long
Dim num As Long
If loggerflag = True Then
Path = frmSoftRequest.cboLogger.Text
frmSoftRequest.MSFlexGrid1.FillStyle = flexFillSingle
For i = 0 To frmSoftRequest.MSFlexGrid1.Cols - 1
For j = 1 To frmSoftRequest.MSFlexGrid1.Rows - 1
If InStr(frmSoftRequest.MSFlexGrid1.TextMatrix(j, i), Path) Then
frmSoftRequest.MSFlexGrid1.col = i
frmSoftRequest.MSFlexGrid1.row = j
frmSoftRequest.MSFlexGrid1.CellFontBold = True
ElseIf InStr(frmSoftRequest.MSFlexGrid1.TextMatrix(j, i), Path) = 0 And _
frmSoftRequest.MSFlexGrid1.Rows <> 1 And frmSoftRequest.MSFlexGrid1.Cols <> 1 Then