Risultati da 1 a 27 di 27

Discussione: Ultimo sforzo Archivio



  1. #1
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Ultimo sforzo Archivio

    Sull'onda dell'entusiasmo e prendendo spunto da quanto mi ha chiesto Klaudios (ciao) nella discussione Rubrica, ho pensato di far cosa gradita a qualcuno, ed eccovi il mio ultimo sforzo.

    https://www.dropbox.com/s/x0paxxkbsj...ivio.xlsm?dl=0

    Prometto che non romperò più per un po' di tempo :243:

    P.S.
    come al solito ognuno è libero di farne ciò che gli pare.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  2. I seguenti 4 utenti hanno dato un "Like" a Baloon_50 per questo post:


  3. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Ciao Baloon,
    un altro bel lavoro, grazie per la condivisione.

    P.S. - Per me puoi "rompere" pure quando vuoi .... :288: questi tuoi lavori sono utili oltre che per se stessi anche perché sono spunti per ulteriori sviluppi.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao Baloon,
    un altro bel lavoro, grazie per la condivisione.

    P.S. - Per me puoi "rompere" pure quando vuoi .... :288: questi tuoi lavori sono utili oltre che per se stessi anche perché sono spunti per ulteriori sviluppi.
    Ges per i complimenti; per rompere ancora rimango in attesa di qualche spunto da parte di qualcuno (come per Klaudios) :242:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #4
    L'avatar di klaudios
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Taranto
    Messaggi
    58
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    3
    ...ciao Baloon, eccomi . Ti ringrazio non una volta, ma tante per il tuo impegno, ma non riesco a vedere nulla.

    mi dice link non trovato

  6. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da klaudios Visualizza Messaggio
    ...ciao Baloon, eccomi . Ti ringrazio non una volta, ma tante per il tuo impegno, ma non riesco a vedere nulla.

    mi dice link non trovato
    Non riesco ad allegare, guarda nei messaggi privati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #6
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    423
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    637
    Ciao Baloon,
    al link che hai postato manca allegato...
    Windows8.1 office 2010

  8. #7
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Ciao Baloon,
    al link che hai postato manca allegato...
    ciao Vincenzo vai su questa discussione :

    http://www.forumexcel.it/forum/7-dom...riallego-tutto

    ho risistemato dropbox e mi sono successi casotti. eheheh

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  9. #8
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    423
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    637
    Ok fatto.....
    Grazie
    Windows8.1 office 2010

  10. #9
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata a Tutti.

    @ Baloon
    Mi chiedevo se non poteva essere interessante, e utile, integrare il Tuo ottimo Lavoro con il calcolo del Codice Fiscale.
    Anche se l'unico Codice Fiscale valido è quello ufficiale, premesso che quello che propongo non è "tutta farina del mio sacco" (mi sono limimitato ad adattare il File alle mie esigenze) quello calcolato con questa Function è abbastanza attendibile:
    Codice: 
    Public Function CODFISC(Cogn, Nome, Data, SS, CodCom)
    Dim cognome As String
    Dim cons As String * 21
    Dim Pari1 As String * 26
    Dim Pari11 As String * 10
    Dim dispari As String * 52
    Dim cfp As String
    Dim riempie As String * 3
    Dim s As Integer
    Dim p As Integer
    fi1 = Cogn
    fi2 = Nome
    fi3 = Data
    fi4 = SS
    fi5 = CodCom
    cons = "BCDFGHLMNPQRSTVWKXYJZ"
    Voca = "AEIOU"
    Mese = "ABCDEHLMPRST"
    Pari1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Pari11 = "0123456789"
    dispari = "0100050709131517192102041820110306081214161022252423"
    riempie = "XXX"
    fi1 = UCase(Trim(fi1))
    fi2 = UCase(Trim(fi2))
    fi4 = UCase(Trim(fi4))
    lu1 = fi1
    nu1 = Len(lu1)
    lu2 = fi2
    nu2 = Len(lu2)
    cognome = " "
    For i = 1 To nu1 Step 1
        co = Mid(lu1, i, 1)
        For n = 1 To Len(cons)
            If co = Mid(cons, n, 1) Then
                cognome = cognome + co
            End If
        Next n
    Next i
    hu11 = Trim(cognome)
    nu11 = Len(hu11)
    cognome = " "
    If nu11 < 3 Then
        For i = 1 To nu1 Step 1
            co = Mid(lu1, i, 1)
            For n = 1 To Len(Voca)
                If co = Mid(Voca, n, 1) Then
                    cognome = cognome + co
                End If
            Next n
        Next i
    End If
    cognome = Trim(cognome)
    lu1 = hu11 + cognome
    lu1 = Left(lu1, 3)
    lu1 = Trim(lu1)
    nu11 = Len(lu1)
    If nu11 < 3 Then
        lu1 = lu1 + Mid(riempie, 1, (3 - nu11))
    End If
    Nome = " "
    cont = 0
    For i = 1 To nu2 Step 1
        co = Mid(lu2, i, 1)
        For n = 1 To Len(cons)
            If co = Mid(cons, n, 1) Then
                cont = cont + 1
            End If
        Next n
    Next i
    coris = " "
    If cont > 3 Then
        Nome = " "
        cont = 0
        For i = 1 To nu2 Step 1
            co = Mid(lu2, i, 1)
            For n = 1 To Len(cons)
                If co = Mid(cons, n, 1) Then
                    cont = cont + 1
                    If cont = 2 Then
                        coris = co
                    Else
                        Nome = Trim(Nome + co)
                    End If
                End If
            Next n
        Next i
    Else
        Nome = " "
        cont = 0
        For i = 1 To nu2 Step 1
            co = Mid(lu2, i, 1)
            For n = 1 To Len(cons)
                If co = Mid(cons, n, 1) Then
                    Nome = Trim(Nome + co)
                End If
            Next n
        Next i
    End If
    hu11 = Trim(hu11)
    hu11 = Mid(Nome, 1, 3)
    nu11 = Len(hu11)
    If nu11 < 3 Then
        If coris = "" Then
            hu11 = hu11 + Trim(coris)
        End If
    End If
    nu11 = Len(Trim(hu11))
    If nu11 < 3 Then
        Nome = " "
        For i = 1 To nu2 Step 1
            co = Mid(lu2, i, 1)
            For n = 1 To Len(cons)
                If co = Mid(Voca, n, 1) Then
                    Nome = Trim(Nome + co)
                End If
            Next n
        Next i
    End If
    lu2 = Trim(Mid(hu11 + Nome, 1, 3))
    If Len(lu2) < 3 Then
        lu2 = lu2 + Mid(riempie, 1, (3 - Len(lu2)))
    End If
    giorno = Left(fi3, 2)
    SS = Mid(fi3, 4, 2)
    gi = LTrim(giorno)
    If fi4 = "F" Then
        g = Val(fi3) + 40
        gi = LTrim(Str(g))
    End If
    anno = Right(fi3, 2)
    Ms = Mid(Mese, SS, 1)
    CF = lu1 + lu2 + anno + Mid(Mese, SS, 1) + gi + fi5
    a = 0
    For i = 2 To 14 Step 2
        cfp = Mid(CF, i, 1)
        If InStr(Pari1, cfp) > 0 Then
            a = a + InStr(Pari1, cfp) - 1
        Else
            a = a + InStr(Pari11, cfp) - 1
        End If
    Next
    b = 0
    ric = 0
    For i = 1 To 15 Step 2
        cfp = Mid(CF, i, 1)
        If InStr(Pari1, cfp) > 0 Then
            ric = InStr(Pari1, cfp) * 2 - 1
            b = b + Val(Mid(dispari, ric, 2))
        Else
            ric = InStr(Pari11, cfp) * 2 - 1
            b = b + Val(Mid(dispari, ric, 2))
        End If
    Next
    c = a + b
    d = Int(c / 26)
    e = c - d * 26
    finale = Mid(Pari1, e + 1, 1)
    CF = CF + finale
    CODFISC = CF
    End Function
    In allegato il File.

    http://www.filedropper.com/codicefiscale

    I Campi da compilare sono solo quelli evidenziati in "Rosso".


    A disposizione

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  11. I seguenti 2 utenti hanno dato un "Like" a GiuseppeMN per questo post:


  12. #10

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982
    Ottimo codice. Io integrerei il foglio con i codici comunali (due campi: comune - codcomune) e richiamerei il comune per la compilazione

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  13. #11
    L'avatar di klaudios
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Taranto
    Messaggi
    58
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    3
    :208: sei un genio Baloon_50. GRAZIE!

  14. #12
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da GiuseppeMN Visualizza Messaggio
    Buona giornata a Tutti.

    @ Baloon
    Mi chiedevo se non poteva essere interessante, e utile, integrare il Tuo ottimo Lavoro con il calcolo del Codice Fiscale.
    Anche se l'unico Codice Fiscale valido è quello ufficiale, premesso che quello che propongo non è "tutta farina del mio sacco" (mi sono limimitato ad adattare il File alle mie esigenze) quello calcolato con questa Function è abbastanza attendibile:
    Codice: 
    Public Function CODFISC(Cogn, Nome, Data, SS, CodCom)
    Dim cognome As String
    Dim cons As String * 21
    Dim Pari1 As String * 26
    Dim Pari11 As String * 10
    Dim dispari As String * 52
    Dim cfp As String
    Dim riempie As String * 3
    Dim s As Integer
    Dim p As Integer
    fi1 = Cogn
    fi2 = Nome
    fi3 = Data
    fi4 = SS
    fi5 = CodCom
    cons = "BCDFGHLMNPQRSTVWKXYJZ"
    Voca = "AEIOU"
    Mese = "ABCDEHLMPRST"
    Pari1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Pari11 = "0123456789"
    dispari = "0100050709131517192102041820110306081214161022252423"
    riempie = "XXX"
    fi1 = UCase(Trim(fi1))
    fi2 = UCase(Trim(fi2))
    fi4 = UCase(Trim(fi4))
    lu1 = fi1
    nu1 = Len(lu1)
    lu2 = fi2
    nu2 = Len(lu2)
    cognome = " "
    For i = 1 To nu1 Step 1
        co = Mid(lu1, i, 1)
        For n = 1 To Len(cons)
            If co = Mid(cons, n, 1) Then
                cognome = cognome + co
            End If
        Next n
    Next i
    hu11 = Trim(cognome)
    nu11 = Len(hu11)
    cognome = " "
    If nu11 < 3 Then
        For i = 1 To nu1 Step 1
            co = Mid(lu1, i, 1)
            For n = 1 To Len(Voca)
                If co = Mid(Voca, n, 1) Then
                    cognome = cognome + co
                End If
            Next n
        Next i
    End If
    cognome = Trim(cognome)
    lu1 = hu11 + cognome
    lu1 = Left(lu1, 3)
    lu1 = Trim(lu1)
    nu11 = Len(lu1)
    If nu11 < 3 Then
        lu1 = lu1 + Mid(riempie, 1, (3 - nu11))
    End If
    Nome = " "
    cont = 0
    For i = 1 To nu2 Step 1
        co = Mid(lu2, i, 1)
        For n = 1 To Len(cons)
            If co = Mid(cons, n, 1) Then
                cont = cont + 1
            End If
        Next n
    Next i
    coris = " "
    If cont > 3 Then
        Nome = " "
        cont = 0
        For i = 1 To nu2 Step 1
            co = Mid(lu2, i, 1)
            For n = 1 To Len(cons)
                If co = Mid(cons, n, 1) Then
                    cont = cont + 1
                    If cont = 2 Then
                        coris = co
                    Else
                        Nome = Trim(Nome + co)
                    End If
                End If
            Next n
        Next i
    Else
        Nome = " "
        cont = 0
        For i = 1 To nu2 Step 1
            co = Mid(lu2, i, 1)
            For n = 1 To Len(cons)
                If co = Mid(cons, n, 1) Then
                    Nome = Trim(Nome + co)
                End If
            Next n
        Next i
    End If
    hu11 = Trim(hu11)
    hu11 = Mid(Nome, 1, 3)
    nu11 = Len(hu11)
    If nu11 < 3 Then
        If coris = "" Then
            hu11 = hu11 + Trim(coris)
        End If
    End If
    nu11 = Len(Trim(hu11))
    If nu11 < 3 Then
        Nome = " "
        For i = 1 To nu2 Step 1
            co = Mid(lu2, i, 1)
            For n = 1 To Len(cons)
                If co = Mid(Voca, n, 1) Then
                    Nome = Trim(Nome + co)
                End If
            Next n
        Next i
    End If
    lu2 = Trim(Mid(hu11 + Nome, 1, 3))
    If Len(lu2) < 3 Then
        lu2 = lu2 + Mid(riempie, 1, (3 - Len(lu2)))
    End If
    giorno = Left(fi3, 2)
    SS = Mid(fi3, 4, 2)
    gi = LTrim(giorno)
    If fi4 = "F" Then
        g = Val(fi3) + 40
        gi = LTrim(Str(g))
    End If
    anno = Right(fi3, 2)
    Ms = Mid(Mese, SS, 1)
    CF = lu1 + lu2 + anno + Mid(Mese, SS, 1) + gi + fi5
    a = 0
    For i = 2 To 14 Step 2
        cfp = Mid(CF, i, 1)
        If InStr(Pari1, cfp) > 0 Then
            a = a + InStr(Pari1, cfp) - 1
        Else
            a = a + InStr(Pari11, cfp) - 1
        End If
    Next
    b = 0
    ric = 0
    For i = 1 To 15 Step 2
        cfp = Mid(CF, i, 1)
        If InStr(Pari1, cfp) > 0 Then
            ric = InStr(Pari1, cfp) * 2 - 1
            b = b + Val(Mid(dispari, ric, 2))
        Else
            ric = InStr(Pari11, cfp) * 2 - 1
            b = b + Val(Mid(dispari, ric, 2))
        End If
    Next
    c = a + b
    d = Int(c / 26)
    e = c - d * 26
    finale = Mid(Pari1, e + 1, 1)
    CF = CF + finale
    CODFISC = CF
    End Function
    In allegato il File.

    http://www.filedropper.com/codicefiscale

    I Campi da compilare sono solo quelli evidenziati in "Rosso".


    A disposizione

    Giuseppe
    Sì potrebbe essere un'idea ma nei casi di omonimia come ci si comporta?
    Diciamo che sono casi rari però esistono.
    Comunque prova ad integrare il file così vediamo cosa succede :261:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. #13
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Ottimo codice. Io integrerei il foglio con i codici comunali (due campi: comune - codcomune) e richiamerei il comune per la compilazione

    Inviato dal mio GT-I9301I utilizzando Tapatalk
    Scusa Rubik non capisco la domanda.
    I comuni ci sono già tutti con relativo cap e sigla e sono inseribili nella form tramite combo !!!
    devi solo scoprire il foglio per poterli vedere.
    Se poi vuoi aggiungere altri campi (codice comunale) basta integrarli nel foglio e nel codice. A me sembra una forzature perchè questo per quanto mi riguarda è un archivio di persone fisiche o società.
    :261:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da klaudios Visualizza Messaggio
    :208: sei un genio Baloon_50. GRAZIE!
    Grazie Klaudios :242:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  17. #15
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata, Rubik;
    grazie della Tua Attenzione.

    @ Rubik72, scrive:
    Io integrerei il foglio con i codici comunali (due campi: comune - codcomune) ...
    È sempre un piacere leggerti; nel caso in cui ti riferisca al File allegato in Risposta #9, ero convinto di aver inserito i due Campi
    - Comune
    - Cod: Comune
    nell'immagine in allegato ho cercato di evidenziare i due campi in entrambi i Fogli di lavoro:
    - Codice Fiscale
    - Comuni



    Per quanto riguarda:
    @ Rubik72, scrive:
    ... richiamerei il comune per la compilazione.
    In realtà, nel File originale ho utilizzato UserForm per ottenere quanto, giustamente, proponi.
    Nel File allegato in Risposta #9 ho ritenuto troppo impegnativo gestire più di ottomila record con la Funzione "Convalida dati".


    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  18. #16
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata Ballon.

    @ Baloon_50, scrive:
    ... ma nei casi di omonimia come ci si comporta?
    Diciamo che sono casi rari però esistono.
    Questo è il motivo per cui ho precisato:

    @ GiuseppeMN, scrive:
    ... Anche se l'unico Codice Fiscale valido è quello ufficiale ...
    Anche se ritengo veramente improbabile che una Persona abbia:
    - stesso Cognome
    - stesso Nome
    - stesso Sesso (consirando, ad esempio, il Nome "Andrea")
    - stessa Data di nascita
    - Stesso Comune di nascita

    @ Baloon_50, scrive:
    Comunque prova ad integrare il file così vediamo cosa succede
    Grazie Baloon, prima di mettere mano al Tuo File, mi serviva proprio il Tuo placet. Solo Devi / Dovete avere un pò di pazienza; in questo momento vorrei cercare di completare alcune Procedure che ho in "cantiere".


    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  19. #17

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982
    Ragazzi scusate, mi sono espresso male.
    A parte il fatto che è un piacere leggere i vostri lavori (e soprattutto studiarli), leggendo la routine di GiuseppeMN mi sono accorto che "vuole" il codice comunale mentre nelle form solitamente si inserisce il comune, poi sta al codice ricercare il relativo codice comune. Nulla toglie che sono lavori eccezionali da utilizzare e per studio.

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  20. #18
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Baloon;
    come promesso ho cercato di integrare il calcolo del Codice fiscale nel Tuo File proposto in #1.

    Prima di partire con le modifiche ho eseguito l'analisi di fattabilità; la mia opinione è che l'operazione comporterebbe lo stravolgimento del Tuo Programma; voglio dire, dovrei modificare:
    - l'inserimento del "Cognome e Nome" in due Campi distinti; Campo Cognome, Campo Nome
    - aggiungere il Campo Sesso
    - integrare i Campi dei Comuni con i Campi per la compilazione del Codice fiscale

    Credo non valga la pena intervenire in modo così invasivo su una Procedura già così ben strutturata.

    Chi desidera la complizione automatica del Codice fiscale, dovrà gestirlo con altro Foglio di lavoro gestito manualmente o, meglio, con UserForm dedicato.
    Nel caso ci sia un concreto interesse per questo tipo di gestione, sono disposnibile a proporre il File proposto in Risposta #9 completato con UserForm.


    A disposizione.


    @ Rubik72:
    credo che prenderò in seria considerazione le Tue giuste osservazioni per il miglioramento della Function.
    In ogni caso considera che l'inserimento:
    - della Provincia
    - del C.A.P.
    - del Codice Comune
    sono tutti affidati alla Funzione CERCA.VERT inserita in ognuno di questi Campi.
    Voglio dire, una volta definito il Comune di nascita, tutti i Campi sopra citati, vengono compilati in automatico.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  21. #19
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da GiuseppeMN Visualizza Messaggio
    Buona sera, Baloon;
    come promesso ho cercato di integrare il calcolo del Codice fiscale nel Tuo File proposto in #1.

    Prima di partire con le modifiche ho eseguito l'analisi di fattabilità; la mia opinione è che l'operazione comporterebbe lo stravolgimento del Tuo Programma; voglio dire, dovrei modificare:
    - l'inserimento del "Cognome e Nome" in due Campi distinti; Campo Cognome, Campo Nome
    - aggiungere il Campo Sesso
    - integrare i Campi dei Comuni con i Campi per la compilazione del Codice fiscale

    Credo non valga la pena intervenire in modo così invasivo su una Procedura già così ben strutturata.

    Chi desidera la complizione automatica del Codice fiscale, dovrà gestirlo con altro Foglio di lavoro gestito manualmente o, meglio, con UserForm dedicato.
    Nel caso ci sia un concreto interesse per questo tipo di gestione, sono disposnibile a proporre il File proposto in Risposta #9 completato con UserForm.


    A disposizione.


    @ Rubik72:
    credo che prenderò in seria considerazione le Tue giuste osservazioni per il miglioramento della Function.
    In ogni caso considera che l'inserimento:
    - della Provincia
    - del C.A.P.
    - del Codice Comune
    sono tutti affidati alla Funzione CERCA.VERT inserita in ognuno di questi Campi.
    Voglio dire, una volta definito il Comune di nascita, tutti i Campi sopra citati, vengono compilati in automatico.

    Buona serata.

    Giuseppe
    Giuseppe un grosso grazie lo stesso per l'impegno che ci hai messo. :261:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  22. #20
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    423
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    637
    Chi desidera la complizione automatica del Codice fiscale, dovrà gestirlo con altro Foglio di lavoro gestito manualmente o, meglio, con UserForm dedicato.
    Nel caso ci sia un concreto interesse per questo tipo di gestione, sono disposnibile a proporre il File proposto in Risposta #9 completato con UserForm.


    Ciao Giuseppe,
    Se lo facessi te ne sarei grato.....
    Windows8.1 office 2010

  23. #21
    L'avatar di klaudios
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Taranto
    Messaggi
    58
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    3
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Grazie Klaudios :242:
    Buonasera,
    rimanendo in tema , da questo stralcio di rubrica che allego, quando inserisco con userform i nominativi, non sono in ordine alfabetico. C'è una formula da inserire nella cella per riordinare dalla "A" alla "Z"? Quando non inerisco la data di nascita risulta il valore "116" dove sbaglio? è risolvibile? Mi affido alle vostre conoscenze. Grazie
    File Allegati File Allegati

  24. #22
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da klaudios Visualizza Messaggio
    Buonasera,
    rimanendo in tema , da questo stralcio di rubrica che allego, quando inserisco con userform i nominativi, non sono in ordine alfabetico. C'è una formula da inserire nella cella per riordinare dalla "A" alla "Z"? Quando non inerisco la data di nascita risulta il valore "116" dove sbaglio? è risolvibile? Mi affido alle vostre conoscenze. Grazie
    per la data fai questa modifica alla formula : =SE(E14<>"";ANNO(OGGI())-ANNO(E14);"")
    Per metterli in ordine quando chiudi la userform (unload userfom), aggiungi una routine di ordinamento magari calcolandola con il registratore di macro.

    Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  25. #23
    L'avatar di klaudios
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Taranto
    Messaggi
    58
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    3
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    per la data fai questa modifica alla formula : =SE(E14<>"";ANNO(OGGI())-ANNO(E14);"")
    Per metterli in ordine quando chiudi la userform (unload userfom), aggiungi una routine di ordinamento magari calcolandola con il registratore di macro.

    Ciao.
    ...mi piacerebbe poter riuscire a come poter fare:metterli in ordine quando chiudi la userform (unload userfom), aggiungi una routine di ordinamento magari calcolandola con il registratore di macro.



    grazie, cmq.

  26. #24
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Vincenzo.

    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Chi desidera la complizione automatica del Codice fiscale, dovrà gestirlo con altro Foglio di lavoro gestito manualmente o, meglio, con UserForm dedicato.
    Nel caso ci sia un concreto interesse per questo tipo di gestione, sono disposnibile a proporre il File proposto in Risposta #9 completato con UserForm.

    Ciao Giuseppe,
    Se lo facessi te ne sarei grato.....
    Lo farei molto volentieri, ma non vorrei intervenire con un argomento così diverso da quello in oggetto.

    Mi muoverei in questo modo:
    - cerco di preparare UserForm compatibile con i Dati da inserire; cosa che richiede veramente pochi minuti
    - nel caso venga giudicato inopportuno inserire il File in questa Discussione, ti chiederei di aprire una nuova Discussione con la richiesta specifica per il calcolo del Codice fiscale

    Confidando in una indicazione precisa sul modo più opportuno di come procedere, riamngo a disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  27. #25
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    423
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    637
    Ok
    non credo sia inopportuno.....
    comunque attendo tue....
    Windows8.1 office 2010

  28. #26
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da klaudios Visualizza Messaggio
    ...mi piacerebbe poter riuscire a come poter fare:metterli in ordine quando chiudi la userform (unload userfom), aggiungi una routine di ordinamento magari calcolandola con il registratore di macro.



    grazie, cmq.
    Ciao Klaudios
    questo è il codice che devi mettere dopo aver chiuso la userform

    Codice: 
    Dim uriga As Long
    
    uriga = Range("A" & Rows.Count).End(xlUp).Row
    
    
        Range("A1:L" & uriga).Select
        ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add Key:=Range("B2:B" & uriga) _
            , Order:=xlAscending
        With ActiveWorkbook.Worksheets("Foglio1").Sort
            .SetRange Range("A1:L" & uriga)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        
        Range("A1").Select

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  29. #27
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    @ Vincenzo Damiani
    Vincenzo, perdonami, ma ho preferito inserire il File in una nuova Discussione.

    Questo, almeno nelle mie intenzioni, potrebbe agevolare altri Utenti interessati all'argomento trattato.

    Anche se può sembrare superfluo, solo per completezza, allego il Link della nuova Discussione.

    http://www.forumexcel.it/forum/7-dom...codice-fiscale

    A disposizione.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

Discussioni Simili

  1. archivio dati
    Di davide574 nel forum Domande su Excel VBA e MACRO
    Risposte: 34
    Ultimo Messaggio: 03/01/17, 11:10
  2. [Risolto] Ricerca su archivio estrazioni del lotto: Come formularla?
    Di fiulo nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 10/11/16, 08:47
  3. Archivio
    Di sebastian nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 22/07/16, 17:01
  4. Archivio pptx 2013
    Di coyoteerex nel forum Domande su Microsoft Power Point
    Risposte: 1
    Ultimo Messaggio: 30/05/16, 18:11
  5. Archivio dati
    Di gianfranco lazzini nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 23/03/16, 16:39

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
  •