none
MAcro RRS feed

  • Pregunta

  • 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

    'Cells(1, 3) = i

    End Sub

    jueves, 24 de noviembre de 2016 18:21