Pesquisas Planilhas no Combobox com variavel

2024 - VBA & Macros

Post Recente por JoilsonDO 9 anos atrás

3 Posts

2 Usuários

0 Reactions

903 Visualizações

RSS

JoilsonDO

(@joilsondo)

Posts: 47

Eminent Member

Topic starter

Boa tarde Galera,

Preciso de uma ajuda.

Tem um sistema que pesquiso pela combobox as planilhas existentes no arquivo, com este código:

For Each sb In ActiveWorkbook.Sheets
Me.ComboBox1.AddItem sb.Name
Nex

Porém gostaria de acrescentar um critério, por exemplo:
Tenho planilhas com nomes: ABC-0001, ABC-0002, DEF-0001, DEF-0002

Gostaria de quando selecionar no combobox anterior, o fornecedor ABC, o combobox das planilhas só "carregasse" as planilhas que iniciam com ABC, e se selecionar o fornecedor DEF, só carregasse as planilhas que iniciam com "DEF".

Então o critério seriam apenas as 03 primeiras letras de cada nome da planilha, como ABC e DEF.

Alguém poderia me ajudar ?

OBrigado.

Postado : 16/07/2015 9:49 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Supondo que em seu formulário tenha dois combobox com os nomes padrão e o primeiro é preenchido com as 3 primeiras letras quando inicia :

Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "ABC"
        .AddItem "BAC"
        .AddItem "CAB"
        .AddItem "DEF"
    End With
End Sub

Private Sub ComboBox1_Change()
    Dim Sht As Worksheet
    Dim sNome
    
    sNome = ComboBox1.Value
    
    ComboBox2.Clear
    
    For Each Sht In Worksheets
        
        If Mid(Sht.Name, 1, 3) = sNome Then
            ComboBox2.AddItem Sht.Name
        End If
    
    Next Sht

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 16/07/2015 10:58 am