Jump to content
Fórum Script Brasil
  • 0

Criar Combobox com condições


Question

pessoal estou criando uma combobox que deverá ser exibida no formulário somente se o status estiver como "em obra", conforme exemplo abaixo.

gostaria que mostrasse no formulário somente as unidades 100, 200 e 500, desconsiderando a 500 porque está com o Status de concluída, normalmente eu utilizo o código abaixo

ultimalinhatipovenda = Sheets("Painel").Range("F6").End(xlDown).Row
Caixacombinacao_tipovenda.RowSource = "Painel!F7:F" & ultimalinhatipovenda
Caixacombinacao_tipovenda.Style = fmStyleDropDownList

Unidade Status
100      Em Obra
200      Em Obra
300      Concluída
500      Em Obra
Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

bom dia!!

Alyson, acho que não consegui explicar meu problema, mais tentando aqui eu já consegui, segue o código abaixo.

private Sub UserForm_Initialize()
Dim ultimaLin As Long, area As New Collection
Dim Value As Variant, temp() As Variant
On Error Resume Next

ultimaLin = Sheets("Planilha1").Range("A" & Rows.Count).End(xlUp).Row
temp = Sheets("Planilha1").Range("A2:A" & ultimaLin).Value
i = 2
For Each Value In temp
If Len(Value) > 0 And Range("B" & i) = "Obra" Then area.Add Value, CStr(Value)

i = i + 1
Next Value
For Each Value In area
'Adicionando item ao ComboBox
ComboBox1.AddItem Value
Next Value
Set area = Nothing
End Sub

 

minha dúvida fica em relação a classificação do combobox!!

image.png.0c10f4fa4c782515c17b8e314aa9781c.png

Link to post
Share on other sites
  • 0
sub ordenarcombobox()
dim iforsta, isista as integer
dim i, j as integer
dim stemp as string

iforsta = 0
isista = combobox1.listcount - 1

for i = iforsta to isista - 1
for j = i + 1 to isista
if combobox1.list(i) > combobox1.list(j) then
stemp = combobox1.list(j)
combobox1.list(j) = combobox1.list(i)
combobox1.list(i) = stemp
end if
next j
next i
end sub

Tenta usar esse código para organizar.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148907
    • Total Posts
      645002
×
×
  • Create New...