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

Como ordeno una tabla con formato de recuadro

Ver el tema anterior Ver el tema siguiente Ir abajo

Como ordeno una tabla con formato de recuadro

Mensaje por marcojam19 el Miér Ago 03, 2011 9:02 pm

Buenas tardes.

ayuda por favor necesito, ordenar una tabla que contiene unas celdas con borde de cuadro grueso, pero cuando ordeno las celdas por valores el borde de cuadro grueso, permanece en su lugar y no lo ordena con el contenido de la celda. alguien sabra como le puedo hacer para que estas celdas se ordenen con su formato de borde de cuadro grueso?

espero haberme explicado bien

Gracias de antemano.

Saludos.
Archivos
ordenar borde de cuadro grueso.xlsx les anexo un ejemplo. gracias.No tienes los permisos para descargar los archivos.(10 KB) Descargado 8 veces

marcojam19

Masculino Cantidad de envíos : 4
Edad : 36
Ciudad - Pais : Mexico D.F.
Version de Excel : 2007
Fecha de inscripción : 25/04/2011

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por moises melgar el Miér Ago 03, 2011 9:11 pm

Se me ocurre el uso de formato condicional
para las celdas cuyo valor sea = a 1en ese rango
Disculpa me equivoque de archivo Ahora si
adjunto ejemplo
Archivos
Ejemplo de Formatocondicional para ordenar junto a formato.xlsx No tienes los permisos para descargar los archivos.(10 KB) Descargado 6 veces
avatar
moises melgar
Jr_Moderator

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

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por marcojam19 el Miér Ago 03, 2011 9:45 pm

antes que nada muchas gracias por el tiempo y el aporte.
pero la verdad se me paso ese detalle en el ejemplo, lo que pasa es que no solo los 1 tiene ese recuadro, el recuadro lo tiene varias celda con diferentes numeros e inclusive algunos se repiten y de estos que se repiten hay algunos que tiene recuadro y otros no.

una disculpa, nuevamente gracias y ojala haya sido mas orientador con esta breve explicacion.

Un saludo.

marcojam19

Masculino Cantidad de envíos : 4
Edad : 36
Ciudad - Pais : Mexico D.F.
Version de Excel : 2007
Fecha de inscripción : 25/04/2011

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por moises melgar el Jue Ago 04, 2011 11:33 am

Cual es el criterio de la eleccion de estos datos??
Otra forma seria atravez de una macro.
Nota: el foro cuenta con un CHatbox (en el indice en la parte inferior) para conversar uno a uno
Ok por las malas.... un archivo donde tendras que copiar el formato condicional de un cuadro ya existente para copiarlo en las celdas donde quieras ese recuadro
(USAR LA BROCHA QUE DICE COPIAR FORMATO DEL MENU INICIO)
Archivos
Ejemplo de Formatocondicional para ordenar junto a formato(2).xlsx No tienes los permisos para descargar los archivos.(11 KB) Descargado 5 veces
avatar
moises melgar
Jr_Moderator

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

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por Cacho R el Jue Ago 04, 2011 10:22 pm

Hola! Marco. Te muestro una alternativa posible.

Saludos Marco / Moisés.
Cacho R.
Archivos
Ordenar borde de cuadro grueso_2.zip No tienes los permisos para descargar los archivos.(11 KB) Descargado 17 veces
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por Gerson Pineda-El Catracho el Mar Ago 09, 2011 11:27 pm

Hola marconjam
Para bien que VBA nos permite leer los bordes de nuestros rangos, con la macro siguiente bastara con leer el borde izquierdo para saber que ese rango contiene su respectivo borde desde A hasta D, debo mencionar que muchas veces hay que burlar Excel jeje pues eso es lo que trato de hacer con la macro

Código:
Sub ordenarporbordes()
Dim uf As Long, contador As Long, celda As Range
Application.ScreenUpdating = False
uf = Range("A" & Rows.Count).End(xlUp).Row
For Each celda In Range("A3:A" & uf)
    'Range(Range("A" & celda.Row), Range("D" & celda.Row)).Borders.LineStyle
    tipoborde = Cells(celda.Row, "A").Borders(xlEdgeLeft).LineStyle
    If Cells(celda.Row, "A").Borders(xlEdgeLeft).LineStyle > 0 Then
        contador = contador + 1
        Cells(celda.Row, "E") = contador + Cells(celda.Row, "D")
    End If
Next
With Range("A3").CurrentRegion
    .Sort Range("E3"), xlAscending 'xlDescending
    .Borders(xlEdgeLeft).LineStyle = xlNone
    .Borders(xlEdgeBottom).LineStyle = xlNone
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone
End With
Range("E3").Activate
While ActiveCell > 0
    Range(Cells(ActiveCell.Row, "A"), _
    Cells(ActiveCell.Row, "D")).BorderAround _
    xlContinuous, xlMedium
    ActiveCell.Offset(1).Activate
Wend   
'For Each celda In Range("A3:A" & uf)
'    If Cells(celda.Row, "E") > 0 Then
'        Range(Cells(celda.Row, "A"), Cells(celda.Row, "D")).BorderAround xlContinuous, xlMedium
'    End If
'Next
Columns("E:E").ClearContents
Application.ScreenUpdating = True
End Sub

Espero sea eso lo que necesitas, has varias pruebas y comentas

Saludos desde Honduras

Pd un abrazo al resto



Última edición por Gerson Pineda-El Catracho el Lun Ago 15, 2011 12:45 am, editado 2 veces
avatar
Gerson Pineda-El Catracho

Masculino Cantidad de envíos : 107
Edad : 39
Ciudad - Pais : SPS - Honduras
Version de Excel : 2003/2007/2010/2013
Fecha de inscripción : 02/04/2008

http://gerson-pineda-el-catracho.blogspot.com/

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por Cacho R el Miér Ago 10, 2011 11:46 am

Jajaja...
¡Buena ésa, Gerson!
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por Gerson Pineda-El Catracho el Miér Ago 10, 2011 12:19 pm

Cacho! que bueno que te haya gustado, pero el interesado aun no aparece... y solo un pequeño ajuste para que ordene correctamente

Cells(celda.Row, "E") = contador + Cells(celda.Row, "D")

Saludos desde Honduras


Última edición por Gerson Pineda-El Catracho el Lun Ago 15, 2011 12:20 am, editado 1 vez
avatar
Gerson Pineda-El Catracho

Masculino Cantidad de envíos : 107
Edad : 39
Ciudad - Pais : SPS - Honduras
Version de Excel : 2003/2007/2010/2013
Fecha de inscripción : 02/04/2008

http://gerson-pineda-el-catracho.blogspot.com/

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por moises melgar el Miér Ago 10, 2011 12:29 pm

Ese interesado... que le pasara a estos nuevo miembros?????
Es un foro para compartir y apoyaros, esto de Pedir y huir uuufff,
pero me alegra que siempre los mismos personajes Estan Dispuestos para Ayudar incondicionalmente con sus ideas que de repente salen y se toman las molestias de realizarlas.
Gracias Catracho
avatar
moises melgar
Jr_Moderator

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

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por Cacho R el Miér Ago 10, 2011 5:12 pm

Sin embargo, hay que reconocer que marcojam19 es constante: 2 preguntas y ninguna devolución ni agradecimiento por los intentos de ayuda...

¡Veamos lo bueno, también!...
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por moises melgar el Miér Ago 10, 2011 5:36 pm

El tema "Como sumar la cantidad "anterior" de la celda A1 + la nueva y obtener el resultado en la celda A1"
fue muy raro....
normalmente preguntan para poder realizar libros para funciones especiales
¿Cual seria el objetivo de ambas ?
¿Consultas separadas o Que?

Pero como dicen veamos lo bueno
avatar
moises melgar
Jr_Moderator

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

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por Cacho R el Miér Ago 10, 2011 9:44 pm

Yo creo que mi amigo Gerson debería seguir aplicando su tiempo a depurar el código mostrado.

Seguramente va a ser -más que- muy agradecido su esmero y meticulosidad...

¿O no? (jejeje)
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

Mensaje por Gerson Pineda-El Catracho el Lun Ago 15, 2011 12:49 am

Hola Cacho (hola tambien moises)
Te hice caso jeje, y bueno seguro tu tambien puedes depurarlo mejor que yo! pero ahi va... (tambien lo modifique arriba)

Saludos amigos

Código:
Sub ordenarporbordes()

Dim uf As Long, contador As Long, celda As Range

Application.ScreenUpdating = False

uf = Range("A" & Rows.Count).End(xlUp).Row
For Each celda In Range("A3:A" & uf)
    'Range(Range("A" & celda.Row), Range("D" & celda.Row)).Borders.LineStyle
    tipoborde = Cells(celda.Row, "A").Borders(xlEdgeLeft).LineStyle
    If Cells(celda.Row, "A").Borders(xlEdgeLeft).LineStyle > 0 Then
        contador = contador + 1
        Cells(celda.Row, "E") = contador + Cells(celda.Row, "D")
    End If
Next

With Range("A3").CurrentRegion
    .Sort Range("E3"), xlAscending 'xlDescending
    .Borders(xlEdgeLeft).LineStyle = xlNone
    .Borders(xlEdgeBottom).LineStyle = xlNone
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone
End With

Range("E3").Activate
While ActiveCell > 0
    Range(Cells(ActiveCell.Row, "A"), _
    Cells(ActiveCell.Row, "D")).BorderAround _
    xlContinuous, xlMedium
    ActiveCell.Offset(1).Activate
Wend
   
'For Each celda In Range("A3:A" & uf)
'    If Cells(celda.Row, "E") > 0 Then
'        Range(Cells(celda.Row, "A"), Cells(celda.Row, "D")).BorderAround xlContinuous, xlMedium
'    End If
'Next
Columns("E:E").ClearContents

Application.ScreenUpdating = True

End Sub
Espero el amigo al menos comente que le sirvio de algo... aunque si no lo hace lo importante es que tambien aprendemos de los mal-agradecidos
avatar
Gerson Pineda-El Catracho

Masculino Cantidad de envíos : 107
Edad : 39
Ciudad - Pais : SPS - Honduras
Version de Excel : 2003/2007/2010/2013
Fecha de inscripción : 02/04/2008

http://gerson-pineda-el-catracho.blogspot.com/

Volver arriba Ir abajo

Re: Como ordeno una tabla con formato de recuadro

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.