Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Avatar do usuário
Por IvanPi
#68037
Olá pessoal, estou com o seguinte código abaixo:
Código: Selecionar todos
   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
Avatar do usuário
Por IvanPi
#68097
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!

Bom dia Para saber o número de linhas com V[…]

Olha só, sem vc anexar uma planilha exemplo[…]

Pessoal, gostaria de uma ajuda de vocês se p[…]

[AJUDA]VBA Crashando

up

Fórmula para contagem

Segue abaixo um exemplo

SOMAR PRODUTOS

Junqueira, desculpa a demora . obrigado. perfeito

Boa tarde. Com a ajuda de um membro do fór[…]