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

INSERIMENTO DATA

Ultimo Aggiornamento: 06/05/2021 19:17
Post: 1
Registrato il: 23/04/2019
Città: MILANO
Età: 72
Utente Junior
2016
OFFLINE
06/05/2021 08:12

Buongiorno,
e' la prima volta che scrivo a questo forum per descrivere e cercare di risolvere con voi,
questo problema.
Ho un file excel con un DATABASE di articoli per la vendita, e su questo foglio,
ho registrato l'istruzione in calce, che mi scrive la data nella colonna "P",
Tutte le volte che cambia il prezzo nella colonna "E".
Pero'me lo fa su tutta la colonna, dalla prima riga a tutte le righe in giu',
a me servirebbe che lo facesse dalla riga 19 in giu' escludendo le precedenti,
e' una cosa possibile?
Se e' possibile chiedo il vostro aiuto, io ho provato varie volte ma non ci riesco.
allego un file di esempio.
grazie.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim rCell As Range
Set rng = Intersect(Me.Columns("E"), Target)
If Not rng Is Nothing Then
For Each rCell In rng.Cells
With rCell
If Not IsEmpty(.Value) Then
.Offset(0, 11).Value = Date '<<==("11 COLONNA")DOVE SCRIVERE LA DATA PARTENDO DA "F"'
Else
.Offset(0, 11).Value = vbNullString '<<==("11 COLONNA")DOVE SCRIVERE LA DATA PARTENDO DA "F"'
End If
End With
Next rCell
End If
End Sub
Post: 6.355
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
06/05/2021 08:57

Ciao Sandokan eccoti una soluzione in base al tuo listato

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim rCell As Range
Set rng = Intersect(Me.Columns("E"), Target)
If Not rng Is Nothing Then
For Each rCell In rng.Cells
  If rCell.Row < 19 Then GoTo 1 '------------->riga aggiunta
With rCell
If Not IsEmpty(.Value) Then
.Offset(0, 11).Value = Date '<<==("11 COLONNA")DOVE SCRIVERE LA DATA PARTENDO DA "F"'
Else
.Offset(0, 11).Value = vbNullString '<<==("11 COLONNA")DOVE SCRIVERE LA DATA PARTENDO DA "F"'
End If
End With
1 Next rCell '------------------>modificata
End If
End Sub


vedi i commenti quella aggiunta e quella modificata

Ciao By Sal (8-D

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 1
Registrato il: 23/04/2019
Città: MILANO
Età: 72
Utente Junior
2016
OFFLINE
06/05/2021 09:42

inserimento data
Grazie, siete stati celerissimi,
per adesso non mi resta che ringraziarvi tantissimo.
Ciao.
06/05/2021 19:17

Ciao by sal
Perchè fare un ciclo, mà soprattutto l'Application.EnableEvents = False
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E19:E100000")) Is Nothing Then
    Application.EnableEvents = False
    If Target.Offset(0, 0) <> "" Then
        Target.Offset(0, 11).Value = Date
    Else
        Target.Offset(0, 11).Value = ""
    End If
    Application.EnableEvents = True
End If
End Sub
Vota:
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]
[RISOLTO] Conversione Data (4 messaggi, agg.: 24/04/2022 18:26)
Inserimento data (5 messaggi, agg.: 02/01/2017 10:43)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 14:14. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com