Skip to main content
Commonmark migration
Origen Enlace

Estaba haciendo una macro en Excel en la cual tengo una columna llamada "programas" y en sus celdas cada valor termina con un "*", por lo que necesito hacer una macro para automatizar ese proceso, hacer click en el botón y se borren automáticamente los asteriscos del final de todas las celdas de mi columna (entiendo que se puede hacer sin macro pero necesito el proceso en un boton)

Tengo este código que me aplica solo para la celda activa pero no supe replicarlo para una columna entera.

    Dim xlString As String
    Dim ultimo As String
    
    ultimo = Right$(xlString, 1)
    MsgBox ultimo
        
    ActiveCell = Replace(ActiveCell, "*", "") 

Link Foto: [1]: https://i.sstatic.net/vqCKR.png

Estaba haciendo una macro en Excel en la cual tengo una columna llamada "programas" y en sus celdas cada valor termina con un "*", por lo que necesito hacer una macro para automatizar ese proceso, hacer click en el botón y se borren automáticamente los asteriscos del final de todas las celdas de mi columna (entiendo que se puede hacer sin macro pero necesito el proceso en un boton)

Tengo este código que me aplica solo para la celda activa pero no supe replicarlo para una columna entera.

    Dim xlString As String
    Dim ultimo As String
    
    ultimo = Right$(xlString, 1)
    MsgBox ultimo
        
    ActiveCell = Replace(ActiveCell, "*", "") 

Link Foto: [1]: https://i.sstatic.net/vqCKR.png

Estaba haciendo una macro en Excel en la cual tengo una columna llamada "programas" y en sus celdas cada valor termina con un "*", por lo que necesito hacer una macro para automatizar ese proceso, hacer click en el botón y se borren automáticamente los asteriscos del final de todas las celdas de mi columna (entiendo que se puede hacer sin macro pero necesito el proceso en un boton)

Tengo este código que me aplica solo para la celda activa pero no supe replicarlo para una columna entera.

    Dim xlString As String
    Dim ultimo As String
    
    ultimo = Right$(xlString, 1)
    MsgBox ultimo
        
    ActiveCell = Replace(ActiveCell, "*", "") 

Link Foto:

Origen Enlace

Eliminar el último carácter especial de las celdas en una columna (VBA)

Estaba haciendo una macro en Excel en la cual tengo una columna llamada "programas" y en sus celdas cada valor termina con un "*", por lo que necesito hacer una macro para automatizar ese proceso, hacer click en el botón y se borren automáticamente los asteriscos del final de todas las celdas de mi columna (entiendo que se puede hacer sin macro pero necesito el proceso en un boton)

Tengo este código que me aplica solo para la celda activa pero no supe replicarlo para una columna entera.

    Dim xlString As String
    Dim ultimo As String
    
    ultimo = Right$(xlString, 1)
    MsgBox ultimo
        
    ActiveCell = Replace(ActiveCell, "*", "") 

Link Foto: [1]: https://i.sstatic.net/vqCKR.png