Este fórum está sendo desativado

[otavioh2]

Olá Bom dia

Gostaria de solicitar a ajuda de vocês para solucionar uma duvida

Na planilha que esta em anexo eu estou com um probleminha na combo 'caixa_defeito'.
Eu gostaria de carregar os item sem repetição.

[alexandrevba]

Bomdia!!

Porque não remover, usando essas duas linhas

Código: Selecionar todos

    Worksheets("lista").Range("B1:B1000").Copy Worksheets("equipamentos").Range("B1")
    Worksheets("equipamentos").Range("B1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes

Depois referenciar o intervalo a combobox?
Att

[otavioh2]

Bom dia Alexandre

Obrigado por responder.

Onde eu coloco o codigo?
e como seria referenciar o intervalo a combobox?

Desculpe minha ignorancia, mas é que sou leigo em VBA.

E mais uma vez muito obrigado pela ajuda

[alexandrevba]

Boa tarde!!

Tente assim, dentro do evento Initialize do Userform, acrescente as duas linhas.

Código: Selecionar todos

Private Sub UserForm_Initialize()
'codigo automatico
Range("a1").Select
While ActiveCell <> ""
If ActiveCell <> "Atendimento" Then
caixa_atendimento = ActiveCell.Offset(0, 0).Value + 1
Else
caixa_atendimento = 1
End If
ActiveCell.Offset(1, 0).Activate
Wend
'data automatica
caixa_data = Date
'carregar lista de equipamentos
linha = 2
Do Until Sheets("equipamentos").Cells(linha, 1) = ""
caixa_equipamentos.AddItem Sheets("equipamentos").Cells(linha, 1)
linha = linha + 1
Loop
    caixa_defeito.List = Sheets("equipamentos").UsedRange.Columns(2).Offset(2).Value 'AleVBA
    Worksheets("lista").Range("B1:B1000").Copy Worksheets("equipamentos").Range("B1") 'AleVBA
    Worksheets("equipamentos").Range("B1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes 'AleVBA
End Sub

Att

[otavioh2]

Boa tarde ALexandre e muito obrigado novamente.

Eu copiei o cod porem não deu certo...
Os itens ainda estão duplicados...

Segue a planilha com o cod para analise...

[BenhurPalini]

Boa tarde, otavioh2!

Minha sugestão é criar uma lista de defeitos válidos, como um cadastro. Também pode criar uma tabela para Equipamento, Causa e Ação separadamente. Assim fica mais organizado, é fácil de trabalhar com as informações.

Outra sugestão, se os dados estiverem devidamente classificados (de preferência em ordem alfabética), é guardar o item em uma variavel antes de alimentar o combo, se o valor do próximo item for diferente ao anterior (da variavel) pode adicionar ao combo.

att,

[otavioh2]

Boa dia BenhurPalini

Obrigado por sua ajuda

Me desculpe por minha ignorância, mas acontece que eu "não sei nada" de VBA...
Não sei se é pedir muito, ou abusar da boa vontade de vocês, mas se puderem fazer a alteração na planilha para mim por gentileza... eu ficaria eternamente grato...

Já tentei de varias formas e não obtive resultado com nenhuma delas...

[alexandrevba]

Bom dia!!

Da forma que está sua rotina e as linhas que acrescentei, não tive problemas!

Vamos aguardar para saber, se mais alguém consegue ajudar.

Att