A ver si es posible esto

perdon, la formula en castellano seria:

=actualiza_comentario(SUMA(A:E!C1))

Saludos,
KL


"KL" wrote in message
news:
> Hola chicos,
>
> "Individuo Desconocido" escribio:
>>En el evento Worksheet_Change de cada hoja debes incluir esto:
>>Private Sub Worksheet_Change(ByVal Target As Range)
>> actualiza_comentario (Target.Row)
>>End Sub
>
> Tambien podrias usar el evento SheetChange de ThisWorkbook para evitar
> copiar la instruccion a todas las hojas:
>
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> Range)
> actualiza_comentario (Target.Row)
> End Sub
>
> ?Y que pasa si los cambios se introducen en varias celdas a la vez? - solo
> pasas una fila como argumento de la funcion.
>
>> Para que esto funcione cada celda desde la C1 hasta la C381 debe tener un
>> comentario (aunque este vacio) para poder escribir en el y que no de
>> error.
>
>
> ?Y que pasa si un cambio se introduce en una celda fuera de dicho rango?
> ?O es que todas las celdas de la hoja deberian tener comentarios?
> Pues, no necesariamente :-) bastaria con hacer un par de cambios al
> codigo:
>
> Function actualiza_comentario(fila As Long)
> On Error Resume Next
> celda = "C" & fila
> Sheets("resumen").Range(celda).ClearComments
> Sheets("resumen").Range(celda).AddComment.Text Text:="+" & _
> Sheets("A").Range(celda) & "(A)" & Chr$(10) & "+" & _
> Sheets("B").Range(celda) & "(B)" & Chr$(10) & "+" & _
> Sheets("C").Range(celda) & "(C)" & Chr$(10) & "+" & _
> Sheets("D").Range(celda) & "(D)" & Chr$(10) & "+" & _
> Sheets("E").Range(celda) & "(E)" & Chr$(10) & "=" & _
> Sheets("resumen").Range(celda)
> End Function
>
> Tambien se podria hacer lo mismo por medio de una funcion personalizada:
>
> 1) pon la siguiente funcion en un modulo estandar
>
> Function actualiza_comentario(Valor As Variant)
> Dim rng As String, f As Long
> On Error Resume Next
> rng = Application.Caller.Address
> With Application.Caller
> .ClearComments
> .AddComment _
> "+" & Sheets("A").Range(rng) & "(A)" & Chr$(10) & "+" & _
> Sheets("B").Range(rng) & "(B)" & Chr$(10) & "+" & _
> Sheets("C").Range(rng) & "(C)" & Chr$(10) & "+" & _
> Sheets("D").Range(rng) & "(D)" & Chr$(10) & "+" & _
> Sheets("E").Range(rng) & "(E)" & Chr$(10) & "=" & Valor
> End With
> actualiza_comentario = Valor
> End Function
>
> 2) escribe en la celda [C1] la siguiente formula:
>
> =actualiza_comentario(SUM(A:E!C1))
>
> De todas formas deciros que ambas funciones son bastante lentas por lo
> cual si se aplican a un rango de 300 celdas o mas simultaneamente tardaran
> bastante en ejecutarse y segun la potencia del PC podrian relentizarlo de
> manera importante.
>
> Saludos,
> KL
>