Registrazione resti

Hai un problema con Excel?

Nuova discussione

Registrazione resti
di Emans (utente non iscritto) data: 04/06/2015 11:40:40
Buongiorno,

ho la seguente necessità. Da un foglio "Principale" dove calcolo i tagli di € per dare il resto, vorrei registrare con un pulsante, tali resti con i tagli in modo consecutivo in un altro foglio che all'inizio giornata venga creato automaticamente con il nome la data del giorno. Alle successive registrazione della giornata il foglio rimane sempre lo stesso. Il giorno successivo si deve creare un altro foglio con la data del giorno successivo. E cosi via. Allego il file.
Grazie

Saluti

di Luca73 (utente non iscritto) data: 04/06/2015 14:17:54
Ciao ti allego il file con il programma inserito.
Ho creato un foglio Base (nascosto) che viene utilizzato come modello per i nuovi giorni.
Non ho potuto inserire il pulsante in quanto il foglio è protetto con password.
Qui sotto il programma.
Fammi sapere se tutto OK

Sub Programma()
Dim Vettore(1 To 12)
Dim Indice
Dim Oggi As String
Dim Trovato As Boolean
Dim MioFoglio As Worksheet
Sheets("Principale").Select
Trovato = False
Oggi = Format(Date, "dd-mm-yy")
Sheets("Principale").Select
Vettore(1) = Range("B8").Value
Vettore(2) = Range("D8").Value
Vettore(3) = Range("F8").Value
For Indice = 1 To 9
    Vettore(3 + Indice) = Range("H8").Offset(0, Indice - 1).Value
Next

For Indice = 1 To Sheets.Count
    If Sheets(Indice).Name = Oggi Then
        Trovato = True
        Set MioFoglio = Sheets(Indice)
        Exit For
    End If
Next
If Not (Trovato) Then
    Sheets("Base").Visible = xlSheetVisible
    Sheets("Base").Copy after:=Sheets("Base")
    Set MioFoglio = Sheets(Sheets.Count)
    MioFoglio.Name = Oggi
    MioFoglio.Move before:=Sheets("Base")
    Sheets("Base").Visible = xlHidden
End If
MioFoglio.Select
MioFoglio.Range("A10000").End(xlUp).Offset(1, 0).Select
For Indice = 12 To 1 Step -1
    With MioFoglio.Range("A10000").End(xlUp).Offset(1, Indice - 1)
        .Value = Vettore(Indice)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
Next
Sheets("Principale").Select
End Sub

di Emans (utente non iscritto) data: 04/06/2015 14:50:25
Grazie

il file funziona alla perfezione. L'unica cosa è che nascondo il foglio Base mi si blocca con l'errore. Se lo rendo visibile funziona benissimo. La password è 12345678. Si può ovviare?
Grazie
di Luca73 data: 05/06/2015 08:30:59
Ciao a me il Programmino funziona.
Ho inserito il bottone.
Guarda inoltre il file l'ho cambiato e ho fatto inoltre in modo che in caso di errore il programma non va avanti.
Inoltre ho modificato la formula del resto inserendo un errore se l'importo è iinsufficiente.
inoltre ti ho modificato le formule di calcolo dei resti usando un unica formula uguale per tutti (eccetto il 100).
di Emans (utente non iscritto) data: 05/06/2015 08:36:00
Buongiorno,

grazie un magnifico lavoro!!! Funziona alla perfezione

Vuoi Approfondire?