Funzione che scrive commento su un'altra cella

Question

Desidero una funzione che, trascriva il testo presente sulla cella A1 visualizzandolo su B1 come commento.

Grazie.

Answer 1

Mauro,

Ho usato la sub "generico per tutte le celle"  è va tutto bene!!!!

Ti chiedo se sia possibile sfuttando l'evento Change applicare questa funzione quando incollo un range di dati anzichè la singola cella.

Comunque grazie la disponibilià.

 

 

Prova:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    Dim c As Range

    For Each c In Target

        If c.Value <> "" Then

            c.Offset(0, 1).AddComment

            c.Offset(0, 1).Comment.Text Text:=c.Value

        Else

            c.Offset(0, 1).ClearComments

        End If

    Next

    Set c = Nothing

 End Sub

Answer 2

Desidero una funzione che, trascriva il testo presente sulla cella A1 visualizzandolo su B1 come commento.

Grazie.

Non esiste. Possiamo fare una macro che lo faccia o sfruttare l'evento Change della cella. Ad esempio, da copia/incollare nel modulo di codice del foglio dove vuoi questa cosa:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then

        If Target.Value <> "" Then

            Me.Range("B1").AddComment

            Me.Range("B1").Comment.Text Text:=Target.Value

        Else

            Me.Range("B1").ClearComments

        End If

    End If

End Sub

Più generico per tutte le celle:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    If Target.Value <> "" Then

        Target.Offset(0, 1).AddComment

        Target.Offset(0, 1).Comment.Text Text:=Target.Value

    Else

        Target.Offset(0, 1).ClearComments

    End If

End Sub

Se non hai mai utilizzato le macro, vedi qui: http://www.maurogsc.eu/excel/xlsdoveinserirecodice.aspx . 

Vedi se può andare una delle due e ci lavoriamo su. Grazie.

Answer 3

Era quello che cercavo!!!!

Grazie e buona domenica

Answer 4

Mauro,

Ho usato la sub "generico per tutte le celle"  è va tutto bene!!!!

Ti chiedo se sia possibile sfuttando l'evento Change applicare questa funzione quando incollo un range di dati anzichè la singola cella.

Comunque grazie la disponibilià.