Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Consulta en tabla

12/07/2004 - 23:28 por manuel | Informe spam
Ayuda Hacer una pregunta
Saludos al grupo.
Tengo en la hoja HOJATCONCEPTOS varias columnas:
NROFACTURA, EXPEDIENTE, IMPORTENETO
0001 Expte.2004/023 34,55
0001 Expte.2004/035 45,90
0001 Expte.2004/044 67,93
0002 Informe_980 99,99
0002 Expte.2004/008 30,50
0003 Expte.2004/010 45,00

Quiero hacer una consulta sobre HOJATCONCEPTOS por el campo NROFACTURA,
de manera que me copie en otra hoja, la hoja HOJATFACTURA, todas las líneas
de HOJATCONCEPTOS
que tengan 0001 como valor de NROFACTURA.
El resultado deberá ser:
0001 Expte.2004/023 34,55
0001 Expte.2004/035 45,90
0001 Expte.2004/044 67,93

He conseguido algo con la instrucción:
Set RNGOCONCEPTOS = HOJATCONCEPTOS.Range("$A$1").CurrentRegion
Set RNGOCRITERIOS = 'Rango donde se especifica el criterio NROFACTURA 0001'
Set RNGOSALIDA = 'Rango dirección donde se ubicará el rango
resultado del filtrado'

RNGOTASUNTOS.AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=RNGOCRITERIOS, _
CopyToRange:=RNGOSALIDA, Unique:=False

El problema viene cuando el Rango de salida RNGOSALIDA está en otra hoja,
como
la pretendida HOJATFACTURA.

¿Se os ocurre algo?

Saludos y gracias,
Manuel.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Adobes
13/07/2004 - 00:39 | Informe spam
Yo trataría de hacer algo así:

Dim m As Integer, n As Integer
n = 1 ' n = fila en la que comenzará a copiar
For m = 1 To 10
If Cells(m, 1).Value = 1 Then
Worksheets("hoja2").Rows(n).Value = Worksheets
("hoja1").Rows(m).Value
n = n + 1
End If
Next m

Las filas a evaluar (10 en el ejemplo) se podrían procesar
también con un 'do while' mientras valor <>"" o como mejor
creas.

Saludos desde Zaragoza-España.

Saludos al grupo.
Tengo en la hoja HOJATCONCEPTOS varias columnas:
NROFACTURA, EXPEDIENTE, IMPORTENETO
0001 Expte.2004/023 34,55
0001 Expte.2004/035 45,90
0001 Expte.2004/044 67,93
0002 Informe_980 99,99
0002 Expte.2004/008 30,50
0003 Expte.2004/010 45,00

Quiero hacer una consulta sobre HOJATCONCEPTOS por el


campo NROFACTURA,
de manera que me copie en otra hoja, la hoja


HOJATFACTURA, todas las líneas
de HOJATCONCEPTOS
que tengan 0001 como valor de NROFACTURA.
El resultado deberá ser:
0001 Expte.2004/023 34,55
0001 Expte.2004/035 45,90
0001 Expte.2004/044 67,93

He conseguido algo con la instrucción:
Set RNGOCONCEPTOS = HOJATCONCEPTOS.Range


("$A$1").CurrentRegion
Set RNGOCRITERIOS = 'Rango donde se especifica el


criterio NROFACTURA >0001'
Set RNGOSALIDA = 'Rango dirección donde se


ubicará el rango
resultado del filtrado'

RNGOTASUNTOS.AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=RNGOCRITERIOS, _
CopyToRange:=RNGOSALIDA, Unique:=False

El problema viene cuando el Rango de salida RNGOSALIDA


está en otra hoja,
como
la pretendida HOJATFACTURA.

¿Se os ocurre algo?

Saludos y gracias,
Manuel.


.

Preguntas similares

 

Busqueda sugerida :