حساب عدد السطور

تفضل

اذا كان فهمى لماطلبت صحيح ...

Dim I As Integer
Dim Emp As Integer
Dim Bus As Integer
Me.List2.Clear
Me.List3.Clear
For I = 0 To Me.List1.ListCount - 1
If Me.List1.List(I) = "" Then
		Me.List2.AddItem Me.List1.List(I)
		Emp = Emp + 1
	Else
		Me.List3.AddItem Me.List1.List(I)
		Bus = Bus + 1
End If
Next I
MsgBox "Count of Empty Lines :" & Emp & vbCrLf & "Count of Busy Lines  :" & Bus