UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Buscar y Pegar el 19/05/18, 02:38 pm

edwinjo


Buenos días Estimados,
Trabajando en un archivo, donde busco unos código para ver el comportamiento he estado utilizando el macro buscar fecha el cual igtelo me ha proporcionado y con el que trabajo en otro archivo, el cual trabaja excelente, al quererlo adaptar a este archivo me funciona bien, pero como debo presentar un reporte de todos los datos que contiene este código en la hoja buscar, lo hago manualmente y esta bien, hoy por la mañana un compañero me proporciono un código, pero tiene dos problemas
1. solo busca en una hoja
2. pega el resultado dejando lineas en blanco
Si encuentra un código lo pega en la misma fila de la hoja donde lo encontró, lo cual debe ser continuo.
Por esto solicito de vuestra ayuda, para que busque en todo el libro y pegue sin dejar filas entre medio. anexo el archivo
Sub buscaCodigo()
codi = InputBox("Ingresa código a buscar")
If IsEmpty(codi) Then Exit Sub
Set busco = Sheets("Hoja2").Range("A2:A100").Find(codi, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
primera = busco.Row
    filax = busco.Row
    busco.EntireRow.Copy Destination:=Sheets("BUSCAR").Cells(filax, 1)
    ActiveSheet.Cells(filax, 1).Select
        Do
Set busco = Sheets("Hoja2").Range("A2:A100").FindNext(busco)
        filax = busco.Row
        busco.EntireRow.Copy Destination:=Sheets("BUSCAR").Cells(filax, 1)
        ActiveSheet.Cells(filax, 1).Select
    Loop While busco.Row <> primera And Not busco Is Nothing
Else
    MsgBox ("No se encuentra el código en Hoja2")
End If
Set busco = Nothing
End Sub

Nota: No me acepto subir el archivo me dice espacio libre 0

Edwinjo

2 Espacio el 23/05/18, 02:46 pm

edwinjo


Muy buenos días,
Consultándoles como libero espacio para anexar el archivo

Saludos
edwinjo

3 Re: Buscar y Pegar el 24/05/18, 12:17 am

Igtelo

avatar
Edwin:

No es posible que no pongas atención. 
1.- ¿Qué dice el anuncio que se desplaza?
2.- Sobre tu consulta desde la 1a. vez te expliqué detalladamente tanto en el post como en la macro y te dije también que lo hicieras por pasos para que entendieras lo que hace el código...

Ya adopto esta postura porque es menester que uds. "trabajen y estudien", lo siento pero ya no...

Ignacio Téllez

4 A si lo hare el 24/05/18, 01:13 am

edwinjo


Buenas noches así lo haré, no había visto el anuncio me dormí en eso

Gracias

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.