[Macro] Unir texto celdas diferentes columnas

Tenia una preguntilla un tanto facililla para realizar una macro, dado dos columnas "Direccion1" y "Direccio2" me gustaría copiar el contenido de "Direccio2" y anexionarlo en el contenido "Direccio1"sin borrar lo que hay dentro de "Direccio1" es decir ejemplo:
"Direccio1" "Direccio2"
Lopez Herrrero Nº12
Principe de Vergara Nº3 Escalera 2
Canillas Bajo 3 - 23
La "Direccio1" quedaría tal que así:
"Direccio1"
Lopez Herrrero Nº12
Principe de Vergara Nº3 Escalera 2
Canillas Bajo 3 - 23
*Ojo debe contener un espacio a la hora de anexionarlo porque sino quedaria Lopez HerrreroNº12

1 Respuesta

Respuesta
1
Este sería el código, para mi ejemplo dirección 1 está en A y dirección dos esta en la columna B:
Sub concatena()
Dim Comprobar, Contador
Comprobar = True: Contador = 1    ' Inicializa variables.
Do    ' Bucle externo.
    Do While Contador < 65000    ' Bucle interno.
        Contador = Contador + 1    ' Incrementa el contador.
        If Range("A" & Contador).Value <> "" Then    ' Si la condición es verdadera.
        a = Range("A" & Contador).Value
        b = Range("B" & Contador).Value
        Range("A" & Contador).Value = a & " " & b
        Range("B" & Contador). ClearContents ' Esta parte borra a lo que ue tu llamas dirección 2, si no quieres que se borre simplemente borra esta linea
            Comprobar = False    ' Establece el valor a False.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como copiar celdas especificas de un archivo a otro con macro

Tengo el siguiente problema tengo dos archivos uno con información y el otro vació lo que intento hacer es copiar de un archivo al otro pero mi complicación es que el encabezado o el orden varían el uno del otro pongo el siguiente ejemplo en el...
2 respuestas

Macro comparar valores columnas y copiar y pegar

Necesito realizar un macro que me compare dos columnas y si estas coinciden que me copie y pegue los valores relacionados en una a la otra, vale aclarar que las dos columnas se encuentran en hojas distintas, el proceso sería algo así: Tengo dos hojas...
1 respuesta

Buscar un valor en la columna A y copiar y pegar en otra hoja.

Tengo un libro en el cual tengo una hoja llamada "Explosión de Avíos" y otra hoja a la cual tengo que enviar los datos correspondientes al numero buscado y encontrado. Es decir; En la Columna "A" tengo un numero que identifica a los datos contiguos...
1 respuesta

Control de errores en VBA

Estoy liado con una macro en la que intento controlar un error. Te comento, utilizo la función Do para que mi macro se repita hasta que encuentre una celda vacía, ahí se detiene, en medio de la función do esta mi código que es crear una hoja por cada...
2 respuestas

Buscar valores en una columna en VBA

En mi hoja de excel tengo una columna, que contiene algunas celdas con un valor "X". Deseo, mediante una macro, localizar estas celdas y eliminar el contenido de la celda. ¿Cómo puedo hacerlo?
1 respuesta

Repartir cantidades en celdas

Quiero saber si me puedes ayudar a lo Siguiente: necesito una macro en Excel que me ayude a repartir una cantidad, que está en una celda, en un número determinado de columnas, por ejemplo repartir 67 en 23 columnas pero sin decimales, números...
1 respuesta

Eliminar datos negativos y positivos

En un rango en excel tengo los siguientes datos 25 30 -25 67 67 Como se puede hacer para eliminar los valores 25 positivos y negativos duplicados. Los 67 no se deben eliminar. Este es un ejemplo solo de 5 valores esta operación es para eliminar varios.
1 respuesta

Macro para mostrar valores de una variable en Msgbox

Experto recurro a ti para solicitar de tu valiosa ayuda en el siguiente problema, resulta que yo tengo un código el cual me ayuda para de una serie ordenada avisarme cuáles folios consecutivos son los que me faltan en esa serie, así que cuando...
1 respuesta

Subíndice fuera de intervalo

Ok, tengo un problemilla en Visual Basic resulta que quiero crear un archivo que me extraiga los datos de una base de datos que esta en otra pc, para eso estoy basándome en un archivo que tengo que creo otra persona, pero tengo un problemilla,...
1 respuesta

Macro para copiar según nombre de hoja

Tengo una macro con una hoja de registros por filas (hoja total), de esta hoja, con una macro paso los registros que tienen el la columna B:B el nombre de una hoja, a la correspondiente hoja. Esta es la mcro que repito para cada nombre de hoja: Sub...
1 respuesta