............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Combinar Celdas

Ver el tema anterior Ver el tema siguiente Ir abajo

Combinar Celdas

Mensaje por Maroto el Lun Mar 16, 2015 8:24 am

Buenos días,

Primeriza en Macros, espero que me podáis ayudar y sobre todo tengáis mucha paciencia.

Necesito Macro para combinar celdas de la columna A, de la hoja de cálculo que os adjunto, teniendo en cuenta que:

1. Las celdas tiene un listado de validación de datos
2. que combine celdas por Área (Producción, Venta, RRPP, etc)
3. que el Cuadro de Mando se va a ir alimentando, es decir cada área va a ir creciendo

Por otro lado si se os ocurre algo para que las formulas de la hoja, me las coja al ir insertando lineas sería ya para nota.

Espero vuestros comentarios. Lo dicho, muchas gracias.

Maroto

Femenino Cantidad de envíos : 2
Edad : 36
Ciudad - Pais : España
Version de Excel : 2010
Fecha de inscripción : 16/03/2015

Volver arriba Ir abajo

Re: Combinar Celdas

Mensaje por moises melgar el Miér Mar 18, 2015 1:55 am

Buenas noches
Para insertar archivos Recomiendo usar el One driver del Outlook
Entras a tu correo de Hotmail (outlook)
en la esquina superior izquierda (a lado de la palabra "Outlook.com")aparecen un boton donde se selecciona OneDriver
luego agregas tu archivo
una vez que tengas el archivo en onedriver le das click derecho y seleccionas insertar
generas el codigo HTML y lo pegas aqui en tu mensaje

Vamos con el codigo
(El Codigo es en base al ejemplo que adjunto abajo)
es una combinacion de :
bucle for que pasa de celda en celda de todas las filas con datos de la columna "A"
select case <--esta funcion es la que separa los datos de ua celda dependiendo de su valor y los va acumulando para formar la palabra concatenada

CON NOTAS:
Código:
Sub ejemplo_concatenar()
Dim filaf, Prod, Vts, RPP, Conta '<--me ayudan a identificar las areas

filaf = Range("A" & Rows.Count).End(xlUp).Row '<--encuentra la ultima fila con datos columna A

For x = 4 To filaf  'desde 4 por que mi rango empieza en 4 hasta el ultimo dato lleno
'Los bucles hacen que el valor de X pase desde en este caso de 4 de uno en uno hasta llegar al valor de filaf (en este caso)
'Cuando X sea 4 entonces Range("B" & x) seria Range("B" & 4) = Range("B4") y asi con todos los datos que lleven "x"
Select Case Range("B" & x).Value '<--evalua que valor tiene los datos de la columna B y la fila segun el valor de "x"
Case "Producción" '<----si al evaluar B&X resulta la palabra Producción se ejecuta el codigo de abajo, si no pasa a otro case
 Prod = Prod & "; " & Range("A" & x).Value '<---uso como separador el ";" se puede cambiar por otro (esta linea permite el concateneo de Producción)
Case "Ventas"
 Vts = Vts & "; " & Range("A" & x).Value
Case "RRPP"
 RPP = RPP & "; " & Range("A" & x).Value
Case "Contabilidad"
 Conta = Conta & "; " & Range("A" & x).Value
End Select
Next x
Range("E5").Value = Right(Prod, Len(Prod) - 2) ' <---rigth(valor,len(valor) -2 hace que elimine el primer valor de "; " que resulta despues de concatenar
Range("E6").Value = Right(Vts, Len(Vts) - 2)
Range("E7").Value = Right(RPP, Len(RPP) - 2)
Range("E8").Value = Right(Conta, Len(Conta) - 2)
End Sub

Mismo codigo pero sin notas:
Código:
Sub ejemplo_concatenar()
Dim filaf, Prod, Vts, RPP, Conta

filaf = Range("A" & Rows.Count).End(xlUp).Row

For x = 4 To filaf

Select Case Range("B" & x).Value
 Case "Producción"
  Prod = Prod & "; " & Range("A" & x).Value
 Case "Ventas"
  Vts = Vts & "; " & Range("A" & x).Value
 Case "RRPP"
  RPP = RPP & "; " & Range("A" & x).Value
 Case "Contabilidad"
  Conta = Conta & "; " & Range("A" & x).Value
End Select
Next x
Range("E5").Value = Right(Prod, Len(Prod) - 2)
Range("E6").Value = Right(Vts, Len(Vts) - 2)
Range("E7").Value = Right(RPP, Len(RPP) - 2)
Range("E8").Value = Right(Conta, Len(Conta) - 2)
End Sub

ojala te sea de ayuda saludos

adjunto el ejemplo (presiona el boton concatenar o ejecutar el codigo seleccionandola de Alt + F8)(realizado en Excel 2007) en el trabajo tengo 2010
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 549
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Combinar Celdas

Mensaje por Maroto el Vie Mar 20, 2015 6:04 am

Voy a ello y te cuento. Muchas gracias.

Maroto

Femenino Cantidad de envíos : 2
Edad : 36
Ciudad - Pais : España
Version de Excel : 2010
Fecha de inscripción : 16/03/2015

Volver arriba Ir abajo

Re: Combinar Celdas

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.