Visualizzazione Stampabile
-
"Database con excel"
Avrei bisogno di alcune info su excel. Per l'azienda in cui lavoro ho bisogno di utilizzare excel per creare un piccolo database (niente access, non esiste sui nostri pc).
Ho creato la "maschera" in cui inserire i dati del lettore di codice a barre e un foglio con cui stampare l'etichetta sui dati estrapolati e organizzati del lettore.
Quello che mi manca è l'incolonnamento di questi valori in un elenco permanente.
Mi spiego meglio: Scannerizzo con il lettore il codice a barre e la stampante stampa l'etichetta con i dati organizzati. I dati scannerizzati però mi piacerebbe memorizzarli in un elenco che procede automaticamente ad ogni inserimento.
E' possibile fare una cosa simile senza ricorrere ad un database?
-
Re: "Database con excel"
con excel? e basta? perchè? :uhoh:
EDIT:
non è meglio una soluzione di questo tipo (visto che non avete access)? -> LINK
-
Re: "Database con excel"
Perchè su quei pc c'è solo word ed excel e non si può installare nulla :asd:
Grazie per il link, do subito un'occhiata.
Per ora ho risolto in modo molto rozzo così:
Citazione:
Sub Salvamanonchiudi()
'
' Salva Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+S
'
Dim lr As Long
'--- determina la prima riga disponibile del foglio ARCHIVIO
lr = Sheets("Database").Cells(Rows.Count, "A").End(xlUp).Row + 1
'--- tanto per capire:
'--- l'operatore & o di concatenamento, è utilizzato per concatenare due stringhe
'--- se lr=25 il risultato di questa "A" & lr & ":B" & lr sarà "A25:B25"
'--- utilizza questa, con riga destinazione variabile
Sheets("Inserimento").Range("I8").Copy Sheets("Database").Range("A" & lr)
'
' Salva Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+S
'
'--- determina la prima riga disponibile del foglio ARCHIVIO
lr = Sheets("Database").Cells(Rows.Count, "B").End(xlUp).Row + 1
'--- tanto per capire:
'--- l'operatore & o di concatenamento, è utilizzato per concatenare due stringhe
'--- se lr=25 il risultato di questa "A" & lr & ":B" & lr sarà "A25:B25"
'--- utilizza questa, con riga destinazione variabile
Sheets("Inserimento").Range("I21").Copy Sheets("Database").Range("B" & lr)
Dim SH As Worksheet
Dim Rng As Range
Set SH = Sheets("Database") '<<=== da CAMBIARE
Set Rng = SH.Range("C" & lr) '<<=== da CAMBIARE
Rng.Value = Application.UserName
Sheets("Database").Select
Range("D" & lr).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Date & " "
Sheets("Inserimento").Select
Range("I8").ClearContents
Range("I21").ClearContents
ActiveWorkbook.Save
End Sub
-
Re: "Database con excel"
Premesso che non so VBA ma il punto è che una gestione di dati così "artigianale" su fogli excel, la vedo alquanto critica...
Con Sqlite, hai la possibilità per lo meno di inserire ed estrapolare i dati da un DB con vantaggi non indifferenti. Devi solo pensare una struttura per il tuo db e poi lo gestisci con opportune query. Poi l'interfaccia puoi farla anche con VBA, excel, puoi farti un programmino apposta, quello che vuoi... ma i dati stanno su un DB.
Ogni giorno ti fai un backup del DB e gg :sisi:
EDIT:
Hai anche il vantaggio che se in futuro devi cambiare programma, interfaccia o addirittura ti dicono "ok ora abbiamo i soldi, mettiamo tutti i dati su mySQL, Oracle, SQLserver o altro" ti basta esportare ed importare.
-
Re: "Database con excel"
La verità é che il fine é proprio quello di essere artigianale. :bua: Lavoro per Ikea e il software di gestione negozio permette di fare tutto tranne una cosa, ossia comunicare con le bilance di pesa tessuti.
Quando al servizio clienti ci vengono portati i servizi sartoria ci si mette decine di minuti a ricopiare a mano tutti i dati sul foglio stampato dalla bilancia.
Ogni postazione ha uno scanner per barcode e una etichettatrice e l'obiettivo era velocizzare il tutto dato che sia il foglio stampato dalla bilancia che lo scontrino del pagamento possiedono un barcode.
-
Re: "Database con excel"
ah... boh allora non saprei di preciso cosa consigliarti :bua: