| | Post: 1 | Registrato il: 03/01/2014
| Città: NOVARA | Età: 64 | Utente Junior | Wxcel 2003 | | OFFLINE | |
|
03/01/2014 12:01 | |
Ciao a tutti sono Paolo e sono un nuovo utente del Forum. Ringrazio in anticipo chi mi può essere di aiuto nell'avventura che incautamente ho accettato di compiere.
La mia necessità è quella di registrare gli ingressi e le uscite dei partecipanti ad un corso di aggiornamento.
Per la precisione si tratta di inserire un codice ID univoco nel foglio di calcolo e questo viene inserito nella prima colonna tramite un lettore di prossimità, il problema nasce dal far corrispondere il codice ID a nome(colonna B) cognome colonna C ( che devono essere inseriti in automatico pescandoli ad esempio dal foglio2 ) data e ora corrente in colonna D ( in automatico secondo orario del computer, io ho adottato questa formula che non va bene perchè si aggiorna in tutto il foglio ad inserimenti successivi =SE(B1>0;ORA(ADESSO());" "). Ho provato varie soluzioni ma sono tutte naufragate.
Se potete aiutarmi vi ringrazio in anticipo
|
|
| | Post: 973 | Registrato il: 27/10/2003
| Città: SESTO SAN GIOVANNI | Età: 43 | Utente Senior | 2010 | | OFFLINE | |
|
03/01/2014 12:26 | |
Ciao!
A VBA come sei messo?
Se ti postiamo qualche idea sei in grado di adattarla?
Altrimenti si rende necessario un file di esempio.
________________________________
Excel 2010 - Win 7 Ufficio
Excel 2013 - Win 8 Casa
A poche informazioni corrispondono poche spiegazioni. |
| | Post: 974 | Registrato il: 27/10/2003
| Città: SESTO SAN GIOVANNI | Età: 43 | Utente Senior | 2010 | | OFFLINE | |
|
03/01/2014 12:33 | |
Esempio che dicevo prima.
Da mettere nel modulo "Questa_Cartella_di_Lavoro" del progetto VBA:
Option Explicit
Private Sub Workbook_Open()
Dim x As Long
Dim wsId As Worksheet
Set wsId = ThisWorkbook.Worksheets("Accessi") 'foglio da mettere veryhidden per maggior sicurezza
With wsId
x = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Cells(x, 1) = Application.UserName
.Cells(x, 2) = Now
End With
Set wsId = Nothing
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wsId As Worksheet
Dim x As Long
Set wsId = ThisWorkbook.Worksheets("Accessi") 'foglio da mettere veryhidden per maggior sicurezza
With wsId
x = .Range("C" & .Rows.Count).End(xlUp).Row + 1
.Cells(x, 3) = Now
End With
Set wsId = Nothing
End Sub ________________________________
Excel 2010 - Win 7 Ufficio
Excel 2013 - Win 8 Casa
A poche informazioni corrispondono poche spiegazioni. |
| | Post: 1 | Registrato il: 03/01/2014
| Città: NOVARA | Età: 64 | Utente Junior | Wxcel 2003 | | OFFLINE | |
|
03/01/2014 13:04 | |
Vi ringrazio per le risposte rapidissime. Purtroppo sono messo male, ma visto che la necessità è mia mi do da fare per capire.
In ogni caso appena mi è possibile invio file di esempio per i volonterosi che mi voglio aiutare.
Ancora tante grazie per il tempo dedicatomi.
Paolo |
|
|