Recorre fila, busca un dato y lo pega en otra hoja


Este es otro ejemplo más sobre una macro que buscar un dato y lo pega en otra hoja, previo cumplir con ciertos criterios, en el post busca y compara datos de dos columnas distintas en hojas distintas, se hace algo parecido, pero es un poco más complejo ya que son dos columnas las que se tienen en cuenta que coincidan con el criterio definido, a lo que se suma que se encuentran en hojas distintas; también guarda relación con esta la macro que extrae datos en base a criterio y los concatena.

El tema de recorre filas y buscar datos es algo muy solicitado en los foros es por ello que te paso otros links relacionados como: recorre las filas busca el dato y lo resalta; también puedes consultar como eliminar una fila en recorre filas busca dato y elimina fila cuando encuentra el dato, tal vez te interese una macro que recorre las filas busca y dato y lo pega en otra hoja o recorrer la columna A y pegar los datos en la columna Bmacro que recorre compara celdas y las colorea, también pueda que te interese recorrer filas buscar datos y pegarlo en otra hoja; si estás buscando ejemplos como recorrer filas los mencionados te pueden ayudar a realizar tu macro, si necesitas más ejemplos acá tienes cientos de ejemplos de macros con su archivo de ejemplo el cual puedes descargar, también encontrarás ejemplos con uso de formularios,combobox y textbox.

MASTERCARD PAYONEER

Antes de seguir con el desarrollo y en el caso que no tengas conocimiento suficiente sobre el manejo de hojas de Excel, te recomiendo antes de introducirte en el mundo de las macros, que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá.

La macro funciona con el código que se encuentra más abajo, básicamente lo que hace es buscar en la hoja denominada code un dato, mediante un bucle que recorre hasta la última celda con datos; este dato lo busca en la hoja branch, en caso de encontrarlo, copia ciertos datos y los pega en la hoja main.

Desde el link del final se puede descargar el archivo con la macro de Excel y de esta manera podrás ver su funcionamiento en forma más detallada. El código de VBA o Macro de Excel aquí presentado, busca fila por fila el dato requerido hasta la última fila con datos, el código que se agrega a continuación se debe colocar en un módulo, se debe ejecutar la macro desde Excel o colocar un botón y asignarle la macro, ya sea de cualquier forma, al ejecutar la macro procede a buscar un dato en otra hoja, si lo encuentra copiar los registros a otra hoja distinta.


Código que se debe insertar en un módulo


Sub Search()
Application.ScreenUpdating = False

Dim filac, filabr, filam As Integer

filac = 2
filabr = 2
filam = 2



 

    While Sheets("code").Cells(filac, 1) <> Empty

    While Sheets("branch").Cells(filabr, 1) <> Empty
    dato1 = Sheets("code").Cells(filac, 1)
    dato2 = Sheets("branch").Cells(filabr, 1)
   
       If Sheets("code").Cells(filac, 1) = Sheets("branch").Cells(filabr, 1) Then

      Sheets("main").Cells(filam, 1) = Sheets("branch").Cells(filabr, 1)
      Sheets("main").Cells(filam, 2) = Sheets("branch").Cells(filabr, 2)
      Sheets("main").Cells(filam, 3) = Sheets("branch").Cells(filabr, 3)
      Sheets("main").Cells(filam, 4) = Sheets("branch").Cells(filabr, 4)
      Sheets("main").Cells(filam, 5) = Sheets("branch").Cells(filabr, 5)
      Sheets("main").Cells(filam, 6) = Sheets("branch").Cells(filabr, 6)
      filam = filam + 1
      End If
 
    filabr = filabr + 1
    Wend
 

filac = filac + 1
filabr = 2

Wend

Application.ScreenUpdating = True
End Sub




Otros post de utilidad:
Insertar columnas
Busca un dato en todas las hojas de excel
Combobox incrustado en Excel
Formulario para insertar datos en hoja de excel
Hacer un zoom en la celda
Llenar combobox y buscar datos
Mensaje de Alerta y envío de mail con Excel
Combobox que lista hojas de excel y las selecciona




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends