Insertar la fecha como comentario

Ok, funciono perfecto.
Mi error es que lo colocaba para todo el libro y claro, no funcionaba.
A porposito; debo hacerlo asi por cada hoja o se puede establecer para todo
el libro ??
Gracias mil


"KL" escribio en el mensaje
news:

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.

Hola Mayor Rapaz,

Prueba esto:

1) Haz clic-derecho sobre el pequeno loge de Excel a la izquierda del menu Archivo
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 siguiente codigo:

'Inicio Codigo--
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Celda As Range, rng As Range
On Error Resume Next
Set rng = Intersect(Target, Sh.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
'Final Codigo--

4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba introducir S o L en cualquier celda dentro del rango "A1:X3000" de cualquier hoja del libro.


Saludos,
KL


"Mayor Rapaz" wrote in message news:

Ok, funciono perfecto.
Mi error es que lo colocaba para todo el libro y claro, no funcionaba.
A porposito; debo hacerlo asi por cada hoja o se puede establecer para todo el libro ??
Gracias mil


"KL" escribio en el mensaje news:

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.

Nuevamente, gracias.
Funciona perfecto



"KL" escribio en el mensaje
news:

Hola Mayor Rapaz,

Prueba esto:

1) Haz clic-derecho sobre el pequeno loge de Excel a la izquierda del menu
Archivo
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
siguiente codigo:

'Inicio Codigo--
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim Celda As Range, rng As Range
On Error Resume Next
Set rng = Intersect(Target, Sh.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
'Final Codigo--

4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba introducir S o L en cualquier celda dentro del rango "A1:X3000"
de cualquier hoja del libro.


Saludos,
KL


"Mayor Rapaz" wrote in message
news:

Ok, funciono perfecto.
Mi error es que lo colocaba para todo el libro y claro, no funcionaba.
A porposito; debo hacerlo asi por cada hoja o se puede establecer para
todo el libro ??
Gracias mil


"KL" escribio en el mensaje
news:

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.