| | Post: 31 | Registrato il: 25/03/2014
| Città: AGEROLA | Età: 31 | Utente Junior | 2013 | | OFFLINE | |
|
  25/07/2015 00:11 | |
salve, ragazzi sto creando un software per le fatture perosto riscontrando un gravissimo problema che non riesco a tornarnene a capo:
apro il form clicco su nuova fattura, mi fa scegliere il cliente e tutto...ora vado a compilare la descrizione e tutto ma quando metto la quanità per l'importo mi da l'errore... perche??? ecco il file allegato |
|
| | Post: 1.978 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 25/07/2015 08:50 | |
Buona giornata, Danilo; inizio con l'apprezzamento per la Tua Procedura. Innazittutto, bisogna capire perchè si generano gli errori; credo che il problema si generi nelle Formule in Riga 17 del Foglio di lavoro "impostazioni". Partendo dalla considerazione che TextBox rende sempre un valore in Formato Testo, modificherei la Formula da: a =SE(O(C15="";C16="");0;C16*C15) Analogamente per le altre Formule. Poi, si tratterà di valutare se i valori dei vari TextBox dovranno essere trasformarti da Testo a Numero. A disposizione. Buon fine settimana. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 31 | Registrato il: 25/03/2014
| Città: AGEROLA | Età: 31 | Utente Junior | 2013 | | OFFLINE | |
|
| 25/07/2015 10:36 | |
perfettoo!!! ora funziona.. l'unico problema e che quando metto nel form2 un valore decimale (es. 0.50) excel mi lancia il debug.... come mai? ho provato anche a mettere il val prima della stringa ma non è andata..
ora ho notato che se metto il . si blocca mentre se metto la , no... pero la label accanto che mi calcola il totale non mi riporta i numeri dopo la virgola.. [Modificato da Danilo1993 25/07/2015 10:44] |
| | Post: 1.979 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 25/07/2015 12:06 | |
@ Danilo1993, scrive
l'unico problema e che quando metto nel form2 un valore decimale (es. 0.50) excel mi lancia il debug.... come mai? ho provato anche a mettere il val prima della stringa ma non è andata..
ora ho notato che se metto il . si blocca mentre se metto la , no... pero la label accanto che mi calcola il totale non mi riporta i numeri dopo la virgola..
Purtroppo credo di non aver capito la Tua obbiezione.
In allegato ho inserito un'immagine dei risultati di una ipotetica Fattura.
A ben vedere l'unico problema riscontrato riguarda Label9, che non riporta il risultato atteso; ma, questo dipende da un refuso nei Codici:
Private Sub TextBox11_Change()
Sheets("impostazioni").Range("m16") = UserForm2.TextBox11
Sheets("impostazioni").Range("m15") = UserForm2.TextBox12
UserForm2.Label9.Caption = Sheets("impostazioni").Range("m7")
UserForm2.Label18.Caption = Sheets("impostazioni").Range("n17")
End Sub
Private Sub TextBox12_Change()
Sheets("impostazioni").Range("m16") = UserForm2.TextBox11
Sheets("impostazioni").Range("m15") = UserForm2.TextBox12
UserForm2.Label9.Caption = Sheets("impostazioni").Range("m7")
UserForm2.Label18.Caption = Sheets("impostazioni").Range("n17")
End Sub
che, a mio avviso, dovrebbero essere modificati in:
Private Sub TextBox11_Change()
Sheets("impostazioni").Range("m16") = UserForm2.TextBox11
Sheets("impostazioni").Range("m15") = UserForm2.TextBox12
UserForm2.Label9.Caption = Sheets("impostazioni").Range("m17")
UserForm2.Label18.Caption = Sheets("impostazioni").Range("n17")
End Sub
Private Sub TextBox12_Change()
Sheets("impostazioni").Range("m16") = UserForm2.TextBox11
Sheets("impostazioni").Range("m15") = UserForm2.TextBox12
UserForm2.Label9.Caption = Sheets("impostazioni").Range("m17")
UserForm2.Label18.Caption = Sheets("impostazioni").Range("n17")
End Sub
Altro, non saprei che dirti; anche perchè, il Totale generale è corretto.
Per rendere come valore numerico il Testo reso da TextBox, ci sono più sistemi; ma, questa, è un'altra storia.
A disposizione.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 33 | Registrato il: 25/03/2014
| Città: AGEROLA | Età: 31 | Utente Junior | 2013 | | OFFLINE | |
|
| 25/07/2015 12:27 | |
perchè a te funziona a me no??? guarda qua :S
|
| | Post: 1.980 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 25/07/2015 14:51 | |
Sinceramente non saprei cosa dirti.
Posso solo ricordarti che, nel Foglio di lavoro "Impostazioni", nelle Colonne C, E, G, I, K e M, le Celle in Riga 15, 16 e 17 avranno un Formato compatibile con le esigenze della Tua Azienda.
Io ho utilizzato:
- Numero
- Posizione decomali 2
- Separatore di migliaia (.)
Poi, se ancora persistono i problemi, la mia disponibilità è per una chiaccherata in Skype; potremmo chiarire tutti i dubbi e poi condividere in Forum il risultato della nostra cllaborazione.
Quello che, molto indegnamente, mi permetto di suggerirti è di utilizzare questo Codice:
Option Explicit
Private Sub UserForm_Activate()
Application.ScreenUpdating = False
Dim x As Byte
With Worksheets("Impostazioni")
For x = 3 To 13 Step 2
Range(.Cells(15, x), .Cells(16, x)).ClearContents
Next x
End With
Application.ScreenUpdating = True
End Sub
Credo sia fondamentale.
A disposizione.
Buon fine settimana.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 36 | Registrato il: 25/03/2014
| Città: AGEROLA | Età: 31 | Utente Junior | 2013 | | OFFLINE | |
|
| 28/07/2015 10:46 | |
Ciao giuseppe e ti ringrazio ancora della tua dsponibilità. a cosa serve quel codice che mi hai allegato?? lo metto nel foglio di lavoro? |
| | Post: 1.985 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 28/07/2015 16:21 | |
Non vorrei sbagliarmi, ma, credo che, prima di procedere con una nuova Fattura, i valori inseriti nell'ultima Fattura emessa, vadano cancellati; anche se non visibili in UseForm sono parte attiva nella definizione del Totale. Il Codice si occupa esattamente di questo; va inserito nel Codice UserForm. Per evitare di fare confusione, il Codice, viene attivato all'apertura di UserForm, ma, se vengono inserite più Fatture contemporaneamente, andrà integrato nel Codice CommandButton19. Giuseppe.
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
|
|
|
|