Inserimento dato vba e copia

Inserimento dato vba e copia
di 1949andro (utente non iscritto) data: 06/03/2011
Ho un range che va da d1 a g20 (foglio1)e su ogni cella vado ad inserire una lettera, quando immetto la lettera f su una qualsuasi cella del range d1-g20, il vba dovrebbe copiare il corrispondente valore della cella indicato in
a... (cella di riferimento) di dove ho immesso la lettera f e trasferirlo nel foglio numericamente parlando specifico.
esempio se immetto la lettera f nella cella g5 il valore contenuto in a5 deve essere copiato sul foglio4 (colonna quattro dopo d1), se fosse in e8 il valore contenuto in a8 deve essere copiato nel foglio2 (seconda colonna partendo da d1) etc. ho provato con una macro sotto riportata ma mi sono inchiodato per una serie di errori che faccio, in quanto non so come procedere dopo la condizione if..
grazie della collaborazione
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range([d1], [g20]), Target) Is Nothing Then Exit Sub r = Target.Row If Target.Value = "F" Then ................... endif End Sub