Modificar la ventana de un mensaje de validación

Vale, me queda claro, el caso es que no me he dado cuenta de esa
opción porque no he puesto título al mensaje.
Se me ocurre otra forma de ver el mensaje del tamaño que yo quiera, se
podria hacer que un comentario se mostrara al activarse una celda?
(claro está, dicha celda tiene comentario)

saludos

"~ jose ~" escribió en el mensaje news:

Se me ocurre otra forma de ver el mensaje del tamaño que yo quiera, se
podria hacer que un comentario se mostrara al activarse una celda?
(claro está, dicha celda tiene comentario)

Hola, desconozco otra forma, que la que te comento, suponiendo que validarás para una hoja en concreto, usa su evento
'_SelectionChange':

'*************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objComment As Comment
Static blnVisible As Boolean
'Añade a la constante las direcciones que te interese (nota el espacio al final de línea)
Const strInterestCells As String = "$A$1 $A$3 $B$1 $B$2 $B$3 $C$3 $A$13 "

If blnVisible = True Then 'Si alguno lo hicimos visible
For Each objComment In Me.Comments 'Buscamos el visible
If objComment.Visible Then
objComment.Visible = False 'lo ocultamos
Exit For 'no necesitamos seguir buscando
End If
Next
End If

'Si la celda que se selecciona contiene comentario,
' y su dirección está entre las que nos interesan
If Target.Comment Is Nothing = False _
And InStr(1, strInterestCells, Target.Address & " ") Then
Target.Comment.Visible = True
blnVisible = True 'activamos el flag
Else
blnVisible = False 'no necesitaremos buscar comentario visible _
en la próxima selección.
End If
End Sub
'*************

Si quisieras aplicarlo a todas las hojas del libro, usa el evento '_SheetSelectionChange' del objeto 'ThisWorkbook', y sustituye
"For Each objComment In Me.Comments" por "For Each objComment In Sh.Coments".


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

hola, chicos !

suponiendo que las celdas que tengan comentario son las que se han de 'administrar' [si se muestra al seleccionar]...
== en el modulo de codigo de esa hoja == [o segun la alternativa de Vinchenzo para las hojas del libro]...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Not ActiveCell.Comment Is Nothing Then ActiveCell.Comment.Visible = True
End Sub

saludos,
hector.

__ las consultas anteriores __

jose escribio en el mensaje ...
Se me ocurre otra forma de ver el mensaje del tamaño que yo quiera
se podria hacer que un comentario se mostrara al activarse una celda?
(claro esta, dicha celda tiene comentario)

Vinchenzo vinç escribio en el mensaje ...
... suponiendo que validaras para una hoja en concreto, usa su evento '_SelectionChange':
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objComment As Comment
Static blnVisible As Boolean
'Añade a la constante las direcciones que te interese (nota el espacio al final de línea)
Const strInterestCells As String = "$A$1 $A$3 $B$1 $B$2 $B$3 $C$3 $A$13 "
If blnVisible = True Then 'Si alguno lo hicimos visible
For Each objComment In Me.Comments 'Buscamos el visible
If objComment.Visible Then
objComment.Visible = False 'lo ocultamos
Exit For 'no necesitamos seguir buscando
End If
Next
End If
'Si la celda que se selecciona contiene comentario, y su dirección está entre las que nos interesan
If Target.Comment Is Nothing = False _
And InStr(1, strInterestCells, Target.Address & " ") Then
Target.Comment.Visible = True
blnVisible = True 'activamos el flag
Else
blnVisible = False 'no necesitaremos buscar comentario visible _
en la próxima selección.
End If
End Sub
Si quisieras aplicarlo a todas las hojas del libro, usa el evento '_SheetSelectionChange' del objeto 'ThisWorkbook'
y sustituye "For Each objComment In Me.Comments" por "For Each objComment In Sh.Coments".

"Héctor Miguel" escribió en el mensaje news:%

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Not ActiveCell.Comment Is Nothing Then ActiveCell.Comment.Visible = True
End Sub

Sí señor, esta solución está excelente.

Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn