Ordenar um combobox ordem alfabetica

2024 - VBA & Macros

Post Recente por Fernandox 7 anos atrás

4 Posts

3 Usuários

0 Reactions

1,190 Visualizações

RSS

Fernandox

(@fernandox)

Posts: 68

Trusted Member

Topic starter

Ola Pessoal, estou com o comboboxMunicipio funcionando, so que gostaria de que estivesse em ordem alfabetica, sem ter que quando ordenar nao afete a planilha que esta em ordem de codigo. Obrg a todos que postarem no auxilio, abraco
Segue meu Codigo:

Me.ComboBoxMunicipios.MatchRequired = True
Dim linha as integer
linha = 2

Do Until Sheets("TabMunicipio").Cells(linha, 2) = ""
   ComboBoxMunicipios.AddItem Sheets("TabMunicipio").Cells(linha, 2)
   linha = linha + 1
Loop

Postado : 27/04/2018 12:57 pm

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Boa tarde.
Veja se esse vídeo que eu fiz pode te ajudar:
https://www.youtube.com/watch?v=7ail9u-wvhg&t=398s

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 27/04/2018 1:10 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Private Sub UserForm_Initialize()

    Dim I As Long
    Dim J As Long
    Dim ANTERIOR As String
    Dim POSTERIOR As String
    
    If ComboBox1.ListCount >= 1 Then
        For I = 0 To ComboBox1.ListCount - 2
            For J = I + 1 To ComboBox1.ListCount - 1
                
                ANTERIOR = ComboBox1.List(I)
                POSTERIOR = ComboBox1.List(J)
                
                If ANTERIOR > POSTERIOR Then
                    
                    ANTERIOR = ComboBox1.List(J)
                    POSTERIOR = ComboBox1.List(I)
                    
                    ComboBox1.List(I) = ANTERIOR
                    ComboBox1.List(J) = POSTERIOR
                End If
                
            Next J
            
        Next I
        
    End If
End Sub

Postado : 27/04/2018 8:58 pm