Como inserto un comentario desde l ultima celda act

Hola espero que me puedan ayudar con mi problema tengo unformato conde necesito una macro que inserte un comentarios a la celda activa desde otra delda.
Digamos el texto que tiene la celda A1 se inserte como comentario en la celda activa o seleccionada en ese momento
Range("E2").Select   
Selection.ClearComments   
Range("B2").Select
Cells(2, 5).Select ActiveCell.AddComment.Text Text:=Cells(2, 2).Value ActiveCell.Comment.Visible = False
End Sub
Tengo este código que encontré en esta página pero me inserta en comentarios en la line2 columna 2 y necesito que sea en la celta que este celeccionada en ese momento.
Si me pueden ayudar se los agracedería mucho un principiante con ganas de aprender, YO

1 respuesta

Respuesta
1
Con que hagas esto ya vale
Sub comentario()
    Range("E2").Select
    Selection. ClearComments
    ActiveCell. AddComment.Text (Range("A1"). Value)
    ActiveCell.Comment.Visible = False
End Sub
Funciona excelente muchas gracias.
Y espero contar con su ayuda más adelante la verdad si tengo muchas ganas de aprender de expertos como ustedes GRACIAS

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas