Elegir ubicación mediante input para referenciar en range
Como podría usar la ubicación obtenida con un inputbox en la siguiente macro:
Sub Macro2()
Dim matriz As String, numerodefila As String, columna As Integer, ubicacion As Range
matriz = Application.InputBox("Selecciona la matriz", Type:=8).address(External:=True)
numerodefila = Sheets("Autoevaluacion").Range("r11").address(0, 0)
columna = Application.InputBox("Selecciona el numero de columna", Type:=1)
With Application
Set ubicacion = Application.InputBox("Selecciona la ubicacion a poner", Type:=8) - opcion anterior
End With - opcion anterior
ubicacion.Select - opcion anterior
'ActiveCell.Formula = "=INDEX(" & matriz & "," & numerodefila & "," & columna & ")" - opcion anterior
Para hacerlo de manera diferente con la siguiente; la cual me permite copiar la fórmula hasta la ultima fila con datos de esa región, funciona bien pero con el rango establecido, quisiera poder hacer que el rango se escoja para poder usarlo o situar la fórmula en cualquier celda que se elija:
With Hoja20.Range("n11").CurrentRegion
UltimaFila = .Rows(.Rows.Count).Row
Hoja20.Range("n11:n" & UltimaFila).Formula = "=INDEX(" & matriz & "," & numerodefila & "," & columna & ")"
End With
End Sub