Últimos mensajes - Powered by IBM

Palabras claves

Consulta en tabla

12/07/2004 - 23:28 por manuel | Informe spam

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.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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.

.

Responder a este mensaje

#2 David Canales

15/07/2004 - 09:45 | Informe spam

Unos pequeños ajustes a tu codigo y me funciona bien:

Sub CopiarRngo()
Dim RNGOCONCEPTOS As Range, RNGOCRITERIOS As Range, _
RNGOSALIDA As Range

Set RNGOCONCEPTOS = Worksheets("HOJATCONCEPTOS"). _
Range("$A$1").CurrentRegion
Set RNGOCRITERIOS = Worksheets("HOJATCONCEPTOS"). _
Range("F1:F2")
Set RNGOSALIDA = Worksheets("HOJATFACTURA"). _
Range("a1")
RNGOSALIDA.CurrentRegion.Clear

RNGOCONCEPTOS.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=RNGOCRITERIOS, _
CopyToRange:=RNGOSALIDA, Unique:=False
End Sub

F1 = NROFACTURA
F2 = 0001
Saludos,

David Canales

"Adobes" wrote in message
news:2b8d501c46861$21c9db90$
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.