COUPON

Hai un problema con Excel?

Nuova discussione

COUPON
di raclas data: 21/04/2013 15:48:40
ciao a tutti. sono nuovo del forum . per stampare dei coupon-sconto avrei bisogno di avere in 3 caselle di excel , ora-min-sec che si aggiorna in continuo in automatico , l' altro un numero sequenziale in automatico ( come se fosse un numero di matricola ) e l' altro un numero (logico) che si modifica , per controllo antifishing ( della quale logica possa saperla solo io ) . Potete aiutarmi ? Grazie
di totygno71 data: 21/04/2013 17:22:08
Ciao raclas
benvenuto nel forum...

ho capito la cella con ore minuti sec
numero sequenziale? in che senso???
numero logico? in che snso???
Puoi fare un esmpio pratico?

Ciao
di Vecchio Frac data: 21/04/2013 18:35:29
cit. "controllo antifishing"
---> Magari volevi dire "controllo anti phishing" ^_^
di totygno71 data: 21/04/2013 18:38:36
@VF
come sei fiscale... si pronuncia fiscing...! ^_^
di raclas (utente non iscritto) data: 21/04/2013 20:28:18
scusate , l' imperfezione ortografica.
per numero sequenziale , intendo un numero di matricola del coupon , che varia in automatico dopo la stampa e salvataggio automatico . Cioè , dopo che stampo il coupon numero 1234 , deve essere pronto per la stampa il coupon numero 1235 . L' altro numero anti phishing posso farlo con un' equazione che conosco solo io e posso cambiare quando voglio .
In realtà avrei bisogno anche di memorizzare i dati ( ora minuto secondo , numero coupon e numero anti phishing ) in una tabella in automatico , per tenerli controllati e in memoria
Grazie per la cordialità
di totygno71 data: 21/04/2013 20:56:37
OOOOK
ora è molto più chiaro....
ma tu vuoi un programmino su misura o un aiuto per farlo?
di raclas (utente non iscritto) data: 21/04/2013 21:31:17
un aiutino .
In realtà ce l' avevo . Ero riuscito a farlo io . I figli hanno toccato il pc , e non funziona più l' aggiornamento . Ho bisogno un aiutino per rifarlo , magari meglio di prima .
Ringrazio per la cordialità ;
di totygno71 data: 21/04/2013 21:35:28
ottimo
allora puoi iniziare allegando quello che hai evidenziando cosa non funziona!
di raclas (utente non iscritto) data: 22/04/2013 09:42:21
il vba , è diventato vuoto !
di totygno71 data: 22/04/2013 09:50:37
vabbene
Posta il file magari inizando a scrivere qualche riga di VBA in funzione di quello che vuoi ottenere che poi ci lavoriamo su..
di Vecchio Frac data: 22/04/2013 10:07:14
Non avevi nessuna copia di backup? :(
di raclas (utente non iscritto) data: 22/04/2013 14:53:52
per incrementare il numero di 1 ho nel VBA :

Private Sub Workbook_Open()

mfilehandle = FreeFile
strpath = "c:aperture.txt"
On Error GoTo ErrorHandler
Open strpath For Input As #mfilehandle
Close #mfilehandle
Ok:
Open strpath For Input As #mfilehandle
Input #mfilehandle, Numero
Cells(1, 1) = Numero + 1
Close #mfilehandle
Open strpath For Output As #mfilehandle
Print #mfilehandle, Numero + 1
Close #mfilehandle

Exit Sub

ErrorHandler: ' Error-handling routine.
Select Case Err.Number ' Evaluate error number.
Case 53 ' "File already open" error.
Open strpath For Output As #mfilehandle
Print #mfilehandle, 0
Close #mfilehandle
GoTo Ok

End Select
Resume ' Resume execution at same line
' that caused the error.

End Sub

per l' aggiornamento automatico della data e ora e min , ho nel VBA:

Sub CLOCK()
If ThisWorkbook.Worksheets("foglio1").Range("I10").Value = "X" Then Exit Sub
ThisWorkbook.Worksheets("foglio1").Range("I10").Value = Format(Now, "hh:mm:ss AM/PM")
Application.OnTime Now + TimeSerial(0, 0, 1), "clock"
End Sub
Private Sub Workbook_Open()
Foglio1.Select
Call CLOCK
End Sub

e poi ho ancora nel VBA:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("I11") = Format(Val(Range("I11")) + 1, "000")
End Sub
Sub Tempo()
Sheets("Foglio1").Select
Dim PauseTime, start, Finish, TotalTime
Range("I10").Value = Time
10:
PauseTime = 3
start = Timer
Do While Timer < start + PauseTime
DoEvents
Loop
Finish = Timer
TotalTime = Finish - start
Range("I10").Value = Time
GoTo 10
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Row = 11 And ActiveCell.Column = 9 Then
a = Cells(11, 9)
a = a + 1
Cells(11, 9) = a
End If

End Sub

Ringrazio , chi mi darà una mano
di totygno71 data: 22/04/2013 15:46:16
Mi sembra un guazzabbuglio di codice ^_^
Vediamo se qualcuno ci capisce qualcosa... io appena ho un attimo me lo guardo_

Vuoi Approfondire?