Guru do Excel e Power BI

Enviado: **24 Nov 2021 às 19:46**

Olá pessoal, estou com o seguinte código abaixo:

   For i = 1 To 40
      cboNumero.AddItem i
   Next i
  
   For y = 1 To ListView.ListItems.Count
         If cboNumero.List(y) = ListView.ListItems.Item(y).ListSubItems(1) Then
            cboNumero.RemoveItem (y)
         End If
   Next y

Estou tentando, remover itens da combobox, de acordo com o número que está listview, coluna da qual tb tem números. Então, número que aparecerem na Listview, devem ser removidos da combobox, através de um loop, porém sem sucesso.

Poderiam me dar uma luz?

Desde já obrigado.

Ivan Jpi

Enviado: **28 Nov 2021 às 18:02**

Olá, consegui o código, num grupo de Whats:

Código: Selecionar todos

     For i = 1 To 40
        cboNumero.AddItem i
    Next i

    For y = 0 To cboNumero.ListCount
        For x = 1 To ListView.ListItems.Count
            If cboNumero.ListCount = y Then Exit Sub
            If cboNumero.List(y) = ListView.ListItems.Item(x).SubItems(1) Then
                cboNumero.RemoveItem (y)
            End If
        Next x
    Next y

Valeu pessoal!

Guru do Excel e Power BI

Loop para remover itens da combobox

Loop para remover itens da combobox

Re: Loop para remover itens da combobox