Unir varias FILAS en Excel
Ante todo un gran saludo,
Quisiere me ayudaras con el siguiente problema: estoy haciendo un modulo de contratos en excel 2003, al que diseñe una hoja "DATOS" para insertar los datos " variables" como nombre, cedula de identidad, datos de registro de compañía, montos de contratación, impuesto etc, en otra hoja tengo el formato del contrato al cual hay que insertarle esos datos "variables" los cuales se copian desde la hoja "DATOS" y así sucesivamente también a la caratula del contrato esa parte ya la resolví, ahora bien, tanto el contrato como tal como la caratula tienen una primera parte especie de introducción al contrato contenida en la fila 11 a la fila 29 y a la caratula que esta en otra hoja ( contenida desde la fila 9 a la fila 37) la cual quisiera reunir en UNA SOLA FILA en ambos casos para así evitar los espacios en blanco y justificar cuando estos datos sean más amplios o más pequeños sin que se deforme el formato original.
En este foro encontré una macro la cual te copio:
Esta rutina hará entonces esto, con datos en col B (2), desde fila 1 hasta la 100 - ajustá estas ref según tu hoja.
Colocala en un módulo y pruébala sobre 1 copia.
Sub Combinando()
'
' Macro grabada el 10/03/2009 por pc-03
Application.DisplayAlerts = False
Range("B1").Select
fil1 = ActiveCell.Row
cadena = cadena & ActiveCell.Value & " "
While ActiveCell.Row < 30
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
Range(Cells(fil1, 2), Cells(ActiveCell.Offset(-1, 0).Row, 2)).Select
With Selection
.Merge
.Value = cadena
.WrapText = True 'ajusta text
End With
cadena = ""
ActiveCell.Offset(1, 0).Select
fil1 = ActiveCell.Offset(1, 0).Row
Else
cadena = cadena & ActiveCell.Value & " "
End If
Wend
Application.DisplayAlerts = True
End Sub
Y efectivamente me une todas las filas y puedo luego editar el formato de negritas y el contador de miles de los números, PERO en la celda donde se pega la información aparece un espacio en blanco muy grande y la información solo esta a la vista hasta las primeras 10 filas aproximadamente ( el resto esta a la izquierda en una especie de filas larguisimassssss que solo puedes ver abriendo las columnas lo cual deforma el formato del contrato porque ocuparía varias páginas horizontalmente.
Otra cosa por ejemplo: en la caratula en la fila 16 esta subdividida en tres, en la primera dice la palabra Presidente (dato que no varia), en la segunda se copia el nombre del presidente ( dato variable) y en la tercera parte venezolano, mayor de edad de éste domicilio y titular de la... ( dato que no varia); cuando aplicas la macro no toma el nombre del presidente (dato variable) ni el numero de cedula, es decir si la fila esta dividida no toma todo el contenido de la misma.
Puedo enviarte vía correo el libro de excel para que veas más claramente la explicación ya que en el mismo resalto en color amarillo las partes que deben ir en una sola celda tanto en el contrato como en la caratula y supongo que al encontrar la solución pudiera trasladarla a las demás hojas que debo incorporar tal como "punto de cuenta" cartas de invitación y/o aceptación etc...
En síntesis:
Necesitaría una macro para
1.UNIR VARIAS FILAS, sin perder los formatos o en tal caso poder editarlos
2. Tomar todos los datos contenidos en esas filas ( para los casos de filas divididas a razón de los "datos variables que deben insertarse en ellas"
3. Poder ver todo el contenido del rango de filas seleccionadas DENTRO del área de impresión
Quisiere me ayudaras con el siguiente problema: estoy haciendo un modulo de contratos en excel 2003, al que diseñe una hoja "DATOS" para insertar los datos " variables" como nombre, cedula de identidad, datos de registro de compañía, montos de contratación, impuesto etc, en otra hoja tengo el formato del contrato al cual hay que insertarle esos datos "variables" los cuales se copian desde la hoja "DATOS" y así sucesivamente también a la caratula del contrato esa parte ya la resolví, ahora bien, tanto el contrato como tal como la caratula tienen una primera parte especie de introducción al contrato contenida en la fila 11 a la fila 29 y a la caratula que esta en otra hoja ( contenida desde la fila 9 a la fila 37) la cual quisiera reunir en UNA SOLA FILA en ambos casos para así evitar los espacios en blanco y justificar cuando estos datos sean más amplios o más pequeños sin que se deforme el formato original.
En este foro encontré una macro la cual te copio:
Esta rutina hará entonces esto, con datos en col B (2), desde fila 1 hasta la 100 - ajustá estas ref según tu hoja.
Colocala en un módulo y pruébala sobre 1 copia.
Sub Combinando()
'
' Macro grabada el 10/03/2009 por pc-03
Application.DisplayAlerts = False
Range("B1").Select
fil1 = ActiveCell.Row
cadena = cadena & ActiveCell.Value & " "
While ActiveCell.Row < 30
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
Range(Cells(fil1, 2), Cells(ActiveCell.Offset(-1, 0).Row, 2)).Select
With Selection
.Merge
.Value = cadena
.WrapText = True 'ajusta text
End With
cadena = ""
ActiveCell.Offset(1, 0).Select
fil1 = ActiveCell.Offset(1, 0).Row
Else
cadena = cadena & ActiveCell.Value & " "
End If
Wend
Application.DisplayAlerts = True
End Sub
Y efectivamente me une todas las filas y puedo luego editar el formato de negritas y el contador de miles de los números, PERO en la celda donde se pega la información aparece un espacio en blanco muy grande y la información solo esta a la vista hasta las primeras 10 filas aproximadamente ( el resto esta a la izquierda en una especie de filas larguisimassssss que solo puedes ver abriendo las columnas lo cual deforma el formato del contrato porque ocuparía varias páginas horizontalmente.
Otra cosa por ejemplo: en la caratula en la fila 16 esta subdividida en tres, en la primera dice la palabra Presidente (dato que no varia), en la segunda se copia el nombre del presidente ( dato variable) y en la tercera parte venezolano, mayor de edad de éste domicilio y titular de la... ( dato que no varia); cuando aplicas la macro no toma el nombre del presidente (dato variable) ni el numero de cedula, es decir si la fila esta dividida no toma todo el contenido de la misma.
Puedo enviarte vía correo el libro de excel para que veas más claramente la explicación ya que en el mismo resalto en color amarillo las partes que deben ir en una sola celda tanto en el contrato como en la caratula y supongo que al encontrar la solución pudiera trasladarla a las demás hojas que debo incorporar tal como "punto de cuenta" cartas de invitación y/o aceptación etc...
En síntesis:
Necesitaría una macro para
1.UNIR VARIAS FILAS, sin perder los formatos o en tal caso poder editarlos
2. Tomar todos los datos contenidos en esas filas ( para los casos de filas divididas a razón de los "datos variables que deben insertarse en ellas"
3. Poder ver todo el contenido del rango de filas seleccionadas DENTRO del área de impresión
1 Respuesta
Respuesta de mrtool