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

Ti conviene spostare la richiesta nella sezione dedicata ad Office.