A ver si es posible esto

Hola Engel,

1 - Como que actualemtne el libro tiene unas 40 hojas (cada hoja
corresponde a un proveedor distinto) cuando apunto a la celda donde
esta el comentario y donde me enseña a que proveedores corresponde la
suma de las cantidades que contien la celda, resulta que la ventana de
comentario solo me muestra 5 proveedores debido a que es demasiado
pequeña ¿se podria hacer de alguna manera que esta ventanita del
comentario se adaptase al numero de lineas que tiene que mostrar?

Como habia pensado que tan solo tenias 5 hojas te ofreci esta solucion. Si
tienes 40 hojas la cosa es aun mas complicada.
Podriamas andir el siguiente codigo al modulo de ThisWorkbook pero comera
mas recursos todavia:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
For Each comm In Sh.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

2 - ¿Porque el en la venita del comentario me salen todos los
proveedores y no solo los que en ese dia le hemos comprado?, no se
podrias hacer que solo salieran en la venita del comentario aquellos
proveedores a los que corresponde las cantidades de de la suma de la
celda del comentario?

Prueba reemplazar la version anterior de la funcion con esto:

Function actualiza_comentario(Valor As Variant)
Dim rng As String, f As Long, txt As String
On Error Resume Next
rng = Application.Caller.Address
For Each hoja In ThisWorkbook.Worksheets
Select Case LCase(hoja.Name)
Case "resumen", "otras hojas que tu quieras omitir"
Case Else
If hoja.Range(rng) Then _
txt = txt & "+" & hoja.Range(rng) & _
"(" & hoja.Name & ")" & Chr(10)
End Select
Next hoja
With Application.Caller
.ClearComments
.AddComment txt
End With
actualiza_comentario = Valor
End Function

Saludos,
KL

Hola de nuevo,

"KL" wrote in message

Podriamas andir el siguiente codigo al modulo de ThisWorkbook ... Private
Sub Workbook_SheetCalculate(ByVal Sh As Object)
For Each comm In Sh.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

es mejor andir este codigo al evento Calcualte de la hoja "resumen":

Private Sub Worksheet_Calculate()
For Each comm In Me.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

Saludos,
KL

On Sun, 26 Jun 2005 18:28:36 +0200, "KL"
wrote:

Hola de nuevo,

"KL" wrote in message

Podriamas andir el siguiente codigo al modulo de ThisWorkbook ... Private
Sub Workbook_SheetCalculate(ByVal Sh As Object)
For Each comm In Sh.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

es mejor andir este codigo al evento Calcualte de la hoja "resumen":

Private Sub Worksheet_Calculate()
For Each comm In Me.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

Saludos,
KL

Hola,

Bien, tal como lo tengo montado ahora y siguiendo todos los pasos
indicados, funciona correctamente, pero:

He querido hacer unos cambios en las hojas, y ha petado todo, a ver,
lo que he cambiado es que he tenido que añadir una columna mas en
todas las hojas de cada uno de los proveedores, entonces ahora no
coincide la columna donde esta el comentario de la hoja resumen C, con
la misma columna de cada una de las horas de proveedores, entonces la
formula =actualiza_comentario(SUMA(A:H!D1)) me da un error circular y
no funciona.

Como se puede ver lo unico que he hecho es cambiar en la formula,
donde habia C1 ahora tengo D1.

¿Porque me da este error?, ¿Como lo puedo solucionar?

Seria mucho pedir, si me pudiras enviar una muestra a mi correo
privado, como el que tengo aqui no funciona, utiliza ,
muchas gracias.

Saludos,
Engel

On Sun, 26 Jun 2005 18:28:36 +0200, "KL"
wrote:

Hola de nuevo,

"KL" wrote in message

Podriamas andir el siguiente codigo al modulo de ThisWorkbook ... Private
Sub Workbook_SheetCalculate(ByVal Sh As Object)
For Each comm In Sh.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

es mejor andir este codigo al evento Calcualte de la hoja "resumen":

Private Sub Worksheet_Calculate()
For Each comm In Me.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

Saludos,
KL

Hola,

Bien, tal como lo tengo montado ahora y siguiendo todos los pasos
indicados, funciona correctamente, pero:

He querido hacer unos cambios en las hojas, y ha petado todo, a ver,
lo que he cambiado es que he tenido que añadir una columna mas en
todas las hojas de cada uno de los proveedores, entonces ahora no
coincide la columna donde esta el comentario de la hoja resumen C, con
la misma columna de cada una de las horas de proveedores, entonces la
formula =actualiza_comentario(SUMA(A:H!D1)) me da un error circular y
no funciona.

Como se puede ver lo unico que he hecho es cambiar en la formula,
donde habia C1 ahora tengo D1.

¿Porque me da este error?, ¿Como lo puedo solucionar?

Seria mucho pedir, si me pudiras enviar una muestra a mi correo
privado, como el que tengo aqui no funciona, utiliza ,
muchas gracias.

Saludos,
Engel

On Sun, 26 Jun 2005 18:28:36 +0200, "KL"
wrote:

Hola de nuevo,

"KL" wrote in message

Podriamas andir el siguiente codigo al modulo de ThisWorkbook ... Private
Sub Workbook_SheetCalculate(ByVal Sh As Object)
For Each comm In Sh.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

es mejor andir este codigo al evento Calcualte de la hoja "resumen":

Private Sub Worksheet_Calculate()
For Each comm In Me.Comments
comm.Shape.TextFrame.AutoSize = True
Next comm
End Sub

Saludos,
KL

Hola,

Bien, tal como lo tengo montado ahora y siguiendo todos los pasos
indicados, funciona correctamente, pero:

He querido hacer unos cambios en las hojas, y ha petado todo, a ver,
lo que he cambiado es que he tenido que añadir una columna mas en
todas las hojas de cada uno de los proveedores, entonces ahora no
coincide la columna donde esta el comentario de la hoja resumen C, con
la misma columna de cada una de las horas de proveedores, entonces la
formula =actualiza_comentario(SUMA(A:H!D1)) me da un error circular y
no funciona.

Como se puede ver lo unico que he hecho es cambiar en la formula,
donde habia C1 ahora tengo D1.

¿Porque me da este error?, ¿Como lo puedo solucionar?

Seria mucho pedir, si me pudiras enviar una muestra a mi correo
privado, como el que tengo aqui no funciona, utiliza ,
muchas gracias.

Saludos,
Engel