Referencias relativas VBA

[VanessaRodriguez]

Hola a todos!

Espero alguien me pueda ayudar. Tengo el siguiente código pero al ejecutarlo coloca la formula con referencias fijas (con signo $) si quisiera que fuera relativa para poder copiar y pegar ¿cómo puedo cambiar el código para que la celda sea relativa o fija? ¿Alguna idea?

 

  fil = ActiveCell.Rows.Row
    Selection.FormulaR1C1 = "=(R" + Trim(Str(fil)) + "C4*8)"

 

 

Muchas gracias.

[Mauricio_ODN]

Puede ser así:

Dim valor as Integer

Valor = Activecell.value

o bien

Dim Valor as String

Valor = Activecell.adress(0,0)

y sustituyes

fil = ActiveCell.Rows.Row
    Selection.FormulaR1C1 = "=(R" + Trim(Str(fil)) + Valor*8)"

Aunque nos gustaría ver tu archivo para poder ayudarte mejor!!

Saludos!!!

 

[Dr Hyde]

si quieres que la formula te aparezca sin el signo $ usa el siguiente codigo

Sub MULTIPLICA()
FILA = ActiveCell.Offset(0, 1).Address(False, False)
ActiveCell.Value = "=" & FILA & "* 8"
End Sub

[VanessaRodriguez]

Hola @Mauricio_ODN

 

Sí, te adjunto un ejemplo, quise copiar el codigo que comentas, pero no lo supe poner correctamente.

@Dr Hyde

¿Se puede aplicar a mi ejemplo?

Ejemplo - copia.xlsm

[Dr Hyde]

checa el archivo con la modificacion, solo agregas dos lineas al inicio de lamacro y listo, te coloca la formula sin el signo de pesos, en el archivo solo da click en el boton que pusiste y listo.

Sub Primero()
'
' Primero Macro
'

fila = Cells(ActiveCell.Rows.Row, 4).Address(False, False)
ActiveCell.Value = "=" & fila & "*8"

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

Ejemplo - copia.xlsm

[VanessaRodriguez]

Muchas gracias, quedo solucionado a la perfección. De verdad gracias.

 

Tema cerrado.