Macros para buscar cadena de texto

Estoy haciendo una macros para buscar datos de una columna y después pegar toda la fila a otra celda, todo dentro de la misma hoja, quiero modificar el código para que el resultado lo pegue en otra hoja pero no me resulta, por favor si alguien me ayuda, este es el código pero no resulta:

Sub Buscar()
'dimensiones
Dim lngUltimaFila As Long
Dim strObjetoBuscar As String
Dim lngResultado As Long
Dim lngColumna As Long, lngFila As Long
Dim lngPegarColumna As Long, lngPegarFila As Long
Dim x As Integer, n As Integer
Dim cantColum As Long
'columna + fila donde empezar/terminar búsqueda
lngColumna = Sheets(1).Range("E5").Value
lngFila = Sheets(1).Range("E3").Value
lngUltimaFila = Sheets(1).Range("E4").Value
cantColum = Sheets(1).Range("H5").Value
'columna + fila donde empezar a pegar resultados
lngPegarColumna = Sheets(1).Range("H4").Value
lngPegarFila = Sheets(1).Range("H3").Value
'objeto a buscar
strObjetoBuscar = Sheets(1).Range("B3").Text
'minúsculas
strObjetoBuscar = LCase(strObjetoBuscar)
Sheets(1).Select
'bucle: realizar búsqueda
For n = lngFila To lngUltimaFila
'evaluación
lngResultado = InStr(1, Cells(n, lngColumna), strObjetoBuscar, vbTextCompare)
'copiar/pegar
If lngResultado > 0 Then
Range(Cells(n, 1), Cells(n, cantColum)).Copy
Sheets(2).Select
Range(Cells(lngPegarFila, lngPegarColumna), Cells(lngPegarFila, (lngPegarColumna + cantColum))).Select
ActiveSheet.Paste
Sheets(1).Select
lngPegarFila = lngPegarFila + 1
End If
Next n
End Sub

1 Respuesta

Respuesta
1

En primer lugar ya debe estar abierto, y su nombre guardado en una variable:

Workbooks. Open tu_ruta y tu nombre de libro

Como el libro abierto pasa a ser el libro activo, tendrás que guardar su nombre y volver a tu libro original :

libroDestino = activeWorkbook.name

Workbooks(libroOriginal). Activate 'reemplazá 'libroOriginal' x el nombre de tu libro

Luego en tu instrucción de pegado le agregás el libro:

Workbooks(libroDestino). Activate

ActiveWorkbook.Sheets(2).Select

Y todo lo que sigue

No olvides que ahora estás en li bro destino, tenés que volver a tu libro original.

PD) queda solo 1 semana para que termine la promo de los manuales 2010 !

gracias por tu respuesta, pero me gustaría hacerlo en el mismo libro, modifique el código pero me arroja el siguiente error "1004 error definido por la aplicación del objeto", por favor si puedes revisar cual es el problema con mi código:

Sub Buscar()
'dimensiones
Dim lngUltimaFila As Long
Dim strObjetoBuscar As String
Dim lngResultado As Long
Dim lngColumna As Long, lngFila As Long
Dim lngPegarColumna As Long, lngPegarFila As Long
Dim x As Integer, n As Integer
Dim cantColum As Long
'columna + fila donde empezar/terminar búsqueda
lngColumna = Sheets(1).Range("E5").Value
lngFila = Sheets(1).Range("E3").Value
lngUltimaFila = Sheets(1).Range("E4").Value
cantColum = Sheets(1).Range("H5").Value
'columna + fila donde empezar a pegar resultados
lngPegarColumna = Sheets(1).Range("H4").Value
lngPegarFila = Sheets(1).Range("H3").Value
'objeto a buscar
strObjetoBuscar = Sheets(1).Range("B3").Text
'minúsculas
strObjetoBuscar = LCase(strObjetoBuscar)
Sheets(1).Activate
'bucle: realizar búsqueda
For n = lngFila To lngUltimaFila
'evaluación
lngResultado = InStr(1, Cells(n, lngColumna), strObjetoBuscar, vbTextCompare)
'copiar/pegar
If lngResultado > 0 Then
ActiveSheet.Range(Cells(n, 1), Cells(n, cantColum)).Copy
Sheets(2).Activate
ActiveSheet.Range(Cells(lngPegarFila, lngPegarColumna), Cells(lngPegarFila, (lngPegarColumna + cantColum))).Select
ActiveSheet.Paste
Sheets(1).Select
lngPegarFila = lngPegarFila + 1
End If
Next n
End Sub

De antemano muchas gracias

Kano

Si disculpa, mencionaste otra hoja y yo leí otro libro ;(

Bien, tu macro activa la hoja 1, copia, activa la hoja 2, pega y selecciona la hoja 1 nuevamente. Le haría algunos ajustes para asegurarme de estar en la hoja correcta (va en negrita). Si luego te salta el depurador debieras indicarme en qué línea aparece el mensaje de error, para probarla:

Sheets(1).Select
'bucle: realizar búsqueda
For n = lngFila To lngUltimaFila
'evaluación
lngResultado = InStr(1, Cells(n, lngColumna), strObjetoBuscar, vbTextCompare)
'copiar/pegar
If lngResultado > 0 Then
ActiveSheet. Range(Cells(n, 1), Cells(n, cantColum)). Copy 'copia de hoja 1 a hoja 2
Sheets(2). Activate

' * A continuación seleccioná solo la 1er celda destino
ActiveSheet. Range(Cells(lngPegarFila, lngPegarColumna), Cells(lngPegarFila, (lngPegarColumna + cantColum))).Select
ActiveSheet. Paste
Sheets(1).Select 'vuelve a hoja 1

Para asegurarte que la hoja1 y 2 sean las correctas utilizá su nombre en lugar de su nro de índice.

Sdos

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar macro según el valor de la celda

Que tal necesito de su valiosa ayuda tengo que ejecutar una macro en automático esto depende del valor de la celda. Estoy utilizando la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$S$1" And...
1 respuesta

Combinar dos rangos de celdas

Hice algo para combinar dos rangos de celdas, pero hay algo que no funciona. Sub combinarceldas() Range("D20:E35500").Select Selection.Merge End Sub En definitiva lo que necesito en combinar los rangos "D20:D35500 y E20:E35500" y no tener que...
1 respuesta

Crear cronometro excel 2010

He estado intentando crear una macro para cronometrar con excel y no lo consigo, lo que necesitaría sería el cronometro en si, que cuando le de a un botón comience, con otro botón pare y con otro resetee a "0". También estoy intentando poner una...
1 respuesta

Macro que busque los datos en otra hoja(mismo libro) y copie en otra.

Es urgente alguien me puede ayudar estoy elaborando una bse de datos en excel(2007). 1-El libro contiene lo siguiente: 2 hojas (consulta, base de datos). Quisiera insertar un TextBox en el cual ingresar los datos a buscar, 2 combobox (1. La lista de...
1 respuesta

Macro excel, comparación de columnas

Te cuento, tengo 3 columnas en un libro: ----------A------------ B----------- C 1----- Oscar--------- si----------- si 2---- Gabriel--------- si---------- no 3---- Hector ---------no--------- no 4----- Nancy ---------si----------- si 5 -----Yuriko...
2 respuestas

Utilizar Find en macros o procedimiento similar

Necesitaría que me ayudarais a buscar los distintos nombres de una persona, copiar toda la fila donde aparece, pegarla en otra hoja. Esto con cada nombre que se encuentre igual al indicado por nosotros. Yo lo que he intentado son dos formas pero...
1 respuesta

Copiar datos de una hoja a otra con macro

Estoy trabajando en un archivo muy interesante, este archivo tiene un macro que quisiera ajustar a mi necesidad. Los datos se encuentran (por ejemplo) en una hoja 1 en la fila 7, a través del macro se pasan a la hoja 2 a la fila 9, puedo borrar la...
1 respuesta

Como avanzar n filas en Excel para fórmula

O función) de Excel. En una hoja hay cada 23 filas de una misma columna un valor dado (numérico), y es diferente cada 23 filas (las 22 filas de la misma columna entre cada valor están vacías). Lo que requiero es poder colocar en otra hoja del mismo...
1 respuesta