Ir para conteúdo
Fórum Script Brasil
  • 0

Problema ao preencher combobox


TIA0

Pergunta

boa tarde,

estou tentando preencher um combobox, porem esta gerando um erro! O código que estou usando é o seguinte...

total = ThisWorkbook.Worksheets("Plan3").UsedRange.Rows.Count

cmb_mat_situ.RowSource = ThisWorkbook.Worksheets("Plan3").Range("A2:A & total").Rows

como devo proceder?

abraços

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

total = ThisWorkbook.Worksheets("Plan3").UsedRange.Rows.Count

cmb_mat_situ.RowSource = ThisWorkbook.Worksheets("Plan3").Range("A2:A" & total).Rows

Editado por João.Neto
Link para o comentário
Compartilhar em outros sites

  • 0
Private Sub UserForm_Initialize()
Dim lastRow As Long
Dim i As Integer
cmb_mat_situ.Clear
' Verifica qual a ultima linha preenchida
lastRow = Plan3.Range("A65000").End(xlUp).Row
'adiciona dados
For i = 2 To lastRow
Me.cmb_mat_situ.AddItem Plan3.Range("A" & i)
Next
End Sub

Link para o comentário
Compartilhar em outros sites

  • 0

Pode ser usado também:

cmb_mat_situ.RowSource = ThisWorkbook.Worksheets("Plan3").Range("A1").CurrentRegion.Resize( _ 
ThisWorkbook.Worksheets("Plan3").Range("A1").CurrentRegion.Rows.Count, 1).Address(External:=True)

Editado por João.Neto
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...