Ma delle formule che ti ho messo nel foglio NewLists che uso ne hai fatto?
(vedi https://rapidshare.com/share/901A4192D8 ... BBB4632DF)
Ciao
Moderatori: Anthony47, Flash30005
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim cQt
If IsNumeric(TextBox2.Value) Then cQt = Int(CLng(TextBox2.Value))
If (IsError(cQt)) Or cQt <= 0 Or cQt > 100 Then
Cancel = True
TextBox2.SelStart = 0
TextBox2.SelLength = 99
Else
TextBox2.Value = cQt
If IsNumeric(ComboBox9.Value) Then
TextBox3.Value = cQt * CDbl(ComboBox9.Value)
Else
TextBox3.Value = NullString
End If
End If
End Sub
Anthony47 ha scritto:Questa discussione era finita abbandonata nelle retrovie, sono contento che sei andato avanti da solo...
Purtroppo anche "stasera" butta male (cioe' butta tardi...)
Torna a Applicazioni Office Windows
| copia celle adiacenti da tre fogli Autore: Gianca532011 |
Forum: Applicazioni Office Windows Risposte: 10 |
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Conta le celle colorate / migliore peggiore Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 8 |
Visitano il forum: Nessuno e 16 ospiti