Realizar una macro
Un favor me pueden ayudar con una duda de excel, necesito realizar una búsqueda en una hoja1 (Col A) y si encuentra un numero similar que en la hoja2 (Col A) enviar un dato de la Col B de la Hoja1 a la misma linea donde se encuentra el dato a la Hoja 2 (Col C).
Ej. Datos
Hoja1
OC(Col A) Cantidad (Col B) Proveedor (Col C)
Hoja2
OC(Col A) Producto (Col B) Cantidad (Col C)
Si en la búsqueda de OC(Hoja1) encuentra un mismo numero de OC(Hoja2) entonces mandar el dato de la linea correspondiente de la Col B de la Hoja1 a Col C de la hoja 2
Agradezco su apoyo
Saludos
Ej. Datos
Hoja1
OC(Col A) Cantidad (Col B) Proveedor (Col C)
Hoja2
OC(Col A) Producto (Col B) Cantidad (Col C)
Si en la búsqueda de OC(Hoja1) encuentra un mismo numero de OC(Hoja2) entonces mandar el dato de la linea correspondiente de la Col B de la Hoja1 a Col C de la hoja 2
Agradezco su apoyo
Saludos
1 Respuesta
Respuesta de dayvitt
1
Cremos una macro en código VB. Herramientas->Macro->Editor VB
Ahí le decimos insertar ->Modulo
Le pegas el código siguiente:
Sub busqueda()
Dim x,y as Integer
x=1
do until hoja1.cells(x,"A")=""
y=1
do until hoja2.Cells(y,"A")=""
if hoja1.cells(x,"A")=hoja2.cells(y,"A") then
hoja2.cells(y,"C") = hoja1.cells(x,"B")
end if
y=y+1
loop
x=x+1
loop
end Sub
Cierras el editor y vas a Herramientas->Macro->Macro, seleccionas búsqueda y le das a ejecutar
Ahí le decimos insertar ->Modulo
Le pegas el código siguiente:
Sub busqueda()
Dim x,y as Integer
x=1
do until hoja1.cells(x,"A")=""
y=1
do until hoja2.Cells(y,"A")=""
if hoja1.cells(x,"A")=hoja2.cells(y,"A") then
hoja2.cells(y,"C") = hoja1.cells(x,"B")
end if
y=y+1
loop
x=x+1
loop
end Sub
Cierras el editor y vas a Herramientas->Macro->Macro, seleccionas búsqueda y le das a ejecutar
