☰

Establezca la Fórmula para que sea la celda del Rango (por ejemplo, A1) frente al contenido de A1

tag-icon • tag-icon microsoft-excel vba
Establezca la Fórmula para que sea la celda del Rango (por ejemplo, A1) frente al contenido de A1

Estoy intentando configurar una macro que inserta texto delante de la celda junto a su contenido. El problema es que el código está copiando el contenido de la celda al lado, pero luego no puedo arrastrar la fórmula hacia abajo para continuar. Quiero que la fórmula termine en A1, no el contenido de A1 que es 1111. Por ejemplo, la fórmula es normalmente ="ADDTOFRONT"&A1pero ahora="ADDTOFRONT"&1111

P.ej: ingrese la descripción de la imagen aquí

'''''PUBLICVARS'''''
Public cll As Variant
Public clloffset As Variant

'''''ENDPUBVARS'''''
'''''MAINSUB'''''
Public Sub Add_BINWH()

cll = Application.InputBox(Prompt:="Which Cell To Add Formula? Eg: B1", Default:="B1")
Set clloffset = Range(cll).Offset(0, -1)
ActiveWorkbook.ActiveSheet.Range(cll).Formula = "=" & Chr(34) & "ADDTOFRONT" & Chr(34) & "&" & clloffset.Value

End Sub
'''''ENDMAINSUB'''''

Respuesta1

Quiere que la dirección se coloque en la cadena, no el valor.

clloffset.Value

Debiera ser

clloffset.Address(0,0)

información relacionada