Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

COPIA VALORI VARIABILI IN CELLA OGNI GIORNO

Ultimo Aggiornamento: 16/10/2017 20:40
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.
Vota: 15MediaObject5,00110 1
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 09:02. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com