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

ordenar con macros

Ver el tema anterior Ver el tema siguiente Ir abajo

ordenar con macros

Mensaje por margove el Mar Ago 24, 2010 12:47 pm

hola a todos:
tengo un problema todos los meses me mandan a imprimir listados grandes y tengo que
ordenarlos en 2 columnas por hoja para el ahorro de hojas al imprimir nesecito automatizar
esta operacion utilizando macros e desarrollado uno pero no me soluciona el problema

ITEM CODIGO
1 246542156
2 454872457
3 265356654
4 875646745

me debe ordenar asi

ITEM CODIGO ITEM CODIGO
1 246542156 3 265356654
2 454872457 4 875646745

Gracias por su ayuda

Nota: adjunto el archivo


margove

Femenino Cantidad de envíos : 2
Edad : 39
Ciudad - Pais : peru
Version de Excel : 2003-2007
Fecha de inscripción : 16/11/2009

Volver arriba Ir abajo

Re: ordenar con macros

Mensaje por GalileoGali el Mar Ago 24, 2010 11:34 pm

Proba esta Macro:


Código:
Option Explicit

Sub Desdoblar()
Dim lRegistrosFila As Long
Dim rngParticion As Range
Dim paridad As Integer

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
   
    Columns("C:F").Clear
    lRegistrosFila = Cells(Rows.Count, "A").End(xlUp).Row
    paridad = lRegistrosFila Mod 2 - 1
        Range("F2").FormulaR1C1 = "=ROW(RC[-5])-1 >=INT((ROWS(R2C1:R" & lRegistrosFila & "C1)+2)/2)-" & paridad & ""
    Range("B2").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "F1:F2"), CopyToRange:=Range("C1:D1")
    Set rngParticion = Columns("A:A").Find(What:=CStr(Range("C2")), LookAt:=xlWhole, SearchOrder:=xlByRows)
    Range(rngParticion, Cells(lRegistrosFila, "B")).Clear
    Range("F2").Clear
   
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With
   
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

para inpresion

Mensaje por margove el Miér Ago 25, 2010 12:59 pm

hola
gracias por el codigo lo probe pero lo que hace es partir el listado en dos y mostrarlo en la siguiente columna bueno esa es la idea pero no del listado en generar sino cuando halla salto de pagina el correlativo comienze en donde se quedo en la primera pagina
mas o menos como el archivo que envio adjunto debe quedar
de todas manera gracias por tu apoyo

margove

Femenino Cantidad de envíos : 2
Edad : 39
Ciudad - Pais : peru
Version de Excel : 2003-2007
Fecha de inscripción : 16/11/2009

Volver arriba Ir abajo

Re: ordenar con macros

Mensaje por Tatayayan el Jue Ago 26, 2010 6:51 pm

Hola, suponiendo que los datos estan en la columna A de la hoja uno y que tienen un encabezado este sería el código:

Sub DosColumnas()
Dim UltFila As Integer, Mitad As Integer, i As Integer, x As Integer
UltFila = Hoja1.Range("A65536").End(xlUp).Row - 1
If UltFila = 0 Then
MsgBox "No Hay Datos", 64, ""
Exit Sub
End If
Mitad = Int(UltFila / 2)
x = 2
Hoja1.Range("B1").Value = Hoja1.Range("A1").Value
For i = Mitad + 2 To UltFila + 1
Hoja1.Range("B" & x).Value = Hoja1.Range("A" & i).Value
Hoja1.Range("A" & i).Value = ""
x = x + 1
Next i
End Sub


Los datos estarían desde "A2" en adelante.
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: ordenar con macros

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.