Añadir un * al principio y al final de un texto

[opadrino]

Sub AgregarAsteriscos()
Dim ws As Worksheet
Dim ultimafila As Long
Dim i As Long

Set ws = ThisWorkbook.Sheets("Hoja3")
ultimafila = ws.Cells(ws.Rows.Count...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[silver_axe007]

Hola podrias intentar con esto

Sub AgregarAsteriscos()
Dim ws As Worksheet
Dim ultimafila As Long
Dim i As Long

Set ws = ThisWorkbook.Sheets("Hoja3")
ultimafila =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[opadrino]

Muchas gracias. Funciona estupendamente.

 

[silver_axe007]

Me alegro qeu te haya servido

Saludos

 

[opadrino]

¿Se podría añadir una línea para que no añada * cuando no hay un dato en la columna, pero si en otra columna?

Sin permisos de acceso

 

[silver_axe007]

Pues reemplazo si el resultado de mi formula es ** le digo que no ponga nada

Me avisas

 ws.Cells(i, "AK").Value = replace(Replace("*" & ws.Cells(i, "AK").Value & "*", " ", ""),"**","")...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[opadrino]

Pues reemplazo si el resultado de mi formula es ** le digo que no ponga nada

Me avisas

 ws.Cells(i, "AK").Value =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[silver_axe007]

Me alegro qeu te funcione! SAludos desde Ec.