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

copiar informacion, dejando un espacio cuando se encuentren datos repetidos

Ver el tema anterior Ver el tema siguiente Ir abajo

copiar informacion, dejando un espacio cuando se encuentren datos repetidos

Mensaje por benn el Vie Sep 14, 2012 7:14 pm

Amigos, quiero pedirles un favor, ya me quede atorado con este formato..(anexo libro de ejemplo)
en la primera hoja con nombre guayaba, me aparece un reporte extraido de un programa administrativo, del cual quiero sustraer la misma informacion, solo que separada por un espacio como la muestro en la hoja 1, como condicionante que sea diferente numero de tienda, para lo cual utilice la funcion "SI"; y me desplega la informacion con un problema, no me refleja el ultimo renglon.. es decir en la hoja guayaba tengo 7 registros de la tienda 1020, y en la hoja 1, solo e trae 6 y asi con las demas tiendas...
espero haber sido claro y ojala puedan ayudarme, si hay otra metodologia, me gusaria me ayudaran a resolverla, se un minimo de excel, y se que lo bonito de arender es buscar, asiq ue con que me den un empujoncito, lo podre hacer..

saludos
Archivos
VENTA DIA.xlsx No tienes los permisos para descargar los archivos.(143 KB) Descargado 10 veces

benn

Cantidad de envíos : 10
Fecha de inscripción : 15/07/2008

Volver arriba Ir abajo

Re: copiar informacion, dejando un espacio cuando se encuentren datos repetidos

Mensaje por benn el Mar Sep 18, 2012 6:21 pm

AMIGOS, despues de batallar con la cuestion de las funciones y no lograr nada, anduve buscando por el foro, hasta dar con el siguiente

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

donde el maestro Gali, expuso ese codigo..
Código:
Sub InsertarFilas()
Dim rngBase As Long, contador As Long
Dim rngSel As Range
Dim lngRows() As Long
Dim I As Long
Application.ScreenUpdating = False
Ordenar
On Error Resume Next
rngBase = Cells(Rows.Count, "B").End(xlUp).Row
Set rngSel = Range("B1:B" & rngBase)
Do
Err.Clear
rngSel(1, 1).Activate
ReDim Preserve lngRows(contador)
lngRows(contador) = rngSel.ColumnDifferences(ActiveCell).Row
Set rngSel = Nothing

Set rngSel = Range("B" & lngRows(contador) & ":B" & rngBase)
contador = contador + 1

Loop Until Err.Number > 0
Set rngSel = Nothing


For I = UBound(lngRows) - 1 To 0 Step -1
Range("B" & lngRows(I)).EntireRow.Insert
Next I
End Sub
Sub Ordenar()
    With Sheets(2)
    Intersect(.[A:F], .UsedRange).Sort Key1:=Sheets(2).Range("B1"), Order1:=xlAscending, Header:=xlNo
    End With
End Sub.
el cual se adecuo a la perfeccion.

saludos y se los dejo por si a alguien le funciona

benn

Cantidad de envíos : 10
Fecha de inscripción : 15/07/2008

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.