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

dividir una columna en grupos

Ver el tema anterior Ver el tema siguiente Ir abajo

dividir una columna en grupos

Mensaje por fhsabio el Mar Oct 30, 2012 9:39 am

Hola. Por no saber no sé ni formular la pregunta. Lo mismo ya está contestada y no la encuentro. Yo tengo una columna de 2000 correos electrónicos. He de mandar un comunicado a cada uno de ellos, pero sólo puedo enviar los correos en grupos de 40 (no deja más el servidor de mi empresa) ¿hay alguna forma de automatizarlo para luego yo copiar y pegar en outlook cada grupo de destinatarios y así poder mandar un correo masivo con grupos de 40 destinatarios?. No es spam, es para un comunicado interno.
Perdón por la redacción pero no sé cómo se llama lo que quiero hacer.
un saludo.
Gracias

fhsabio

Masculino Cantidad de envíos : 3
Edad : 57
Ciudad - Pais : españa
Version de Excel : 2010
Fecha de inscripción : 30/10/2012

Volver arriba Ir abajo

Re: dividir una columna en grupos

Mensaje por moises melgar el Mar Oct 30, 2012 10:00 pm

Bienvenido a excelgali
Te dejo el link donde podrás observar una consulta parecido sobre el tema de Excel-Outlook así como un libro de excel para adecuar a tus necesidades.

[Tienes que estar registrado y conectado para ver este vínculo]

Primero te recomiendo que lo analises, cualquier duda que tengas o que te surja continua con este tema.
avatar
moises melgar
Jr_Moderator

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

Volver arriba Ir abajo

Re: dividir una columna en grupos

Mensaje por fhsabio el Miér Oct 31, 2012 6:58 am

Gracias. Ahora mismo lo consulto.

fhsabio

Masculino Cantidad de envíos : 3
Edad : 57
Ciudad - Pais : españa
Version de Excel : 2010
Fecha de inscripción : 30/10/2012

Volver arriba Ir abajo

Re: dividir una columna en grupos

Mensaje por moises melgar el Miér Oct 31, 2012 1:26 pm

Ahora para poder Separa una columna en grupos de una cierta cantidad adjunto al mensaje un Archivo con un ejemplo:

Código:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Rangoinf, Rangosup, Grupos_de, Numgrupos
   
Rangoinf = 3 'es la fila donde se encuentra el primer valor de la columna a dividir en grupos
Rangosup = Range("A" & Rows.Count).End(xlUp).Row 'es situarse en la ultima celda de la columna A y dar CTrl + flecha direcc arriba
Grupos_de = Range("B1").Value 'Valor de la celda B1
Numgrupos = WorksheetFunction.RoundUp((Rangosup - Rangoinf + 1) / Grupos_de, 0) 'funcion Matematica =numero de valores/cantida nec por grupo, roundUp es redondear.mas a entero (0 decimales)
   
If Rangosup < Rangoinf Then ' si el ultimo dato es menor al aprimero ...entoces no hay datos
GoTo fin  ' Si la condicion de arriba es True....entoces Saltate todo el proceso y continua a partir de la palabra "fin:"
End If  ' termina el criterio

Range("B2:" & Cells(Range("B2").End(xlDown).Row, Range("B2").End(xlToRight).Column).Address).ClearContents 'Elimina los valores de las columans B hasta la ultima del anterior divicion de grupos
For x = 1 To Numgrupos 'Bucle pasa de 1 en uno hasta completar los grupos en que se divide el rango
Cells(2, x + 1).Value = "Grupo " & x  'en este caso uso a X como el num de columna Cells(fila, columna), fila = 2 columna varia de acuerdo al grupo
Range("A" & (Grupos_de * x) - Grupos_de + Rangoinf & ":A" & (Grupos_de * x) + Rangoinf - 1).Copy 'formulas matematicas para determinar los rangos superior e inferior que le corresponde a cada grupo y copiar el rango obtenido.
Cells(3, x + 1).Select 'selecciona la columna que le corresponde al grupo
ActiveSheet.Paste ' pega los valores antes copiados
Application.CutCopyMode = False ' con esto se elimina el valor copiado del portapapeles.
Next x  'regresa a For hasta que llegue al numero de grupos obtenidos

fin: ' Aqui esta el Fin que se evalua en al parte de la condicion "IF"
End Sub
Archivos
Separar columnas en grupos de.xlsm No tienes los permisos para descargar los archivos.(25 KB) Descargado 23 veces
avatar
moises melgar
Jr_Moderator

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

Volver arriba Ir abajo

Re: dividir una columna en grupos

Mensaje por fhsabio el Lun Nov 05, 2012 5:20 am

Muchas gracias. Es lo que buscaba. Ahora sólo tengo que convencer al Outlook que mande mensajes a cada grupo.
Reitero los agradecimientos.
Un saludo

fhsabio

Masculino Cantidad de envíos : 3
Edad : 57
Ciudad - Pais : españa
Version de Excel : 2010
Fecha de inscripción : 30/10/2012

Volver arriba Ir abajo

Re: dividir una columna en grupos

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.