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

REGISTRAZIONE ACCESSI corso aggiornamento

Ultimo Aggiornamento: 03/01/2014 13:04
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

Registrazione Accessi
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
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]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 14:07. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com