Página 1 de 1
Combobox Dados Repetidos
Enviado: 22 Jan 2016 às 10:51
por 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.
Re: Combobox Dados Repetidos
Enviado: 26 Jan 2016 às 10:35
por 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
Re: Combobox Dados Repetidos
Enviado: 27 Jan 2016 às 07:16
por 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
Re: Combobox Dados Repetidos
Enviado: 27 Jan 2016 às 13:27
por alexandrevba
Boa tarde!!
Tente assim, dentro do evento Initialize do Userform, acrescente as duas linhas.
Código: Selecionar todosPrivate 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
Re: Combobox Dados Repetidos
Enviado: 27 Jan 2016 às 15:50
por 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...
Combobox Dados Repetidos
Enviado: 27 Jan 2016 às 19:26
por 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,
Re: Combobox Dados Repetidos
Enviado: 28 Jan 2016 às 07:40
por 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...
Re: Combobox Dados Repetidos
Enviado: 29 Jan 2016 às 08:34
por 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