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

Unir dos hojas

Ver el tema anterior Ver el tema siguiente Ir abajo

Unir dos hojas

Mensaje por jononaia el Jue Nov 26, 2009 9:10 am

Hola a todos,

Tengo un fichero con dos pestañas (NPRUEBAS y NINCIDENCIAS), en las que existe una relación, que es el CICLO.
En la pestaña NPRUEBAS aparecen los identificadores en los que se ha trabajado y en la otra aparecen identificadores con incidencias.

Lo que quiero es crear una lista en una tercera hoja, que contenga todos los ciclos de la pestaña NPRUEBAS, pero buscando ese ciclo en la segunda pestaña y si lo encuentra, me tome el ciclo de la segunda hoja como valido tantas veces como aparezca. Esto es, porque en NPRUEBAS están los identificadores en los que se ha trabajado, y en NINCIDENCIAS estan los identificadores en los que ha habido incidencias, pero se repiten, porque están divididos por suministrador, por lo que puede haber dos identificadores iguales pero con diferentes suministrador.

Y lo que quiero es unirlo. Si un id no tiene incidencias, que me lo muestre vacio o con un cero, pero si tiene incidencias que me muestre tantas lineas como veces aparezca en NINCIDENCIAS (con las columnas de esta pestaña para todos)

Muchas gracias por vuestra ayuda,

jononaia

Femenino Cantidad de envíos : 6
Edad : 41
Ciudad - Pais : Madrid-España
Version de Excel : 2003
Fecha de inscripción : 24/11/2009

Volver arriba Ir abajo

Re: Unir dos hojas

Mensaje por GalileoGali el Vie Nov 27, 2009 7:48 am

Prepara un archivo, con un ejemplo sencillo y breve de lo que quieres, subelo a skydrive, cuelga el vinculo en el post y así, tal vez logremos entender tu problema. No omitas,mostrar claramente en tu ejemplo, el resultado esperado

_________________
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

Re: Unir dos hojas

Mensaje por jononaia el Vie Nov 27, 2009 9:01 am

Gracias, no sabía como hacerlo...

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

Espero que lo haya hecho correctamnete.

Un saludo

jononaia

Femenino Cantidad de envíos : 6
Edad : 41
Ciudad - Pais : Madrid-España
Version de Excel : 2003
Fecha de inscripción : 24/11/2009

Volver arriba Ir abajo

Re: Unir dos hojas

Mensaje por GalileoGali el Vie Nov 27, 2009 9:28 pm

Código:
Option Explicit
Sub Listador()
Dim sep As String
Dim ultJ As Range, result As Range, colNPruebas As Range
sep = Application.International(xlListSeparator)

With Sheets("NINCIDENCIAS")
.Range("J:M").Clear
.Range("G2").FormulaLocal = "=CONTAR.SI(NPRUEBAS!$A$2:$A$134" & sep & "NINCIDENCIAS!A2)>0"
.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"G1:G2"), CopyToRange:=.Range("J1"), Unique:=False

.Range("G2").FormulaLocal = "=CONTAR.SI(NINCIDENCIAS!$A$2:$A$72" & sep & "NPRUEBAS!A2)=0"

Set ultJ = .Cells(Rows.Count, "J").End(xlUp).Offset(1, 0)
Set colNPruebas = Sheets("NPRUEBAS").Range("A1").CurrentRegion.Columns(1)
colNPruebas.Resize(colNPruebas.Rows.Count, 2).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=.Range("G1:G2"), CopyToRange:=ultJ, Unique:=False
ultJ.Resize(1, 4).Delete shift:=xlShiftUp
.Range("G1:G2").Clear
Set result = .Range("J1").CurrentRegion
    result.Sort Key1:=.Range("J2"), Order1:=xlAscending, Header:= _
            xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    result.Columns(4).SpecialCells(xlCellTypeBlanks) = 0
End With
End Sub

Aca va el archivo con el codigo


_________________
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

Re: Unir dos hojas

Mensaje por jononaia el Mar Dic 01, 2009 5:20 am

muchisimas gracias, es justo lo que quería y necesitaba.

Un saludo

jononaia

Femenino Cantidad de envíos : 6
Edad : 41
Ciudad - Pais : Madrid-España
Version de Excel : 2003
Fecha de inscripción : 24/11/2009

Volver arriba Ir abajo

Re: Unir dos hojas

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.