| | Post: 1 | Registrato il: 04/05/2020
| Età: 60 | Utente Junior | credo 2019 | | OFFLINE | |
|
  01/11/2020 21:37 | |
buonasera, ho un problemino da risolvere con vba, praticamente mi trovo un foglio diviso in 9 tabelle, nella prima colonna di ogni tabella devo inserire in modo automatico, quando inserisco del testo nella seconda colonna, l'orario corrente. Smanettando qua e la sono riuscito ad inserirlo nella prima colonna del foglio ma non riesco nelle altre, ho provato a cercare delle spiegazioni ma non ho trovato nulla, vi sarei grato se qualcuno riuscisse ad indicarmi la giusta via. Vi allego bozza del file sul quale sto lavorando.
Grazie |
|
| | Post: 1.005 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
| 01/11/2020 22:01 | |
Riprova con la tua macro così riveduta e poi usala come base di partenza: Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub 'non eseguire se selezionate più celle
Application.EnableEvents = False 'interrompi controllo eventi
'se (colonna B o P o AD) e cella compilata
With Target
If (.Column = 2 Or .Column = 16 Or .Column = 30) And Not IsEmpty(.Value) Then
.Offset(0, -1) = Format(Time, "hh.mm") 'imposta orario in cella accanto
Else 'altrimenti
.Offset(0, -1) = vbNullString 'svuota cella accanto
End If
End With
Application.EnableEvents = True 'riprendi controllo eventi
End Sub[Modificato da rollis13 01/11/2020 22:04]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 1 | Registrato il: 04/05/2020
| Età: 60 | Utente Junior | credo 2019 | | OFFLINE | |
|
| 01/11/2020 23:15 | |
immissione ora automatica in più colonne dello stesso foglio Grazie Gentilissimo, funziona alla grande, Perfetto!!!! |
| | Post: 1.006 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
| 01/11/2020 23:33 | |
Grazie del riscontro positivo ![[SM=g27811]](https://im0.freeforumzone.it/up/0/11/10151015.gif) .
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
|
|
|
|