MACRO para buscar precio según intersección

Pido tu ayuda para realizar una MACRO que conforme vaya recorriendo con el cursor los códigos (columna B) se busque el precio que se encuentra en la intersección de la columna E y la fila 1. De la siguiente forma:

1) Coloco el cursor en el 1er código (celda B4)

2) Busca el dato que contiene la columna E (celda E4) osea la palabra "ENE"

3) Busca esa palabra en la fila 1 que esta en la celda E1

4) Busca la intersección osea celda K5 cuyo valor es de 4.6

5) Pone precios (columma G) osea la celda G4 el valor de K5

6) Repite la secuencia en el siguiente código, 2do código (celda B5) y así sucesivamente

A continuación esta la imagen del archivo de trabajo

Además he enviado el archivo a tu correo.

Respuesta
1

H o l a:

Puedes aclarar los siguientes puntos:

3) Busca esa palabra en la fila 1 que esta en la celda E1

Según tu imagen la palabra "ENE" está en la celda K1, ¿es correcto?

4) Busca la intersección osea celda K5 cuyo valor es de 4.6

La intersección según tu ejemplo es K4, ¿es correcto?

5) Pone precios (columma G) osea la celda G4 el valor de K5

Lo mismo, según tu ejemplo el valor 4.6 está en la K4, ¿es correcto?


Tienes razón en tus observaciones ya que toda la información es referente a la fila donde esta el código es decir en la fila 4

Te anexo la macro

Sub PonerPrecio()
'Por.Dante Amor
    For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
        Set b = Rows(1).Find(Cells(i, "E"), lookat:=xlWhole)
        If Not b Is Nothing Then
            Cells(i, "G") = Cells(i, b.Column)
        End If
    Next
    MsgBox "Fin"
End Sub

‘
Feliz año te desea D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s
:) 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas