APENAS ME ESTOY ADENTRANDO EN EL TEMA DE LAS MACROS EN EXCELL Y NECESITO CONTAR LOS ITEMS DE UN LISTBOX EL CUAL LLENO CON EL CODIGO SGTE., AYUDEMNE POR FAVOR...GRACIAS
Private Sub CommandButton1_Click()
With Hoja2
.[C2] = "*" & TextBox1 & "*"
.[A1].CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=.[C1:C2], _
CopyToRange:=.[D1], Unique:=False
If .[D2] = Empty Or TextBox1 = Empty Then
ListBox1 = Empty
Else
Dim Lrange As Range
Dim x As Variant
Set Lrange = Hoja2.Range("D2:D150")
For Each x In Lrange
ListBox1.AddItem x.Value
Next x
End If
End With
End Sub
