¿Como puedo hacer una referencia absoluta en excel 365 con una macro y utilizando variables?
Quiero que en las celdas de una columna de una hoja de excel me escriba una fórmula del tipo =AU4/$BR$33 con una macro que estoy realizando.
Con la grabadora de macros obtuve lo siguiente:
Range("BS4").Select -Esta es la columna donde quiero poner la fórmula
ActiveCell.FormulaR1C1 = "=RC[-24]/R33C70"
Y de esta manera si obtengo la fórmula pero así no me sirve
Yo lo que requiero es lo siguiente:
Range("BS4").Select
Fila= 33
Col=70
ActiveCell.FormulaR1C1 = "=RC[-24] /R[" & Fila & "]C ["& Col & "]"
Y esto después copiarlo hacia abajo o meterlo en un ciclo para que vaya celda por celda ya que no será el único rango de celda donde meteré la fórmula.
1 respuesta
H o l a:
Si por ejemplo, quieres la fórmula desde la BS4 hasta la BS10, puedes ponerlo así:
Sub PonerFormula1()
'Por.Dante Amor
With Range("BS4:BS10")
.Formula = "=RC[-24]/R33C70"
End With
End SubSi quieres la fórmula hasta la BS32:
Sub PonerFormula1()
'Por.Dante Amor
With Range("BS4:BS32")
.Formula = "=RC[-24]/R33C70"
End With
End SubSi quieres la fórmula hasta la última celda con datos de la columna AU:
Sub PonerFormula1()
'Por.Dante Amor
With Range("BS4:BS" & Range("AU" & Rows.Count).End(xlUp).Row)
.Formula = "=RC[-24]/R33C70"
End With
End SubEn cualquier caso la celda $BR$33 se mantiene fija, la celda que va cambiando es la celda AU desde AU4 y hasta la última fila que le definas.
Si no es lo que necesitas entonces explícame qué fórmula quedaría en la celda BS5, qué fórmula quedaría en la BS6 y con eso me das más idea de lo que necesitas.
':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
