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.
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
Boa tarde,
Obrigado Mauro Coutinho, era exatamente isto do que eu estava precisando, resolveu o meu problema e me ajudou muito.
Obrigado
Abraços
Joilson.