Pergunte aqui
1

agrupar lista

perguntadas 2019-11-12 19:45:16 +0100

imagem do gravatar de cabelo

olá meus amigos!

como eu consigo a partir de uma lista de produtos que podem se repetir, criar uma segunda lista de cópia, agrupando os nomes dos produtos sem eles repetirem?

agradeço a ajuda e atenção!! desejo um ótimo dia a todos.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

@cabelo essa informação tem que ser uma lista de opção, ou as informações devem apenas estar listadas nas células?

imagem do gravatar de ConradoConrado ( 2019-11-13 11:40:09 +0100 )editar

oi Conrado, não entendi essa pergunta, mas seria assim:

A B C leite 2 Lista dos nomes sem repetir pão 3 leite suco 1 pão leite 1 suco suco 2 tomate tomate 3

essa lista da coluna C teria que ser criada automaticamente.

obs. a idéia final é eu poder juntar numa planilha3 os nomes contidos na coluna A das planilhas 1 e 2, mas est é um passo depois, se eu conseguir só fazer a lista automaticamente já uma grande ajuda.

obs2: não pode ser em macro, tem que ser fórmula e usarei também uma versão no excel.

obrigado pelo apoio.

imagem do gravatar de cabelocabelo ( 2019-11-27 12:25:31 +0100 )editar

me desculpe mas o comentário ficou todo bagunçado sem a formatação que eu fiz, vou postar novamente abaixo com a imagem

** não consigo colocar imagem e nem formato de tabela para exemplificar

imagem do gravatar de cabelocabelo ( 2019-11-27 12:45:42 +0100 )editar

@cabelo, faça uma edição da sua pergunta, ai você consegue colocar a sua imagem.

imagem do gravatar de ConradoConrado ( 2019-11-27 17:29:01 +0100 )editar

@cabelo, basicamente o que você precisa é tabela dinâmica, mas, se for possível postar a imagem ou a planilha exemplo ajuda muito

imagem do gravatar de ConradoConrado ( 2019-11-27 17:31:42 +0100 )editar

2 Respostas

0

respondidas 2019-11-12 20:57:15 +0100

updated 2019-11-12 21:38:41 +0100

Ola @cabelo, Segue um exemplo: Pode ser área, compara a linha toda.

Arquivo tem que ser ods.

'====================================================================
sub ExtrairUnicos
'sub ExtrairUnicos "Planilha1.B2:B14" , "Planilha1.C2" '(x as string, y as string)
'exemplo uso: ExtrairUnicos "Planilha1.A1:A8" , "Planilha2.A7"
'====================================================================
' fonte:  http://www.clubedohardware.com.br/profile/697345-tiank/ 
rem ----------------------------------------------------------------------
Dim mCamposFiltro(0) As New com.sun.star.sheet.TableFilterField
   xi = Split( "Planilha1.B2:b32","." )
   yi = Split( "Planilha1.C40","." )
   oPlan = ThisComponent.Sheets.getByName( xi(0) )
   oIntervalo = oPlan.getCellRangeByName( xi(1) )
   '=> esta parte permanece idêntica <=
   'Descritor do filtro
   oDescFiltro = oIntervalo.createFilterDescriptor( True )
    'Definir os campos
   mCamposFiltro(0).Field = 0
   mCamposFiltro(0).Operator = 1
   'Estabelecer o destino
   oPlan = ThisComponent.Sheets.getByName( yi(0) )
   oDestino = oPlan.getCellRangeByName( yi(1) ).getCellAddress()
   '=> Restante permanece igual <=
   'Propriedades do filtro padrão
   oDescFiltro.ContainsHeader = False
   oDescFiltro.SkipDuplicates = True
   oDescFiltro.CopyOutputData = True
   oDescFiltro.OutputPosition = oDestino
   oDescFiltro.FilterFields = mCamposFiltro
   oIntervalo.Filter( oDescFiltro )
end sub

Ou esta que preenche as variáveis InputBox:

'====================================================================
sub ExtrairUnicosInputBox ' vai pedir "Planilha1.A1:A8" "Planilha2.A7"
'====================================================================
'http://www.clubedohardware.com.br/profile/697345-tiank/ (parcial)
rem ----------------------------------------------------------------------
Dim mCamposFiltro(0) As New com.sun.star.sheet.TableFilterField
Dim x as String
Dim y as String
Dim xi() as Variant
Dim yi() as Variant
   x = inputbox("Área de extração: (Ex: Planilha1.D2:C24)")
   y = inputbox("Célula inicial para descarga: (Ex: Planilha2.C7)") 
      msgbox "Area de extração: "& X &" , Célula inicial para descarga: "& y
   xi = Split( x,"." )
   yi = Split( y,"." )
   oPlan = ThisComponent.Sheets.getByName( xi(0) )
   oIntervalo = oPlan.getCellRangeByName( xi(1) )
   '=> esta parte permanece idêntica <=
   'Descritor do filtro
   oDescFiltro = oIntervalo.createFilterDescriptor( True )
    'Definir os campos
   mCamposFiltro(0).Field = 0
   mCamposFiltro(0).Operator = 1
   'Estabelecer o destino
   oPlan = ThisComponent.Sheets.getByName( yi(0) )
   oDestino = oPlan.getCellRangeByName( yi(1) ).getCellAddress()
   '=> Restante permanece igual <=
   'Propriedades do filtro padrão
   oDescFiltro.ContainsHeader = False
   oDescFiltro.SkipDuplicates = True
   oDescFiltro.CopyOutputData = True
   oDescFiltro.OutputPosition = oDestino
   oDescFiltro.FilterFields = mCamposFiltro
   oIntervalo.Filter( oDescFiltro )
end Sub

-----------------------------------------------------------------------------

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

@cabelo, comentou:

Gilberto!! Obrigado pela resposta. Onde eu copio este código para que funcione?

Agradeço a ajuda.

imagem do gravatar de SchiavinattoSchiavinatto ( 2019-11-13 13:05:37 +0100 )editar
imagem do gravatar de SchiavinattoSchiavinatto ( 2019-11-13 13:24:32 +0100 )editar

oi Gilberto, agradeço imensamente sua ajuda, mas nesse caso eu preciso que seja em fórmula porque essa planilha será disponibilizada para mais pessoas que poderão, inclusive, usar o excel.

imagem do gravatar de cabelocabelo ( 2019-11-27 12:27:04 +0100 )editar

@cabelo, poste um arquivo modelo, use editar sua pergunta e use o ícone do clipe para anexar o arquivo.

No arquivo pode ser incluído nova coluna para trabalho ?

imagem do gravatar de SchiavinattoSchiavinatto ( 2019-11-27 19:57:52 +0100 )editar
0

respondidas 2019-11-27 17:35:47 +0100

imagem do gravatar de Conrado

@cabelo

Segue modelo de tabela dinâmica. Se você precisa juntar 02 planilhas em outra terceira, indico revisar a sistemática, pois isso fica inviável fazer em planilhas. Indico utilização do Base (Access)

Arquivo

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-11-12 19:45:16 +0100

Lidas: 25 vezes

Última atualização: Nov 27