Re: MS excel we give solutions. formula, codes and tutorials
Sir kirby pahelp naman po sa problem ko.
Meron ako Listbox na nagddisplay ng items from Columns A, B, and C.
Sa Listbox ko naman po is nagddisplay ng items to my Textbox1
Ang problema ko po is, minsan may mga duplicate items sa Column A ko.
Ang gusto ko po maging function ng Commandbutton ko is mag-change ng status ng number. Paano ko po macchange ang status nung ibang duplicate numbers?
Eto po yung file ko.
Sir kirby pahelp naman po sa problem ko.
Meron ako Listbox na nagddisplay ng items from Columns A, B, and C.
Code:
Private Sub UserForm_Initialize()
Dim lngMyRow As Long
For lngMyRow = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If StrConv(Range("F" & lngMyRow), vbUpperCase) = "WAITING FOR APPROVAL" Then
With ListBox1
.ColumnCount = 3
.ColumnWidths = "55;55;55"
.AddItem
.List(.ListCount - 1, 0) = Range("A" & lngMyRow)
.List(.ListCount - 1, 1) = Range("B" & lngMyRow)
.List(.ListCount - 1, 2) = Range("C" & lngMyRow)
End With
End If
Next lngMyRow
With ComboBox1
.AddItem "WAITING FOR APPROVAL"
.AddItem "APPROVED"
.AddItem "IN PROGRESS"
End With
TextBox1.Enabled = False
ComboBox1.Enabled = False
CommandButton1.Enabled = False
End Sub
Sa Listbox ko naman po is nagddisplay ng items to my Textbox1
Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ListBox1.Value
ComboBox1.Enabled = True
CommandButton1.Enabled = True
ComboBox1.SetFocus
End Sub
Ang problema ko po is, minsan may mga duplicate items sa Column A ko.
Ang gusto ko po maging function ng Commandbutton ko is mag-change ng status ng number. Paano ko po macchange ang status nung ibang duplicate numbers?
Eto po yung file ko.