A
andreapev
Utente Attivo
Iscritto da
lug, 2023
Messaggi:
104
Re: Inserimento data alla compilazione con Macro
01 set 2024, 11:50
Ciao
scusa ma nel foglio 27 hai
10-10-10 in data 01/09/2024
nel foglio1
la data è 27/04/2024
mi spieghi l logica per cui se scrivo i dati il 01/09/2024 devo scriverli in quella riga?
oppure i dati vanno inseriti uno sotto l'altro non considerando le date.
che versione hai di excel
questa è per la data-------da mettere nel foglio 27
```
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo V

If Not Intersect(Target, [C:C]) Is Nothing Then
Application.EnableEvents = False
    If Target = 10 Then
    Target.Offset(0, -2) = Date
    Else
     Target.Offset(0, -2) = ""
End If
End If
Application.EnableEvents = True
V:  Application.EnableEvents = True
End Sub
```
G
Giuseppe84
Pochi posts
Iscritto da
set, 2024
Messaggi:
3
Re: Inserimento data alla compilazione con Macro
01 set 2024, 23:18
Buonasera e grazie per la pronta e celere risposta.
La versione di excel è Microsoft Office Professional Plus 2013
Riformulo il tutto in un modo più ragionevole
se nella cella "C4" del foglio2 scrivo 59, in cella "A4" del foglio stesso mi aspetto la data attuale in cui inserisco il valore (RISOLTO)
Modificando le celle c4,d4,e4 (sempre nel foglio2) si aggiornino i dati nel foglio 1 nelle celle d2,e2,f2;
Inoltre, vorrei che venisse riportato nella colonna "B" del "Foglio2" ,B4 ciò che viene scritto nella colonna "C" del “Foglio1” C4.
Chiaramente il tutto collegato al'inserimento della tariffa nella cella "C4", “C5”, “C6” del foglio2
Riallego file più pulito
A
andreapev
Utente Attivo
Iscritto da
lug, 2023
Messaggi:
104
Re: Inserimento data alla compilazione con Macro
02 set 2024, 23:25
Ciao
se ho capito
la macro da usare nel foglio2 è
```
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo

If Not Intersect(Target, [C:C]) Is Nothing Then
Application.EnableEvents = False
    If Target <> "" Then
    Target.Offset(0, -2) = Date
    Else
     Target.Offset(0, -2) = ""
End If
End If
Application.EnableEvents = True
V:  Application.EnableEvents = True
End Sub
```
in foglio 1 cella D2
=SE.ERRORE(INDICE(Foglio2!C$2:C$1000;AGGREGA(15;6;RIF.RIGA($1:$1000)/(Foglio2!$A$2:$A$1000>0);RIF.RIGA($A1)));"")
da tirare a destra e in basso
in foglio 2 cella C2 da tirare in basso
=SE.ERRORE(INDICE(Foglio1!$C$2:$C$1000;AGGREGA(15;6;RIF.RIGA($1:$1000)/(Foglio1!$C$2:$C$1000<>"");RIF.RIGA($A1)));"")
G
Giuseppe84
Pochi posts
Iscritto da
set, 2024
Messaggi:
3
Re: Inserimento data alla compilazione con Macro
03 set 2024, 20:11
Grazie andreapev.
Riformulo il quesito : Modificando le celle c4,d4,e4 in maniera indipendente (sempre nel foglio2) si aggiornino i dati nel foglio 1 nelle celle d2,e2,f2 e all'inserimento dei valori mi copi il valore della colonna c del foglio 1
Inoltre inserendo i valori nelle celle si aggiorni sempre la data corrente nella colonna A (sempre del Foglio2).
Grazie ancora
A
andreapev
Utente Attivo
Iscritto da
lug, 2023
Messaggi:
104
Re: Inserimento data alla compilazione con Macro
03 set 2024, 20:48
Ciao
guarda che le formule si adeguano a tutti i cambiamenti
poi se vuoi una macro che faccia tutto lascio ai VBAISTI
per la macro la cambiamo così
```
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo V
If Not Intersect(Target, [C4:E1000]) Is Nothing Then
Application.EnableEvents = False
   If Target <> "" Then
   Cells(Target.Row, 1) = Date
   Else
    Cells(Target.Row, 1) = ""
End If
End If
Application.EnableEvents = True
V:  Application.EnableEvents = True
End Sub
```
però la prossima volta cerca di essere preciso
hai sempre parlato di variazione colonna C
A
andreapev
Utente Attivo
Iscritto da
lug, 2023
Messaggi:
104
Re: Inserimento data alla compilazione con Macro
03 set 2024, 22:12
Ciao
vorrei inoltre farti presente che il cross posting
è vietato in questo forum

Devi accedere o registrarti per scrivere nel forum

6 risposte