Guru do Excel e Power BI

Enviado: **22 Jan 2016 às 14:44**

Olá pessoal, gostaria de uma ajuda de vocês.
O que eu queria é um código com duas etapas:

1ª PARTE - que preenchesse o conteudo selecionado (somente células visíveis), numa unica célula (na planilha tem o exemplo), mas só para falar a respeito... eu teria uma lista de registros unicos (poderiam ser repetidos, mas não é o caso), onde ao selecionar determinadas células, e carregar a macro, ele me traria numa celula todos os valores das células selecionadas, separados por ";" (ponto e virgula)

2ª PARTE - Com um conteudo carregado (pode ser o exemplo carregado da primeira parte, ou um novo... tambem de registros separados por ";").. em uma celula determinada, eu insiro um texto qualquer e ao carregar a macro ele me aplica numa coluna a parte exatamente nos registros que eu possuo (que na minha célula estão separados por ponto e virgula)

Desde já , agradeço

Enviado: **25 Jan 2016 às 15:19**

Boa tarde!!

Você consegue adaptar essa rotina?

Código: Selecionar todos

Sub AleVBA_1261_adpter()
'Feito pelo MVP mdmackillop
    Dim tmp As Variant
    Dim cell As Range
     
    For Each cell In Selection
        tmp = tmp & cell.Value
    Next cell
     
    'Selection.ClearContents
    Selection.Cells(6, 5).Value = tmp 'Resultado na célula E6
End Sub

Att

Enviado: **26 Jan 2016 às 10:23**

Oi Alexandre, bom dia
Super obrigado. Consegui adaptar a primeira parte. Eu até tinha feito essa primeira etapa.
A minha duvida mesmo é em relação a segunda parte. (que seria aplicar um texto X em uma nova coluna ao lado de todas as seleções da nova celula)
Seria um processo reverso. Onde eu deveria separar todas os registros que foram gravados e inserir esse texto ao lado.
Se puder me ajudar, fico muito agradecido

valeuzão
Abs

Enviado: **26 Jan 2016 às 10:48**

Boa tarde!!

Seria isso?

Código: Selecionar todos

Sub AleVBA_1261V2()
'Feito pelo MVP mdmackillop
    Dim tmp As Variant
    Dim cell As Range
     
    For Each cell In Selection
        tmp = tmp & cell.Value
        cell.Offset(0, 1).Value = Range("O7").Value 'Seria isso ?
    Next cell
     
    'Selection.ClearContents
    Selection.Cells(6, 5).Value = tmp 'Resultado na célula E6
    
End Sub

Enviado: **26 Jan 2016 às 12:42**

infelizmente não =/
a primeira parte está ok.
eu ja tinha dado um jeito um pouco diferente
a segunda etapa é a de utilizar os dados coletados (que são os registros separados por ponto e virgula). O que eu queria fazer é a situação inversa , onde eu pegaria cada registro (separado por ponto e virgula) e aplicaria o valor inserido na coluna ao lado (melhor seria fazer por prompt)..
Ex: digamos que eu tenha

(4;7;9;15;18) quando inserir o valor, este mesmo valor iria para uma nova coluna... para as celulas correspondentes aos registros 4, 7 , 9 , 15 e 18 (como uma especie de procv)

Acho que é isso... estou mandando em anexo

Enviado: **26 Jan 2016 às 16:33**

Boa tarde!!

Tente o anexo, talvez ajude.

Att

Enviado: **27 Jan 2016 às 09:06**

Fala Alexandre, boa tarde
Entao.. nao deu muito certo... ele dá erro e nao consegui identificar onde

Guru do Excel e Power BI

Consolidar codigo celulas selecionadas

Consolidar codigo celulas selecionadas

Re: AJUDA - CONSOLIDAR CODIGO CELULAS SELECIONADAS

Re: consolidar codigo celulas selecionadas

Re: Consolidar codigo celulas selecionadas

Re: Consolidar codigo celulas selecionadas

Re: Consolidar codigo celulas selecionadas

Re: Consolidar codigo celulas selecionadas