Risultati da 1 a 15 di 15

Discussione: Creare un elenco fisso da un file dinamico



  1. #1
    L'avatar di PALLAS0TTO
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    VCO
    Messaggi
    22
    Versione Office
    EXCEL 2007
    Likes ricevuti
    0
    Likes dati
    20

    Creare un elenco fisso da un file dinamico

    Buongiorno a tutti, scrivo per la prima volta, e ringrazio da subito chi mi risponderÓ:
    il problema Ŕ questo:
    ho un foglio di excel che utilizzo per il rilascio di un tipo di certificato.
    ho ricreato il certificato in excel in modo tale da compilare solo i campi che nell'allegato sono in giallo e poi dare stampa a farne uscire le due copie (pi¨ una di richiesta del certificato)
    mi servirebbero due cose:
    1 la numerazione dei certificati Ŕ progressiva, ogni volta che ne creo uno nuovo devo ricordarmi di aggiungere una unitÓ al numero precedente, non Ŕ fattibile in automatico?
    2 nel foglio "elenco" vorrei che mi facesse un elenco dei certificati rilasciati pescando i dati dal primo foglio. Ovviamente ogni volta che faccio un nuovo certificato io cambio i dati dello stesso ma vorrei che i dati inseriti nel foglio elnco non venissero cancellati. E' fattibile una cosa del genere? se fosse fattibile risolverebbe il primo problema perchŔ basterebbe fargli fare una ricerca dell'ultimo numero dell'elenco e fargli aggiungere una unitÓ

    Grazie ancora a tutti!!!
    File Allegati File Allegati

  2. #2
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Vicenza
    EtÓ
    62
    Messaggi
    2065
    Versione Office
    2016
    Likes ricevuti
    551
    Likes dati
    116

    Re: Creare un elenco fisso da un file dinamico

    Vedi se ti va bene

    Codice: 
    Private Sub CommandButton1_Click()
    A = [C3] 'NOME
    b = [C4] 'CITTA
    C = [C5] 'VIA
    d = [C6] 'CIVICO
    E = [C8] ' NATO A
    F = [C9] 'PROVINCIA
    G = [C10] ' IL
    H = [C11] ' ASSEG.DAL
    I = [C12] ' ASSEG AL
    L = [C2] ' ASSEG AL
    
    
    Dim irow As Integer
    riga = 3
    While Sheets("elenco").Cells(riga, 1) <> ""
    riga = riga + 1
    Wend
    Sheets("elenco").Cells(riga, 2) = A
    Sheets("elenco").Cells(riga, 3) = b
    Sheets("elenco").Cells(riga, 4) = C
    Sheets("elenco").Cells(riga, 5) = d
    Sheets("elenco").Cells(riga, 6) = E
    Sheets("elenco").Cells(riga, 7) = F
    Sheets("elenco").Cells(riga, 8) = G
    Sheets("elenco").Cells(riga, 9) = H
    Sheets("elenco").Cells(riga, 10) = I
    Sheets("elenco").Cells(riga, 1) = L
    
    
    
    
    MsgBox "DATI REGISTRATI"
    End Sub
    File Allegati File Allegati
    Ultima modifica fatta da:cromagno; 04/05/16 alle 19:54 Motivo: Inserito codice utilizzato...

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3202
    Versione Office
    Excel2010
    Likes ricevuti
    624
    Likes dati
    154

    Re: Creare un elenco fisso da un file dinamico

    Con un saluto a Gianfranco, posto quello che ho fatto. Utilizza i pulsanti.

    Codice: 
    Sub aggiorna()
    ur = Sheets("elenco").Cells(Rows.Count, 1).End(xlUp).Row
    If Not IsNumeric(Sheets("elenco").Cells(ur, 1)) Then
        np = 0
    Else
        np = Sheets("elenco").Cells(ur, 1).Value
    End If
    Stop
    With Sheets("2016")
        .Cells(2, 3) = np + 1 'assume numero da elenco e lo incrementa di 1
        Range("C3:C12").ClearContents 'cancella i dati nelle celle gialle
    End With
        MsgBox "Pronto per nuovo inserimento", 0, "Avviso"  'avvisa che Ŕ pronto
    End Sub
    
    
    Sub registra_stampa()
    'assume ultimo rigo del foglio elenco
    ur = Sheets("elenco").Cells(Rows.Count, 1).End(xlUp).Row
    'assume ultimo progressivo utilizzato
    npro = Sheets("2016").Cells(2, 3).Value
    If npro = "" Or npro = Sheets("elenco").Cells(ur, 1) Then
        MsgBox "Progressivo non aggiornato. Cliccare su aggiorna", 0 + 16, "Errore"
        Exit Sub
    End If
    Stop
    'assume il nome e, se vuoto, esce
    nome = Sheets("2016").Cells(3, 3)
    If nome = "" Then
        MsgBox "Impossibile registrare senza Nominativo", 0 + 16, "Errore"
        Exit Sub
    End If
    'assume gli altri dati
    With Sheets("2016")
        city = .Cells(4, 3).Text
        addr = .Cells(5, 3).Text
        nciv = .Cells(6, 3).Text
        born = .Cells(8, 3).Text
        prov = .Cells(9, 3).Text
        dtbr = .Cells(10, 3).Text
        asda = .Cells(11, 3).Text
        asal = .Cells(12, 3).Text
    End With
    'registra i dati nel Foglio elenco
    With Sheets("elenco")
        .Cells(ur + 1, 1) = npro
        .Cells(ur + 1, 2) = nome
        .Cells(ur + 1, 3) = city
        .Cells(ur + 1, 4) = addr
        .Cells(ur + 1, 5) = nciv
        .Cells(ur + 1, 6) = born
        .Cells(ur + 1, 7) = prov
        .Cells(ur + 1, 8) = dtbr
        .Cells(ur + 1, 9) = asda
        .Cells(ur + 1, 10) = asal
    End With
    'esegue la stampa
    Stop
        Sheets("2016").PrintOut
    'avviso di eseguito
    MsgBox "Registrazione e stampa eseguite.", 0, "Avviso"
    End Sub
    Fai sapere. Ciao,
    Mario
    File Allegati File Allegati
    Ultima modifica fatta da:cromagno; 04/05/16 alle 20:41 Motivo: Inserito codice utilizzato...

  5. I seguenti utenti hanno dato un "Like"


  6. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Creare un elenco fisso da un file dinamico

    Ciao a tutti,
    giusto per partecipare, ho fatto anch'io qualcosa.

    Codice: 
    Private Sub CommandButton1_Click()
        Dim wks1 As Worksheet, wks2 As Worksheet
        Set wks1 = Worksheets("2016")
        Set wks2 = Worksheets("elenco")
        wks1.Unprotect
        wks2.Unprotect
        y = wks2.Range("B" & Rows.Count).End(xlUp).Row + 1
        With wks1
            .Range("C1") = Date
            .Range("C2") = wks2.Range("A" & y)
            .Range("C3") = TextBox3
            .Range("C4") = TextBox4
            .Range("C5") = TextBox11
            .Range("C6") = TextBox5
            .Range("C8") = TextBox6
            .Range("C9") = TextBox7
            .Range("C10") = TextBox8
            .Range("C11") = TextBox9
            .Range("C12") = TextBox10
        End With
        With wks2
            .Range("A2") = 1
            .Range("B" & y) = TextBox3
            .Range("C" & y) = TextBox4
            .Range("D" & y) = TextBox11
            .Range("E" & y) = TextBox5
            .Range("F" & y) = TextBox6
            .Range("G" & y) = TextBox7
            .Range("H" & y) = TextBox8
            .Range("I" & y) = TextBox9
            .Range("J" & y) = TextBox10
        End With
        wks2.Range("A" & y) = wks2.Range("A" & y - 1) + 1
        wks1.Range("C2") = wks2.Range("A" & y)
        TextBox3 = ""
        TextBox4 = ""
        TextBox11 = ""
        TextBox5 = ""
        TextBox6 = ""
        TextBox7 = ""
        TextBox8 = ""
        TextBox9 = ""
        TextBox10 = ""
        wks1.Protect
        wks2.Protect
        Set wks1 = Nothing
        Set wks2 = Nothing
    End Sub
    File Allegati File Allegati
    Ultima modifica fatta da:ges; 04/05/16 alle 23:15 Motivo: Inserita riga di codice omessa
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  7. I seguenti utenti hanno dato un "Like"


  8. #5
    L'avatar di PALLAS0TTO
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    VCO
    Messaggi
    22
    Versione Office
    EXCEL 2007
    Likes ricevuti
    0
    Likes dati
    20

    Re: Creare un elenco fisso da un file dinamico

    che dire, premesso che il mio VBA Ŕ pari a zero (ma dove si potrebbe impararne almeno una base??) e che quindi delle formule inserite non ci ho capito niente, siete stati FANTASTICI!!!

    alcune personali analisi:
    @GIANFRANCO: alla tua ho aggiunto una formula nella casella C2 "=CONTA.NUMERI(elenco!A:A)+1" in modo tale che mi aggiorni in automatico il progressivo. Se possibile farei una piccola aggiunta: si pu˛ modificare il pulsante registra e farlo diventare uno "stampa e registra"? nel file che avevo allegato l'area di stampa era giÓ impostata.

    @MARIUS44: sulla tua versione ho qualche difficoltÓ, nel senso che quando clicco il pulsante aggiorna mi apre una pagina di VBA dove c'Ŕ una freccina gialla che punta alla parola Stop anch'essa in giallo. Lý mi blocco e non so come andare avanti.

    @GES: all'interno della maschera creata se mi sposto con il tabulatore o con il tasto invio mi salta l'inserimento della via. inoltre il numero della via non Ŕ allineato con la via stessa, si potrebbe sistemare la cosa? Se posso aggiungerei un'ulteriore richiesta: visto che il periodo di assegnazione nel 95% dei casi Ŕ sempre da gennaio a dicembre, c'Ŕ la possibilitÓ che compaiano giÓ in automatico queste due stringhe di testo nella maschera di inserimento, con l'eventuale possibilitÓ di modificarle direttamente dalla maschera per l'altro 5% dei casi che si presenteranno??


    grazie ancora a tutti!!!

  9. #6
    L'avatar di PALLAS0TTO
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    VCO
    Messaggi
    22
    Versione Office
    EXCEL 2007
    Likes ricevuti
    0
    Likes dati
    20

    Re: Creare un elenco fisso da un file dinamico

    dimenticavo, come si fa a mettere davanti al titolo la dicitura [RISOLTO].
    Grazie

  10. #7
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Creare un elenco fisso da un file dinamico

    ciao
    Vai nella barra dei menu, situata all’inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegliere “Segna questo Thread come risolto”

  11. #8
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    1167
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570

    Re: Creare un elenco fisso da un file dinamico

    scusate l intromissione.....sono curioso di sapere come si costruisce la maschera di inserimento....qualcuno me lo spiega o posta un link dove potrei trovare l argomento?

  12. #9
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Creare un elenco fisso da un file dinamico

    Citazione Originariamente Scritto da Danilo Fiorini Visualizza Messaggio
    scusate l intromissione.....sono curioso di sapere come si costruisce la maschera di inserimento....qualcuno me lo spiega o posta un link dove potrei trovare l argomento?
    Ciao Danilo
    La tua domanda rischia di non essere vista da tutti, ti consiglio di iniziare una nuova discussione
    Un saluto

  13. #10
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    1167
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570

    Re: Creare un elenco fisso da un file dinamico

    ok.....grazie

  14. #11
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    1167
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570

    Re: Creare un elenco fisso da un file dinamico

    gerardo sto guardando il video 31 sulla creazione delle userform io ho Excel 2007 e non trovo il pulsante modulo.....Ŕ previsto per questa versione?

  15. #12
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3202
    Versione Office
    Excel2010
    Likes ricevuti
    624
    Likes dati
    154

    Re: Creare un elenco fisso da un file dinamico

    per quanto attiene le mie macro, non c'Ŕ un solo stop ma diversi; cancellali tutti.
    Fai cosý: premi contemporaneamente ALT+F11 e si apre una maschera dove a destra vedrai un po' di codice. Passalo tutto e quando trovi uno stop cancellalo e vai avanti. Quindi chiudi l'Editor (dalla X a destra del riquadro) e prova a far funzionare il tutto.
    Ciao,
    Mario

  16. #13
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Vicenza
    EtÓ
    62
    Messaggi
    2065
    Versione Office
    2016
    Likes ricevuti
    551
    Likes dati
    116

    Re: Creare un elenco fisso da un file dinamico

    ciao
    per la cella C2
    io ho messo( avevo sbagliato cella nel file )

    Codice: 
    =elenco!N2+1
    per la stampa

    Codice: 
     Private Sub CommandButton1_Click()
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
    A = [C3] 'NOME
    b = [C4] 'CITTA
    C = [C5] 'VIA
    d = [C6] 'CIVICO
    E = [C8] ' NATO A
    F = [C9] 'PROVINCIA
    G = [C10] ' IL
    H = [C11] ' ASSEG.DAL
    I = [C12] ' ASSEG AL
    L = [C2] ' ASSEG AL
    
    Dim irow As Integer
    riga = 3
    While Sheets("elenco").Cells(riga, 1) <> ""
    riga = riga + 1
    Wend
    Sheets("elenco").Cells(riga, 2) = A
    Sheets("elenco").Cells(riga, 3) = b
    Sheets("elenco").Cells(riga, 4) = C
    Sheets("elenco").Cells(riga, 5) = d
    Sheets("elenco").Cells(riga, 6) = E
    Sheets("elenco").Cells(riga, 7) = F
    Sheets("elenco").Cells(riga, 8) = G
    Sheets("elenco").Cells(riga, 9) = H
    Sheets("elenco").Cells(riga, 10) = I
    Sheets("elenco").Cells(riga, 1) = L
    
    MsgBox "DATI REGISTRATI"
    
    End Sub
    Ciao

  17. #14

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Creare un elenco fisso da un file dinamico

    Citazione Originariamente Scritto da PALLAS0TTO Visualizza Messaggio
    c...

    @GES: all'interno della maschera creata se mi sposto con il tabulatore o con il tasto invio mi salta l'inserimento della via. inoltre il numero della via non Ŕ allineato con la via stessa, si potrebbe sistemare la cosa? Se posso aggiungerei un'ulteriore richiesta: visto che il periodo di assegnazione nel 95% dei casi Ŕ sempre da gennaio a dicembre, c'Ŕ la possibilitÓ che compaiano giÓ in automatico queste due stringhe di testo nella maschera di inserimento, con l'eventuale possibilitÓ di modificarle direttamente dalla maschera per l'altro 5% dei casi che si presenteranno??
    ...
    Ciao,
    vedi se ho compreso le tue richieste.
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  18. I seguenti utenti hanno dato un "Like"


  19. #15
    L'avatar di PALLAS0TTO
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    VCO
    Messaggi
    22
    Versione Office
    EXCEL 2007
    Likes ricevuti
    0
    Likes dati
    20

    Re: Creare un elenco fisso da un file dinamico

    gi¨ il cappello davanti a tutti Voi!!

    grazie ancora!!!

Discussioni Simili

  1. Elenco dinamico con intervalli collocati su altro file
    Di Webmaximp nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 16/09/16, 12:53
  2. elenco dinamico
    Di nrc nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 15/09/16, 18:26
  3. Creare elenco
    Di Il Pirata nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 23/08/16, 11:12
  4. [Risolto] Creazione di un elenco dinamico e relativi controlli
    Di Nicolabt nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 04/02/16, 20:26
  5. Elenco dinamico su confronto dati
    Di Maxy nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 29/12/15, 10:27

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •