• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Tiago_22

[Resolvido] Concatenação de colunas

7 mensagens neste tópico

Boas! Tenho 3 tabelas:

1ª tabela ("Apelidos") tem 2 colunas ("ID" ; "apelido") - 415 registos;

2ª tabela ("Nomes") tem 2 colunas ("ID" ; "nome") - 507 registos;

3ª tabela ("nomec") tem 2 colunas ("ID" ; "nomecompl") - quero que tenha cerca de 2500 registos, o "ID" era atribuido automaticamente, e o "nomecompl" era atribuido com um random do "nome" e do "apelido" que posteriomente se concatenavam.

mas n sei como fazer isso :s

se me poderem dar uma luzes, agradecia =P

cumps  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bom não sei se entendi bem, de qualquer forma para juntar o conteúdo de duas células (Nome e Apelido) basta pores a seguinte fórmula na barra de formulas na célula desejada para nome completo (imaginando que tens o nome na coluna A1 e o apelido na coluna B1) =A1& " " &B1

Se for em folhas diferentes =Folhatal!A1& " " &Folhatal!B1

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

e a parte do random como faço? esse e que é o maior problema  :D

cumps  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

se puderes esperar até segunda... tenho que adaptar o código mas cá vai ele em bruto se quiseres trabalhar nele entretanto...

Dim v As Variant
With Worksheets("Folha1")

    With .Range("A1:A" & (Range("A65536").End(xlUp).Row))
    
      v = .Value
      .Offset(0, 1).Formula = "=Rand()"
      .Resize(, 2).Sort Key1:=.Offset(0, 1)
      .Offset(0, 1).Value = .Value
      


    End With
End With 

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Talvez não seja a melhor maneira de fazer o que tu queres mas resulta:

1. coluna nomes (A1:Atal)

2. Cópia coluna de nomes (B1:Btal)- Escondida -

3. coluna que gera números aleatório (C1:Ctal) - Escondida com a fórmula =ALEATÓRIO()

4- coluna com Apelidos (D1: Dtal)

5- Cópia coluna de Apelidos (E1:Etal) - Escondida

6- coluna que gera números aleatórios - Escondida (F1:Ftal)- Escondida Escondida com a fórmula =ALEATÓRIO()

7- Coluna com nome completo aleatório (G1-Gtal) com a seguinte fórmula na celúla G1: =B1 & " " &E1

arrasta a formula até à célula Gtal

ATENÇÂO: a cópia das colunas nomes e Apelidos não pode ser feita por arrasto mas sim por copira-> colar Especial -> por valoes; ou então copiada a mão, já que se for arrastado a Macro não vai funcionar

agora grava uma macro a fazer os seguintes procedimentos:

1º Selecciona as céluas B1 a Ctal

2º Menu Dados-> Ordenar pela coluna C

3º Seleciona as células E1 a Ftal

4º Menu Dados- Ordenra pela Coluna F

a macro vai gerar automáticamente este código

Sub Macro4()


    Range("B1:Ctal").Select
       Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("E1:Ftal").Select
    Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Sempre que executares a Macro a coluna G vai te dar um nome completo ao calhas baseado na lista de nomes e apelidos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa so rsp agr Icaro mas n estive em casa este fim de semana...

obrigado pela sua rsp inda n testei vou fazer isso agr dps digo qlq coisa  :P

obrigado  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora