evento clik su una cella

Question

Buonasera;

in riferimento alla soluzione che ha dato per l?evento clik su una cella e cioè

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

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio2")

    MsgBox sh.Range(Target.Address).Value

    Set sh = Nothing

End Sub

che funziona bene;  a me si è presentato un problema che non riesco a risolvere e cioè :

i dati tra le celle dei due fogli non corrispondo:         foglio1  Marzo  (i foglio sono 12  di enne righe)

A	B	C
data	descrizione operazione	importo
	fattura fornitore  AAAAA	700

Foglio 2

D	E	F
Gennaio	Febbraio	Marzo
300	899	1.000
260	477	600
		700   (evento doppio clik)

ho provato a modificare il suo codice 

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

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("=Marzo!B3")

    MsgBox sh.Range(Target.Address).Value

    Set sh = Nothing

End Sub

spero di essere stato chiaro il più possibile. Comunque La ringrazio in anticipo e complimenti per  i suggerimenti e il servizio che offre

Cordialmente 

Antonio

Answer 1

Buongiorno Sig. Norman;

non sono stato chiaro io le chiedo scusa;

facendo eseguire il suo codice il risultato è un msg con lo stesso contenuto della cella dove ho fatto clik.

Invece mi dovrebbe visualizzare il contenuto del foglio 1.

Nel mio esempio :

1. faccio clik sul foglio 2 cella F4 ( 700)
2. dovrebbe apparire il contenuto della cella del foglio 1  cella B2(FATTURA FORNITORE)

La cella F4 evidenzia il contenuto della cella B2 del foglio 1 ( =foglio1!C2)( che sono i foglio di immissione movimenti . sono 12  fogli che sono i mesi dell'anno in corso).

Forse il mio ragionamento è troppo contorto .

cordiali saluti

Antonio

Answer 2

in riferimento alla soluzione che ha dato per l?evento clik su una cella e cioè

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

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio2")

    MsgBox sh.Range(Target.Address).Value

    Set sh = Nothing

End Sub

che funziona bene;  a me si è presentato un problema che non riesco a risolvere e cioè :

i dati tra le celle dei due fogli non corrispondo:         foglio1  Marzo  (i foglio sono 12  di enne righe)

A	B	C
data	descrizione operazione	importo
	fattura fornitore  AAAAA	700

Foglio 2

D	E	F
Gennaio	Febbraio	Marzo
300	899	1.000
260	477	600
		700   (evento doppio clik)

ho provato a modificare il suo codice 

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

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("=Marzo!B3")

    MsgBox sh.Range(Target.Address).Value

    Set sh = Nothing

End Submunque La ringrazio in anticipo e complimenti per  i suggerimenti e il servizio che offre

Ciao Antonio,

Non sono sicuro di aver capito la tua domanda ma, forse, prova:

'========>>

Option Explicit

'-------->>

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

     Cancel = True

    MsgBox Target.Value

End Sub

'<<========

===

Regards,

Norman