numero progressivo e stampa

[apocrimata75]

Salve, vorrei creare una macro che aggiorni la cella "B20" con valori da quanto indicato nella cella "L4" (inizio, esempio: 1) alla cella "M4" (fine, esempio: 60).

La cella B23 contiene la formula

Codice: Seleziona tutto

=CERCA.VERT(allegati!B20;Foglio4!C4:D500;2;FALSO)

pertanto ad ogni numero di B20 corrisponde un valore diverso in B23 (valori presi dal foglio4).

e stampare i 60 fogli creati.

Esempio:

la macro inserisce il valore 1 in B20 (così si modifica da sola b23)
e stampa il foglio con

Codice: Seleziona tutto

Sub stampa()
'

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End Sub

Poi inserisce il valore 2 e stampa

ecc. ecc. fino a 60 (valore in M4).

Avete una soluzione?.

Grazie mille.

[Marius44]

E' sempre cosa buona e giusta allegare un file d'esempio, con i tentativi e gli eventuali errori.
Così come hai scritto io non ho capito nulla.

Ciao,
Mario

[apocrimata75]

Concordo, purtroppo non essendo amministratore di rete non riesco a collegarmi ad alcun sito (dropbox ecc.) per allegarlo.

[apocrimata75]

Ho risolto così

Codice: Seleziona tutto

Sub stampanew()

If [n4] <= 0 Then Exit Sub
Do While [b20] < [m4]
  [b20] = [b20] + [n4]
  DoEvents
  Call stampa
Loop
End Sub