Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Combobox Multiplos
 
Notifications
Clear all

Combobox Multiplos

 
2024 - VBA & Macros
Post Recente por ungsantos 8 anos atrás
2 Posts
1 Usuários
0 Reactions
770 Visualizações
RSS
 ungsantos
(@ungsantos)
Posts: 0
New Member
Topic starter
 

Olá a todos,

o meu problema é que tenho 3 combobox que precisam de informaçao de um e de outro, pretendo que quando selecciono o combobox 1 me filtra os valores de uma tabela com o valor igual à combobox1,
tehnho o seguinte código que só me dá valores únicos de uma coluna, mas pretendo que os valores dessa coluna com o valor da comobobox1 passa para os valores da coluna nao repetidos de AL.

Private Sub Comb_Datum_Change()
Dim sn, sn1 As Variant
Dim Rw As Variant
Dim DatumValue As Date

DatumValue = Me.Comb_Datum.Value
sn = Sheets(2).Range("B2:B65536") 'Combibox Projekt Filter
sn1 = Sheets(2).Range("AL2:AL65536") 'Combibox Projekt Filter

    With CreateObject("System.Collections.ArrayList") 'Combibox Datum Filter
        For Each Rw In sn1
            If Rw = "" Then GoTo a:
            'Ou aqui saber o valor da Row
            If Rw = DatumValue And Not .contains(Rw) Then .Add Rw
        Next Rw
a:
        .Sort
        Me.CombiProjekt.List = Application.Transpose(.toarray())
End With

End Sub

O que pretendo não o valor da row mas o número da row.

Se tiverem outra ideia melhor agradeço pela ajuda,
Abraços
João Santos

 
Postado : 06/03/2017 8:00 am
 ungsantos
(@ungsantos)
Posts: 0
New Member
Topic starter
 

Aqui está a resolução para o meu problemas:


Private Sub CombiProjekt_AfterUpdate()
Dim sn, sn1 As Variant
Dim Rw As Variant
Dim Projektnummer As String
Dim Row As Integer, Column As Integer
Dim Row1 As Integer, Column1 As Integer
Dim FirstColumn As String, SecondColumn As String
Projektnummer = Me.CombiProjekt.Value
sn = Sheets(2).Cells(Row, Column) 'Combibox Projekt Filter
sn1 = Sheets(2).Cells(Row1, Column1) 'Combibox Projekt Filter

Me.Comb_Datum.Value = ""
    
    With CreateObject("System.Collections.ArrayList") 'Combibox Datum Filter
        
        Do Until sn = ""
            FirstColumn = sn
            SecondColumn = sn1
            Row = Row + 1
            Row1 = Row1 + 1

            If sn = Projektnummer And Not .contains(SecondColumn) Then .Add SecondColumn 'Wert von SecondColumn
                sn = Sheets(2).Cells(Row, Column) 'Combibox Projekt Filter
                sn1 = Sheets(2).Cells(Row1, Column1) 'Combibox Projekt Filter
        Loop

        .Sort
        Me.Comb_Datum.List = Application.Transpose(.toarray())
        Me.Comb_Datum.ListIndex = 0
        Me.Comb_Datum.SetFocus
        SendKeys "%{Down}"
        
End With

End Sub

Abraços,
Obrigado a todos os que tentaram
João Santos

Citando a fonte também em:
https://gurudoexcel.com/forum/viewtopic ... 891#p20891

 
Postado : 08/03/2017 5:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico