Usar variable inputBox dentro de una fórmula R1C1
¿Puedo usar una variable creada por medio de InputBox, dentro de una fórmula, pero de tal forma que en el ImputBox se incluya la dirección de la celda sobre la cual se va a ejecutar la fórmula, y no solo el valor incluido en la celda?. Esto es lo que he intentado (sin que funcione):
Set Rango = Application.InputBox(prompt:="Digite Número de Celda que quiere utilizar", Type:=8)
Range("A2").Activate
ActiveCell.FormulaR1C1 = "=IF(ISTEXT("& Rango,RC[7],R[-1]C)"
Lo que pretendo es ingresar en el inputbox la dirección de la celda como por ejemple "H2", pero para que cuando vuelva a correr la macro pueda escoger otra celda de ser necesario. Adicionalmente debo mantener la fórmula por que después arrastraré la fórmula mediante:
Selection.AutoFill Destination:=Range("A2:A20000")
1 Respuesta
Prueba con lo siguiente,
Sub Macro3() ' On Error Resume Next Set celda = Application.InputBox(prompt:="Digite Número de Celda que quiere utilizar", Type:=8) If celda Is Nothing Then Exit Sub On Error GoTo 0 ActiveCell.FormulaR1C1 = "=IF(ISTEXT(R" & celda.Row & "C[" & celda.Column - 1 & "]),RC[7],R[-1]C)" End Sub
Entiendo la fórmula, pero no entiendo la parte donde quieres rellenar desde a2:A20000
Cuando selecciones el input, deberás seleccionar una celda que esté en la misma fila de la celda activa o la fórmula no será la que pretendes.
Realiza pruebas y me comentas si es lo que necesitas.
Sal u dos
