Concatenar con Condición en Excel?
Sabe como concatenar en la Columna H los conceptos de la Columna E que corresponde a cada cantidad ($) de la Columna F pero cada cantidad posee conceptos de 2,3,4,5,6 filas por lo que concatenar manualmente cada uno en el archivo de 5,000 filas se vuelve trabajoso, ¿De qué manera se puede automatizar?
¿Si entendí bien quieres algo parecido a esto?
si es si prueba con esta macro, esta hecha para empezar en la celda e1, solo ajusta la primera línea a tus datos
Sub rellenar()
Set DATOS = Range("e1").CurrentRegion
With DATOS
INICIO = Range("E1").Row
X = 1
For I = 1 To .Rows.Count
FIN = .Cells(I, 2)
If FIN = vbNullString Then GoTo SIGUIENTE:
FIN = .Cells(I, 2).Row
RESTA = FIN - INICIO
If X = 1 Then Set AREA = .Rows(INICIO).Resize(RESTA + 1, 2)
If X > 1 Then INICIO = INICIO + 1: Set AREA = .Rows(INICIO).Resize(RESTA, 2)
INICIO = FIN
With AREA
.Select
For J = 1 To .Rows.Count
If J = 1 Then TEXTO = .Cells(J, 1)
If J > 1 And J < .Rows.Count Then TEXTO = TEXTO & " " & .Cells(J, 1)
If J = .Rows.Count Then TEXTO = .Cells(J, 1) & " " & DATOS.Cells(I, 2) & " " & TEXTO
Next J
DATOS.Cells(INICIO, .Columns.Count + 2) = TEXTO
End With
X = X + 1
SIGUIENTE:
Next I
End With
End Sub
1 respuesta más de otro experto
Este es el Rango de cada Concatenación inician justo en la fila de la Cantidad($) finalizan una fila antes de la siguiente cantidad. NO deseo concantenar la Cantidad solo los conceptos.-
Ejecuta la siguiente macro
Sub Concatenacion()
'Por. Dante Amor
For i = Range("E" & Rows.Count).End(xlUp).Row To 2 Step -1
cad = Cells(i, "E") & " " & cad
If Cells(i, "F") <> "" Then
Cells(i, "H") = Left(cad, Len(cad) - 1)
cad = ""
End If
Next
MsgBox "fin"
End SubCambia en la macro el número 2 por la fila donde empiezan los datos.
Sigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Concatenacion
- Aceptar.
- Para ejecutarla dale click a la imagen.
Sal u dos, Dante Amor, no olvides valorar la respuesta.