]Ciao a tutti, avrei un problema da risolvere...
Ho un file excel contenente una macro che vorrei modificare...
Avrei bisogno che la mia macro mi chiedesse il numero di etichette da stampare ogni volta che scegliessi la destinazione..
Mi aiutate??? non so proprio come fare....
Grazie Anticipato!!!

Option Explicit
Dim LabText As String
Dim nElem As Integer
Dim Prov As String






Private Sub cmdAV_Click()
Dim a As Integer
Dim MyItem As String

lst1.Clear

For a = 1 To 50
MyItem = Cells.Range("K" & a).Value
lst1.AddItem MyItem
Next a
lst1.AddItem " "

cmdPrintOne.Caption = "Seleziona un elemento dalla lista"
cmdPrintALL.Caption = "Allestimento completo AVELLINO"
Prov = "AV"

nElem = 50
End Sub

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

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
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
''MsgBox "Stampo " & LabText
ThisWorkbook.Sheets("av").Select
Cells.Range("A1").Select
Next

End If

End Sub

Private Sub cmdPrintOne_Click()

Worksheets("label").Range("A3").Value = LabText
ThisWorkbook.Sheets("label").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ThisWorkbook.Sheets("av").Select
Cells.Range("A1").Select

End Sub


Private Sub cmdProvBN_Click()
Dim a As Integer
Dim MyItem As String

lst1.Clear
For a = 51 To 72
MyItem = Cells.Range("K" & a).Value
lst1.AddItem MyItem
Next a
lst1.AddItem " "
cmdPrintOne.Caption = "Seleziona un elemento dalla lista"
cmdPrintALL.Caption = "Allestimento completo BENEVENTO"
Prov = "BN"
End Sub

Private Sub cmdProvCE_Click()
Dim a As Integer
Dim MyItem As String

lst1.Clear
For a = 73 To 122
MyItem = Cells.Range("K" & a).Value
lst1.AddItem MyItem
Next a
lst1.AddItem " "
cmdPrintOne.Caption = "Seleziona un elemento dalla lista"
cmdPrintALL.Caption = "Allestimento completo CASERTA"
Prov = "CE"
End Sub

Private Sub cmdProvNA_Click()
Dim a As Integer
Dim MyItem As String

lst1.Clear
For a = 123 To 186
MyItem = Cells.Range("K" & a).Value
lst1.AddItem MyItem
Next a
lst1.AddItem " "
cmdPrintOne.Caption = "Seleziona un elemento dalla lista"
cmdPrintALL.Caption = "Allestimento completo NAPOLI"
Prov = "NA"
End Sub

Private Sub cmdProvSA_Click()
Dim a As Integer
Dim MyItem As String

lst1.Clear
For a = 187 To 276
MyItem = Cells.Range("K" & a).Value
lst1.AddItem MyItem
Next a
lst1.AddItem " "
cmdPrintOne.Caption = "Seleziona un elemento dalla lista"
cmdPrintALL.Caption = "Allestimento completo SALERNO"
Prov = "SA"
End Sub

Private Sub lst1_Click()
cmdPrintOne.Caption = "Stampa " & lst1.Text
LabText = lst1.Text

End Sub

salve
non è chiaro il senso della domanda.
Il numero di etichette è già spcificato all'interno della macro.
qui:

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

saluti
Giap

---

salve
se non ho capito male:

prendiamo la seguente macro:

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

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
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
''MsgBox "Stampo " & LabText
ThisWorkbook.Sheets("av").Select
Cells.Range("A1").Select
Next

End If

End Sub


prova a modifcarla com segue:



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

'--------------parte modificata
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

End Sub

saluti
Giap

---

salve
l'errore dipende dal fatto che con Option explicit tutte le variabili devono essere dichiarate, pertanto in tutte le macro
che devi modificare devi dichiarare la variabile X
Dim x as long

saluti
Giap

---

salve
l'errore indica che il valore che assegni alla variabile di tipo long non è un valore numerico.
per capire dovresti mostare tutto il codice della macro.
saluti
Giap

---

salve
per capire il problema, ho bisogno di vedere tutto il codice della macro, altrimenti si va solo per tentativi.
saluti
Giap

---

con un semplice copia/incolla
saluti
Giap

---

salve
non vedo problemi particolari.
quando ti appare l'errore, cliccando sul pulsante "debug" quale riga risulta evidenziata in giallo?
saluti
Giap

---

salve
ti da' si l'errore, in questa routine non hai inizializzato la variabile X.

devi aggiungere la riga che valorizza la variabile

x = InputBox("Numero Copie?", "Immetti Numero Copie")

saluti
Giap

---

salve

Private Sub cmdPrintOne_Click()
Dim x As Long

Worksheets("label").Range("A3").Value = LabText
ThisWorkbook.Sheets("label").Select
x = InputBox("Numero Copie?", "Immetti Numero Copie")
ActiveWindow.SelectedSheets.PrintOut Copies:=x, Collate:=True

ThisWorkbook.Sheets("av").Select
Cells.Range("A1").Select

End Sub

saluti
Giap

---