Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Insertar la fecha como comentario

03/02/2006 - 14:36 por Mayor Rapaz | Informe spam
Ayuda Hacer una pregunta
Necesito una macro que me coloque en la celda activa la fecha de hoy .
He probado con

Sub Macro1()

ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Function = HOY()
Range("A1").Select

End Sub

pero me esta devolviendo un error que no logro solucionar.
Gracias desde ya

pterodactiluss@i.com.uy
email Siga el debateRespuesta 13 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
06/02/2006 - 06:47 | Informe spam
hola, chicos !

Mayor Rapaz escribio en el mensaje ...
Funciono perfecto . Gracias mil.

KL escribio en el mensaje ...
Sub Macro1()
If Not TypeOf Selection Is Range Then Exit Sub
On Error Resume Next
For Each celda In Selection
With celda
.Comment.Delete
.AddComment Format(Date, "dd/mm/yyyy")
End With
Next celda
End Sub





[solo] 1 comentario...

los objetos 'Comment' [como los objetos 'Shape'] son 'colecciones' que se van 'auto-numerando' cuando se insertan...
-> [probablemente] en algun 'futuro', se estara poniendo en riesgo la integridad del archivo...
por andar eliminando y re/poniendo comentarios en celdas donde ya existian -?-

otra alternativa [que no requiere 'manejo de errores'] pudiera ser +/- como la siguiente:
Sub Comentar_Fechas()
If Not TypeOf Selection Is Range Then Exit Sub
Dim Celda As Range
For Each Celda In Selection
If Celda.Comment Is Nothing Then Celda.AddComment ""
Celda.Comment.Text Format(Date, "dd/mm/yyyy")
Next
End Sub

saludos,
hector.
Respuesta Responder a este mensaje
#7 Mayor Rapaz
07/02/2006 - 18:59 | Informe spam
Realmente muchas gracias a todos, pero como se adpataría el introducir
automatcamente el comentario con la fecha dado un valor de celda.
Por ejemplo si en el rango a1 x3000 el valor en la celda es la letra "S" y/o
la letra "L" que se incluya como comentario la fecha.

Gracias por lo que aprendo con sus aportes


"Héctor Miguel" escribió en el mensaje
news:%
hola, chicos !

Mayor Rapaz escribio en el mensaje ...
Funciono perfecto . Gracias mil.



KL escribio en el mensaje ...
Sub Macro1()
If Not TypeOf Selection Is Range Then Exit Sub
On Error Resume Next
For Each celda In Selection
With celda
.Comment.Delete
.AddComment Format(Date, "dd/mm/yyyy")
End With
Next celda
End Sub





[solo] 1 comentario...

los objetos 'Comment' [como los objetos 'Shape'] son 'colecciones' que se
van 'auto-numerando' cuando se insertan...
-> [probablemente] en algun 'futuro', se estara poniendo en riesgo la
integridad del archivo...
por andar eliminando y re/poniendo comentarios en celdas donde ya
existian -?-

otra alternativa [que no requiere 'manejo de errores'] pudiera ser +/-
como la siguiente:
Sub Comentar_Fechas()
If Not TypeOf Selection Is Range Then Exit Sub
Dim Celda As Range
For Each Celda In Selection
If Celda.Comment Is Nothing Then Celda.AddComment ""
Celda.Comment.Text Format(Date, "dd/mm/yyyy")
Next
End Sub

saludos,
hector.

Respuesta Responder a este mensaje
#8 KL
07/02/2006 - 22:58 | Informe spam
tal vez algo asi:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Celda As Range, rng As Range
On Error Resume Next
Set rng = Intersect(Target, Range("A1:X3000"))
On Error GoTo 0
If rng Is Nothing Then Exit Sub
For Each Celda In rng
Select Case UCase(Celda)
Case "S", "L"
If Celda.Comment Is Nothing Then Celda.AddComment ""
Celda.Comment.Text Format(Date, "dd/mm/yyyy")
Case Else
If Not Celda.Comment Is Nothing Then Celda.Comment.Delete
End Select
Next
End Sub

Saludos,
KL


"Mayor Rapaz" wrote in message news:
Realmente muchas gracias a todos, pero como se adpataría el introducir automatcamente el comentario con la fecha dado un valor de
celda.
Por ejemplo si en el rango a1 x3000 el valor en la celda es la letra "S" y/o la letra "L" que se incluya como comentario la fecha.

Gracias por lo que aprendo con sus aportes


"Héctor Miguel" escribió en el mensaje news:%
hola, chicos !

Mayor Rapaz escribio en el mensaje ...
Funciono perfecto . Gracias mil.



KL escribio en el mensaje ...
Sub Macro1()
If Not TypeOf Selection Is Range Then Exit Sub
On Error Resume Next
For Each celda In Selection
With celda
.Comment.Delete
.AddComment Format(Date, "dd/mm/yyyy")
End With
Next celda
End Sub





[solo] 1 comentario...

los objetos 'Comment' [como los objetos 'Shape'] son 'colecciones' que se van 'auto-numerando' cuando se insertan...
-> [probablemente] en algun 'futuro', se estara poniendo en riesgo la integridad del archivo...
por andar eliminando y re/poniendo comentarios en celdas donde ya existian -?-

otra alternativa [que no requiere 'manejo de errores'] pudiera ser +/- como la siguiente:
Sub Comentar_Fechas()
If Not TypeOf Selection Is Range Then Exit Sub
Dim Celda As Range
For Each Celda In Selection
If Celda.Comment Is Nothing Then Celda.AddComment ""
Celda.Comment.Text Format(Date, "dd/mm/yyyy")
Next
End Sub

saludos,
hector.





Respuesta Responder a este mensaje
#9 Mayor Rapaz
08/02/2006 - 19:49 | Informe spam
Pues no funciono y no logro darme cuenta porque.
Deberia intorducir el comentario al ingresar en cualquier celda donde se
ingrese las letras "S o "L"
.
No es asi ??


Gracias nuevamente

"KL" escribio en el mensaje
news:
tal vez algo asi:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Celda As Range, rng As Range
On Error Resume Next
Set rng = Intersect(Target, Range("A1:X3000"))
On Error GoTo 0
If rng Is Nothing Then Exit Sub
For Each Celda In rng
Select Case UCase(Celda)
Case "S", "L"
If Celda.Comment Is Nothing Then Celda.AddComment ""
Celda.Comment.Text Format(Date, "dd/mm/yyyy")
Case Else
If Not Celda.Comment Is Nothing Then Celda.Comment.Delete
End Select
Next
End Sub

Saludos,
KL


"Mayor Rapaz" wrote in message
news:
Realmente muchas gracias a todos, pero como se adpataría el introducir
automatcamente el comentario con la fecha dado un valor de celda.
Por ejemplo si en el rango a1 x3000 el valor en la celda es la letra "S"
y/o la letra "L" que se incluya como comentario la fecha.

Gracias por lo que aprendo con sus aportes


"Héctor Miguel" escribió en el mensaje
news:%
hola, chicos !

Mayor Rapaz escribio en el mensaje ...
Funciono perfecto . Gracias mil.



KL escribio en el mensaje ...
Sub Macro1()
If Not TypeOf Selection Is Range Then Exit Sub
On Error Resume Next
For Each celda In Selection
With celda
.Comment.Delete
.AddComment Format(Date, "dd/mm/yyyy")
End With
Next celda
End Sub





[solo] 1 comentario...

los objetos 'Comment' [como los objetos 'Shape'] son 'colecciones' que
se van 'auto-numerando' cuando se insertan...
-> [probablemente] en algun 'futuro', se estara poniendo en riesgo la
integridad del archivo...
por andar eliminando y re/poniendo comentarios en celdas donde ya
existian -?-

otra alternativa [que no requiere 'manejo de errores'] pudiera ser +/-
como la siguiente:
Sub Comentar_Fechas()
If Not TypeOf Selection Is Range Then Exit Sub
Dim Celda As Range
For Each Celda In Selection
If Celda.Comment Is Nothing Then Celda.AddComment ""
Celda.Comment.Text Format(Date, "dd/mm/yyyy")
Next
End Sub

saludos,
hector.








Respuesta Responder a este mensaje
#10 KL
08/02/2006 - 22:16 | Informe spam
Hola Mayor Rapaz,

Haz lo siguiente:
1) Haz clic-derecho sobre el nombre de la hoja en cuestion (en una de las pestanas de la parte de abajo de la ventana de Excel).
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, en la ventana mas grande a la derecha pega el codigo que te di antes.
4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba introducir S o L en cualquier celda dentro del rango "A1:X3000"

Saludos,
KL


"Mayor Rapaz" wrote in message news:
Pues no funciono y no logro darme cuenta porque.
Deberia intorducir el comentario al ingresar en cualquier celda donde se ingrese las letras "S o "L"
.
No es asi ??


Gracias nuevamente

"KL" escribio en el mensaje news:
tal vez algo asi:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Celda As Range, rng As Range
On Error Resume Next
Set rng = Intersect(Target, Range("A1:X3000"))
On Error GoTo 0
If rng Is Nothing Then Exit Sub
For Each Celda In rng
Select Case UCase(Celda)
Case "S", "L"
If Celda.Comment Is Nothing Then Celda.AddComment ""
Celda.Comment.Text Format(Date, "dd/mm/yyyy")
Case Else
If Not Celda.Comment Is Nothing Then Celda.Comment.Delete
End Select
Next
End Sub

Saludos,
KL


"Mayor Rapaz" wrote in message news:
Realmente muchas gracias a todos, pero como se adpataría el introducir automatcamente el comentario con la fecha dado un valor
de celda.
Por ejemplo si en el rango a1 x3000 el valor en la celda es la letra "S" y/o la letra "L" que se incluya como comentario la
fecha.

Gracias por lo que aprendo con sus aportes


"Héctor Miguel" escribió en el mensaje news:%
hola, chicos !

Mayor Rapaz escribio en el mensaje ...
Funciono perfecto . Gracias mil.



KL escribio en el mensaje ...
Sub Macro1()
If Not TypeOf Selection Is Range Then Exit Sub
On Error Resume Next
For Each celda In Selection
With celda
.Comment.Delete
.AddComment Format(Date, "dd/mm/yyyy")
End With
Next celda
End Sub





[solo] 1 comentario...

los objetos 'Comment' [como los objetos 'Shape'] son 'colecciones' que se van 'auto-numerando' cuando se insertan...
-> [probablemente] en algun 'futuro', se estara poniendo en riesgo la integridad del archivo...
por andar eliminando y re/poniendo comentarios en celdas donde ya existian -?-

otra alternativa [que no requiere 'manejo de errores'] pudiera ser +/- como la siguiente:
Sub Comentar_Fechas()
If Not TypeOf Selection Is Range Then Exit Sub
Dim Celda As Range
For Each Celda In Selection
If Celda.Comment Is Nothing Then Celda.AddComment ""
Celda.Comment.Text Format(Date, "dd/mm/yyyy")
Next
End Sub

saludos,
hector.












Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida