Búsqueda de una cadena

05/04/2005 - 11:19 por oscarpujol | Informe spam
¿Podrías indicarme cómo puedo buscar una cadena de
caracteres del libro A en el libro B y que la fila dónde
me lo encuentre la copie en el libro C?

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
07/04/2005 - 06:56 | Informe spam
hola, Oscar !

... buscar una cadena de caracteres del libro A en el libro B y que la fila donde me lo encuentre la copie en el libro C?



si proporcionas algunos detalles 'faltntes'... como:
-> en donde esta la cadena de caracteres 'a buscar' ? [hoja y rango]
-> en donde se debe buscar en el libro b? [hoja y rango]
-> es posible que dicha cadena exista varias veces?... cual se debiera 'devolver' ?
-> en el libro c... a donde se debe copiar la fila ?
cuantas columnas 'son' la fila ?
-> hay alguna otra cosilla que se hubiera 'quedado en el tintero' ?

saludos,
hector.
Respuesta Responder a este mensaje
#2 Anonimo
08/04/2005 - 09:04 | Informe spam
¡Gracias Hector!
- Mira, la cadena a buscar del libro A estaría en la hoja
A1, y el rango es de la columna D2 a la D100.
- En el libro B, hoja B1 deberiamos buscar del rango D2-
D6000.
- Es posible que dicha cadena exista varias veces, por lo
que a ser posible se deberían copiar todas las entradas.
- El libro C, es un libro virgen sin ninguna entrada por
lo que tan solo sería pegarlas en el libro. Tendrían
tantas columnas como en el fichero original (libro B).En
definitiva, copiar la fila entera del libro B, en la
primera fila libre del libro C.

¡Gracias de nuevo!

hola, Oscar !

... buscar una cadena de caracteres del libro A en el




libro B y que la fila donde me lo encuentre la copie en el
libro C?

si proporcionas algunos detalles 'faltntes'... como:
-> en donde esta la cadena de caracteres 'a buscar' ?


[hoja y rango]
-> en donde se debe buscar en el libro b? [hoja y rango]
-> es posible que dicha cadena exista varias veces?...


cual se debiera 'devolver' ?
-> en el libro c... a donde se debe copiar la fila ?
cuantas columnas 'son' la fila ?
-> hay alguna otra cosilla que se hubiera 'quedado en el


tintero' ?

saludos,
hector.


.

Respuesta Responder a este mensaje
#3 Héctor Miguel
09/04/2005 - 03:30 | Informe spam
hola, Oscar !

... la cadena a buscar del libro A estaria en la hoja A1, y el rango es... D2 a la D100.
... en el libro B, hoja B1 deberiamos buscar del rango D2-D6000.
... es posible que dicha cadena exista varias veces... copiar todas las entradas.
... libro C, es un libro virgen... Tendrian tantas columnas como en el... original (libro B)
... copiar la fila entera del libro B, en la primera fila libre del libro C.



[me quedan algunas 'lagunas'... te comento cuales han sido mis supuestos]...
por la posibilidad de que existan 'varios'... prefiero usar autofiltros que un 'barrido' por el rango en el libro 'B' ;)
-> en el libro 'LibroA' [el 'activo'] hay una hoja 'A1' con los criterios para filtrar en el rango 'D2:Dn'
-> hay un Libro 'LibroB' con una hoja 'B1' donde se 'filtra' [con base en 'D2'] en el rango 'D2:Dn'
[supongo que la fila 1 son titulos/encabezados que estoy 'dejando fuera' del copiado]
-> hay/habra un libro 'LibroC' [el 'virgen'] con una 'Hoja1' a donde se copiaran los datos 'nuevos'
-> 'te toca' modificar los nombres 'reales' de llibros y hojas :))

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
en un modulo de codigo 'normal' EN el libro con el rango de los criterios [Libro 'A'] ==Sub Acumular_Filtrados()
Application.ScreenUpdating = False
Dim Celda As Range, Filtrando As String
With Workbooks("LibroB").Worksheets("B1")
If .[d1].AutoFilter Then .[d1].AutoFilter
Filtrando = .Range(.[d1], .[d65536].End(xlUp)).Address
For Each Celda In Worksheets("A1").Range(.[d1], .[d65536].End(xlUp))
If Application.CountIf(.Range(Filtrando), Celda) > 0 Then
.Range(Filtrando).AutoFilter Field:=1, Criteria1:="=" & Celda
With .[d1].CurrentRegion
.SpecialCells(xlCellTypeVisible).Offset(1).Resize(.Rows.Count - 1).Copy _
Workbooks("LibroC").Worksheets("Hoja1").[a65536].End(xlUp).Offset(1)
End With
End If
Next
.[d1].AutoFilter
End With
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida