Associare la colonna all'inserimento di un valore numerico

[elevation1]

Salve, ho un problema che non riesco a risolvere... penso sia semplice per voi.
Ho il seguente range di celle A2:D10
in A2,B2,C2,D2 ci sono dei titoli fissi mentre da a3:d10 ci sono celle vuote da riempire.
Ecco io vorrei che non appena metta un valore in questo range (a3:d10) compaia il valore della colonna corrispondente in una cella fissa F2.
Esempio banale se metto un numero in a7 compare in F2 il valore di a2
Se metto un valore in d5 compare sempre in F2 il valore di d2 e così via...
Potete darmi una mano? grazie mille

[Anthony47]

Penso ti potra' aiutare una macro come questa:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mArea As String
mArea = "A3:D10"            '<<< L'area da controllare
If Not Application.Intersect(Target, Range(mArea)) Is Nothing And Target.Count = 1 Then
    If Len(Target.Value) > 0 Then
        Range("F2").Value = Cells(2, Target.Column)
    End If
End If
End Sub

Il codice va inserito nel "Modulo di Classe" del tuo foglio di lavoro, vedi
viewtopic.php?f=26&t=103893&p=647675#p647675

Ciao

[elevation1]

innanzitutto grazie! ho utilizzato la tua macro inserita nel modulo di classe ma non va... forse sbaglio qualcosa... boh

[Anthony47]

Pubblica il tuo file di lavoro, completo della macro che hai aggiunto, e vedremo di trovare la gabola.

Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao

[elevation1]

ecco il file
http://www.filedropper.com/prova_4

[Anthony47]

Mamma mia, non pensavo che le istruzioni fossero cosi' confuse...

Ti avevo detto che Il codice va inserito nel "Modulo di Classe" del tuo foglio di lavoro; sul link che ti avevo dato le istruzioni piu' semplici da eseguire dicono:

Se il codice va inserito in un Modulo di classe di uno dei Fogli, allora e' possibile usare la seguente scorciatoia.
Partendo da Excel:
a) Tasto destro sul Tab col nome del Foglio a cui il codice va agganciato
b) Scegliete Visualizza codice
In questo modo si aprira' l'ambiente Vba direttamente sul modulo di classe in cui il codice va inserito

Insomma non aggiungere nessun modulo di classe ma usa quelli gia' presenti; ci arrivi in un attimo con la scorciatoia del tasto destro...

Ciao

[elevation1]

ok era più semplice di quanto pensassi... un'ultima cosa ma se volessi far comparire in esempio g2 l'ultimo valore che ho inserito? esempio nella colonna A metto lunedi e in f2 compare gennaio in g2 dovrebbe comparire l'ultimo valore inserito cioè lunedì... si può? grazie ancora

[Anthony47]

Si puo' fare...
Ad esempio modifica il codice con questa aggiunta:

Codice: Seleziona tutto

    If Len(Target.Value) > 0 Then
        Range("F2").Value = Cells(2, Target.Column)
        Range("G2").Value = Target.Value          '<<< AGGIUNGERE QUESTA RIGA
    End If

Ciao