¿Cómo hacer para que un comentario en una hoja de excel se cargue en otra hoja del mismo libro?
Buenas noches, necesito saber cómo puedo agregar un comentario en una fila de una hoja de excel y que este se cargue automáticamente en otra hoja del mismo libro.
Muchas gracias por su colaboración.
2 respuestas
Te mando un ejemplo para que lo desarrolles
En esta macro ponemos el comentario "hola" en la celda A1 de la hoja1 y hoja2
Sub ejemplo()
Sheets("hoja1"). Range("a1"). AddComment "hola"
Sheets("hoja2"). Range("a1"). AddComment "hola"
End Subrecuerda finalizar la consulta
Muchas gracias experto, pero necesito hacer una aclaración en cuanto a mi solicitud. Los comentarios que se van a añadir no son palabras predeterminadas, sino observaciones que los usuarios van a agregar cuando un equipo falle. Por ejemplo, si una bomba falló, ellos deben decir por que o como fallo. El prograMa debe detectar que el equipo falló, para esto se marca en la columna del lado con la letra "F" y la observación de por que falló se debe agregar en tranquila celda, este comentario se debe cargar automáticamente en otra hoja.
Agradezco mucho tu ayuda, requiero de esta información y no se como proceder para realizar lo que te comento.
En lo que me puedas ayudar, muchas gracias.
Te paso un ejemplo:
En la celda A1 escribe el mensaje que quieras...
Ahora ejecuta esta macro:
Sub ejemplo()
'por luismondelo
texto = Range("a1").Value
Range("b2").AddComment texto
End Subcon esta macro atribuyes el contenido de la celda A1 como un comentario en la celda B2
Te preparé una macro.
Sigue las Instrucciones para worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'copia un comentario al seleccionar la celda
'por.dam
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Not (Target.Comment Is Nothing) Then
Target.Copy
Sheets("hoja2").Range(Target.Address).PasteSpecial _
Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
End SubDespués de escribir un comentario en "tu hoja", selecciona la celda que tiene ese comentario y en automático se copiará ese comentario a la "hoja 2", si la hoja destino tiene otro nombre entre a la macro, presionando ALT+F11, dale doble click a worksheet(tu hoja) y te va a a parecer la macro, cambia en esta línea el nombre de tu hoja destino.
Sheets("hoja2"). Range(Target. Address).PasteSpecial _
Saludos. Dam
Si es lo que necesitas.