MACROS EXCEL

Fernando, este código te sirve:

Sub BuscarValor()
'Se requieren libres las celdas G1:G3 en la Hoja1 para fórmulas
Dim Fila As Long
Hoja1.Range("g1") = "=+COUNTA(Hoja2!E:E)"
Hoja1.Range("G3") = "=IF(ISERROR(+MATCH(g2,Hoja2!E1:E" &
Hoja1.Range("g1") & ",0)),0,+MATCH(g2,Hoja2!E1:E" & Hoja1.Range("g1") &
",0))"
Fila = 1
Do While Hoja1.Range("D" & Fila) <> ""
Hoja1.Range("g2") = Hoja1.Range("D" & Fila)
If Hoja1.Range("G3") > 0 Then
Hoja1.Range("E" & Fila) = Hoja2.Range("B" & Hoja1.Range("G3"))
End If
Fila = Fila + 1
Loop
MsgBox "Listo"
End Sub


Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/


"Fernando Kohan" escribió en el mensaje
news:

Hola necesito una macro que haga lo siguiente, busque el valor de D1 de la
HOJA 1 en E# de la HOJA 2, cuando coincida copi los valores del la fila

qiue

coincida B de la HOJA 2 en E de la HOJA 1 y despues continue buscando el
valor siguiente en este caso D2.

GRA CIAS FENARRO



HOJA1

A B C D E F
1 1 38 48 33933
2 3 30 20 30522
3 4 25 26 34725
4 5 26 25 35033
5 6 21 22 30519


HOJA 2
A B C D E F
1 123 234 555 666 33933 dddd
2 234 365 369 654 34725 dddd
3 235 365 368 333 333933 xxxx

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.769 / Virus Database: 516 - Release Date: 24/09/2004