EXCEL: Rilevare il valore inserito in una cella

Question

In un foglio Excel ho delle celle contenenti valori. Vorrei il codice che mi consenta con un clic su una di esse:

1. individuare la cella su cui ho fatto clic
2. prelevarne il valore inserito
3. copiare quel valore in un'altra cella (diciamo cella X1)

Grazie.

Answer 1

In un foglio Excel ho delle celle contenenti valori. Vorrei il codice che mi consenta con un clic su una di esse:

1. individuare la cella su cui ho fatto clic
2. prelevarne il valore inserito
3. copiare quel valore in un'altra cella (diciamo cella X1)

Grazie.

Ciao Luigi,

Fai clic dx sulla linguetta del foglio | Visualizza Codice  e incolla  il seguente codice:

'=========>>

Option Explicit

'-------->>

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim Rng As Range

    Const sIndirizzo As String = "A1:A10"                              ' <<====Modifica

    Const altrCella As String = "X1"                                      ' <<====Modifica

    If Not Intersect(Target, Me.Range(sIndirizzo)) Is Nothing Then

        MsgBox Target.Address(0, 0)

        Me.Range(altrCella).Value = Target.Value

    End If

End Sub

'<<=========

Alt-Q per tornare a Excel.

Per ottenere i risultati voluti, fai un doppio clic sulla cella di interesse.

===

Regards,

Norman

Answer 2

Perfetto! Grazie infinite Norman.

Saluti, Gigi.