Este fórum está sendo desativado

[daniexcel]

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

[alexandrevba]

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

[daniexcel]

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

[alexandrevba]

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

[daniexcel]

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

[alexandrevba]

Boa tarde!!

Tente o anexo, talvez ajude.


Att

[daniexcel]

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