| | Post: 24 | Registrato il: 24/06/2014
| Città: MILANO | Età: 29 | Utente Junior | 2013 | | OFFLINE | |
|
08/10/2017 14:20 | |
Buongiorno a tutti!
Ho bisogno il vostro aiuto riguardo ad un quesito di excel.
Ho un file che contiene una cella gialla in cui c'è un valore che cambia ogni giorno, avrei bisogno che, confrontando il giorno in cui è aperto excel (oggi), venisse preso questo valore e inserito nella cella corrispondere (da D3 a Z3) al giorno di oggi.
Allego un file che può aiutarvi a capire.
Grazie per l'aiuto.
Saluti.
Alessandro.
[Modificato da Alex956 08/10/2017 14:21] |
|
| | Post: 141 | Registrato il: 15/01/2016
| Città: ROMA | Età: 51 | Utente Junior | 2016 | | OFFLINE |
|
08/10/2017 15:47 | |
Buonasera
in D3 da trascinare a destra
=SE(D$2=OGGI();$B$3;"") |
| | Post: 24 | Registrato il: 24/06/2014
| Città: MILANO | Età: 29 | Utente Junior | 2013 | | OFFLINE | |
|
08/10/2017 16:34 | |
Grazie mille per l'aiuto! Gentilissimo!
Mi è venuta in mente una cosa, ma domani il valore 230 scritto nella casella corrispondente al giorno 08/10 rimane o si cancella? io avrei bisogno che rimanga scritto, visto che domani il valore nella cella gialla sarà differente e dovrà essere riportato nella casella corrispondente al giorno 09/10.
Grazie.
Alessandro. [Modificato da Alex956 08/10/2017 16:36] |
| | Post: 142 | Registrato il: 15/01/2016
| Città: ROMA | Età: 51 | Utente Junior | 2016 | | OFFLINE |
|
08/10/2017 16:57 | |
Allora ci vuole il VBA....dopo ci provo.....premesso che non sono un esperto di vba |
| | Post: 434 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
09/10/2017 16:00 | |
Ciao Alex, ciao Danilo
prova con questa macro da inserire nel Modulo di Foglio1
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cn As Long
If Not Intersect(Target, [B3]) Is Nothing Then
cn = Application.WorksheetFunction.Match(Int(Now()), Range("A2:AD2"), 0)
Cells(3, cn) = [B3]
End If
End Sub
Fai sapere. Ciao,
Mario |
| | Post: 25 | Registrato il: 24/06/2014
| Città: MILANO | Età: 29 | Utente Junior | 2013 | | OFFLINE | |
|
09/10/2017 19:22 | |
Ciao Marius,
Purtroppo non ho mai inserito macro e non me ne intendo,
mi sapresti dire come la devo inserire?
L'ho inserita nel seguente modo ma mi dà errore.
Sub data()
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cn As Long
If Not Intersect(Target, [B3]) Is Nothing Then
cn = Application.WorksheetFunction.Match(Int(Now()), Range("A2:AD2"), 0)
Cells(3, cn) = [B3]
End If
Application.Goto Reference:="data"
End Sub |
| | Post: 435 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
09/10/2017 22:44 | |
Ciao Alex
Lascia perdere la macro che hai scritto (la prima riga e le ultime due devi toglierle).
Per inserire la macro al punto giusto fai così:
- Alt+F11 e ti si apre l'editor di VBA
- nel frame di sinistra fai doppio-clic su Foglio1
- nel frame di destra inserisci la macro che ti ho inviato.
E' automatica ogni volta che "cambia" il valore nella cella B3
Ciao,
Mario |
| | Post: 26 | Registrato il: 24/06/2014
| Città: MILANO | Età: 29 | Utente Junior | 2013 | | OFFLINE | |
|
10/10/2017 19:43 | |
Ciao Marius!
Perdonami ma non ci riesco...
Dopo aver fatto alt F11 mi compare la schermata che ti allego e poi non ho capito bene cosa devo fare.
Grazie per la pazienza.
Alessandro. |
| | Post: 437 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
11/10/2017 05:39 | |
Ciao Alex
Ti allego il file con inserita la macro.
Fai sapere. Ciao,
Mario
PS - Ovviamente quando ti si apre autorizza l'esecuzione delle macro. |
| | Post: 27 | Registrato il: 24/06/2014
| Città: MILANO | Età: 29 | Utente Junior | 2013 | | OFFLINE | |
|
16/10/2017 20:40 | |
Mitico!!
Grazie mille per l'aiuto!
Tutto ok!
Alessandro. |
|
|