You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Creazione di un numero progressivo univoco
[RISOLTO] Creazione di un numero progressivo univoco2018-09-16T15:31:26+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Creazione di un numero progressivo univoco

Visualizzazione 3 filoni di risposte
  • Autore
    Post
    • bg66bg66
      Partecipante
        Post totali: 60

        Ciao a tutti,

        ho necessità che quando creo un attestato( usando il bottone specifico) in F38 del foglio “Attestato” si generi un numero progressivo univoco.

        Questo valore insieme ad altri, grazie allo script di By Sal, viene scritto nel foglio di lavoro “Storico”.

        La macro da modificare è:

        [code]Sub stampaAttestato()

        Sheets(“Attestato”).Select
        If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
        Exit Sub
        Else
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        End If
        End Sub
        [\code]

        https://www.dropbox.com/s/lo43zxhdwrt1nh6/Crea%20Attestato%20V002b%2B.xlsm?dl=0

        PS Spero che non sia un ulteriore rogna il fatto che ho usato il suggerimento di By Sal e quindi in F38 vi è un formato personalizzato.

        Grazie per l’aiuto.

        BG66

        PS2: non mi compare l’opzione modifica per mettere [RISOLTO] nel thread:  Mancata copia dati con script VBA

        • Questo topic è stato modificato 1 anno, 9 mesi fa da bg66bg66.
        • Questo topic è stato modificato 1 anno, 9 mesi fa da bg66bg66.
        • Questo topic è stato modificato 1 anno, 9 mesi fa da sidsid.
      • sidsid
        Moderatore
          Post totali: 749

          Prova così:

          Sub stampaAttestato()
          
          With Sheets("Attestato")
              .Select
              If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
                  Exit Sub
              Else
                  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                  IgnorePrintAreas:=False
                  .Range("F38").Value = .Range("F38").Value + 1
              End If
          End With
          End Sub
        • bg66bg66
          Partecipante
            Post totali: 60

            Buongiorno Sid,

            è ovviamente perfetto.

            Grazie mille e alla prossima.

            PS Continuo a non avere l’opzione modifica sul primo post e quindi non riesco a mettere [RISOLTO].

            • Questa risposta è stata modificata 1 anno, 9 mesi fa da bg66bg66.
          • sidsid
            Moderatore
              Post totali: 749

              ..PS Continuo a non avere l’opzione modifica sul primo post e quindi non riesco a mettere [RISOLTO].

              Non credo un utente normale possa farlo..credo

          Visualizzazione 3 filoni di risposte
          • Il topic ‘[RISOLTO] Creazione di un numero progressivo univoco’ è chiuso a nuove risposte.