Modifica macro

[ahidai]

Un saluto a tutti. E' un po che non frequento il forum e avrei bisogno di un aiuto per modificare questa macro:

Codice: Seleziona tutto

Sub STAMPA()
'
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'stampa il range impostato in s1
'If [s1] <= 0 Then Exit Sub

Dim max

    max = Range("NUM_DATA").Value
   
    For i = 1 To max
       Range("SCELTA").Value = Range("DATA").Cells(i, 1).Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next i
   
End Sub

Ho pensato di modificarla in questo modo:

Codice: Seleziona tutto

Sub STAMPA()
'
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'stampa il range impostato in s1
'If [s1] <= 0 Then Exit Sub

Dim max
Dim max2

    max = Range("NUM_DATA").Value
   
    For i = 1 To max
       Range("SCELTA").Value = Range("DATA").Cells(i, 1).Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next i
   
    max2 = Range("NUM_NUMERO").Value
   
    For i = 1 To max2
      Range("SCELTA2").Value = Range("NUMERO").Cells(i, 1).Value
      ActiveWindow.SelectedSheets.PrintOut Copies:=1
     Next i   

End Sub

In pratica avevo bisogno che mi stampava su 10 fogli 2 dati diversi, purtroppo come ho pensato io di modificarla mi stampa i 2 dati in questo modo: il primo gruppo di di dati sui primi 10 fogli e il secondo gruppo di dati su altri 10 fogli.

Spero di essere stato chiaro e con l'occasione auguro a tutti un buon pomeriggio.

[Flash30005]

La tua esposizione non è molto chiara e leggere una macro che non funziona per farla funzionare diventa un problema quando, forse, il problema non sussiste.

L'unica cosa che ho capito è che:
1) hai una serie di dati (o range di dati) su un foglio
2) hai una seconda serie di dati in un secondo foglio
3) vorresti stampare con una macro la serie1 e la serie2 nello stesso foglio.

se è così dovrai crearti (con macro) un riepilogo cioè mettere le due serie di dati, che dovranno essere stampati insieme, in unico foglio e poi stampare questo riepilogo

Ciao