Buenas tardes, tengo una macro que lo que intenta hacer es poner un buscarv en un lugar cambiante en las distintas hojas, Para ello lo primero que hace es.
1) localizar el lugar donde debo colocarme
2) encontrar el rango de búsqueda y 3)definir un rango
4) poner un buscarv en la posición 1) sobre el rango de búsqueda 3)y hacer una operación
El problema que tengo es que dado que el rango lo llamo de una manera determinada solo lo puedo utilizar un una sola hoja ya que en la siguiente hoja que paso la macro, pierdo los datos de la hoja anterior
HE intentado crear una variable con un inputbox y dándole un nombre pero no he sabido hacerlo...
Sub buscari()
Dim kk As Variant
inicial = 2
actual = inicial
For i = 2 To 200
If Cells(i, 7) = "" And Cells(i - 1, 7) <> "" Then
Cells(i + 3, 14).Select
ActiveCell.FormulaR1C1 = "H"
Set kk = Range(Cells(1, 2), Cells(i, 9))
kk.Select
ActiveWorkbook.Names.Add Name:="mirango2", RefersToR1C1:="=R1C2:R" & CStr(i) & "C9"
Application.Goto Reference:="mirango2"
Cells(i + 4, 14).FormulaR1C1 = "=VLOOKUP(RC[-11],mirango2,7,0)-RC[-8]"
actual = i + 1
Exit For
End If
Next i
