Loop If the value of the Combobox = Cell range

[Jarvin24]

Hi Everyone,

I dont know what is wrong with my code, it is not functioning as I want to. What I am trying to do is to close those open items by choosing it on the combo box then change the value of the OPEN to CLOSED.

Here is my code.

Thank you in advance

Please Login or Register  to view this content.

Dim iMes As Integer

Please Login or Register  to view this content.

Dim strMessage As String

Dim Count As Long

If ComboBox1.Value = "" And ComboBox2.Value = "" Then
strMessage = ("Please Ensure Everything is Filled Up!")
iMes = MsgBox(strMessage, vbOKOnly)
Exit Sub


End If

Count = 5

Do While Range("A" & Count) <> ""

If Range("A" & Count) = ComboBox2.Value Then
Range("B" & Count) = "CLOSED"
Range("E" & Count) = ComboBox1.Value
End If

Count = Count + 1
Loop

Unload UserForm3

Please Login or Register  to view this content.

[Jarvin24]

Forgot the attachement..

Sorry

[Jarvin24]

Oh my.. I think I figure out the probelenm.

The Cell Value is NUMBER while the Value in the combo box is TEXT..