Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

problema macro excel Opzioni
sly000
Inviato: Sunday, December 22, 2013 1:28:45 PM
Rank: Member

Iscritto dal : 12/11/2013
Posts: 13
Ho un nuovo problema....
Ho modificato il file inserendo anche alcune INPUTBOX...funziona tutto ma quando arrivo ad immettere il numero di copie da stampare se non inserisco un valore o premo ANNULlA...mi da un ERRORE RUN TIME 13....
a10n11
Inviato: Monday, December 23, 2013 7:43:58 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
Salve
va in errore in quanto la variabile con il comando "Annulla" nella Inputbox non assume alcun valore.
prova con questa modifica:

x = InputBox("numero copie?", "immetti numero copie")
If x=0 then exit sub


nb. la riga in rosso subito dopo la chiamata della Inputbox
saluti
Giap

sly000
Inviato: Monday, December 23, 2013 9:27:16 PM
Rank: Member

Iscritto dal : 12/11/2013
Posts: 13
Salve..
Fatto ma mi continua a dare l'errore (RUN TIME 13)...QUANDO DIGITO 0 NELL' InputBox non mi da l'errore ma se digito ANNULLA o non metto nessuno valore mi da l'errore...
Saluti
Gae
a10n11
Inviato: Tuesday, December 24, 2013 2:51:39 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
avendo dichiarato la variabile x come Long, non accetta un valore diverso da un valore numerico.
quindi devi modificare le tue macro aggiungendo in ciscuna macro che gestisce la variabile X le righe segnate in rosso.

Private Sub cmdPrintALL_Click()
Dim a As Integer
Dim p1, p2 As Integer
Dim MyItem As String
Dim nLab As Integer
Dim x as long

Select Case Prov
Case "AV"
p1 = 1
p2 = 50
Case "BN"
p1 = 51
p2 = 72
Case "CE"
p1 = 73
p2 = 122
Case "NA"
p1 = 123
p2 = 186
Case "SA"
p1 = 187
p2 = 276
End Select

nLab = p2 - p1 + 1

If MsgBox("Questa scelta stamperà " & nLab & " etichette." & vbCr & "Confermi la scelta ?", vbQuestion + vbYesNo, "Attenzione. Richiesta di stampa di allestimento") = vbYes Then

For a = p1 To p2
LabText = Cells.Range("K" & a).Value
Worksheets("label").Range("A3").Value = LabText
ThisWorkbook.Sheets("label").Select

On Error GoTo ErrHand
x = InputBox("numero copie?", "immetti numero copie")
ActiveWindow.SelectedSheets.PrintOut Copies:=x, Collate:=True
'----------------------------------------------

''MsgBox "Stampo " & LabText
ThisWorkbook.Sheets("av").Select
Cells.Range("A1").Select
Next
End If
ErrHand:
If Err.Number = 13 Then Exit Sub

End Sub

Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.