Code:
Dim lCol As Long, lRow As Long
Dim PrazneCelije As Long
For lRow = 1 To MSHFlexGrid1.Rows - 1
If MSHFlexGrid1.TextMatrix(lRow, 0) = MSHFlexGrid1.TextMatrix(0, 0) Then
'Upisi Vrijednost
ElseIf MSHFlexGrid1.TextMatrix(lRow, 0) = "" Then
PrazneCelije = PrazneCelije + 1
End If
Next lRow
Dim lCol As Long, lRow As Long
Dim PrazneCelije As Long
For lRow = 1 To MSHFlexGrid1.Rows - 1
If MSHFlexGrid1.TextMatrix(lRow, 0) = MSHFlexGrid1.TextMatrix(0, 0) Then
'Upisi Vrijednost
ElseIf MSHFlexGrid1.TextMatrix(lRow, 0) = "" Then
PrazneCelije = PrazneCelije + 1
End If
Next lRow
[Ovu poruku je menjao goranvuc dana 30.05.2007. u 15:45 GMT+1]