Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ordenar um combobox...
 
Notifications
Clear all

Ordenar um combobox ordem alfabetica

 
2024 - VBA & Macros
Post Recente por Fernandox 7 anos atrás
4 Posts
3 Usuários
0 Reactions
1,182 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
 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
 Fernandox
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola klarc28 e wzxnet7, fico grato pelos exemplos e pelo video, testei e funcionou perfeitamente, grato a todos que postaram no auxilio, abraco.

 
Postado : 30/04/2018 7:13 am
Forum Jump:
  Tópico Anterior
Próximo Tópico