codice fiscale in excel

di **bubbalucky** » 19/04/07 13:21

ciao a tutti,

mi sto appassionando ad excel e voglio creare un foglio di lavoro x me che contiene una serie di informazioni, da collegarlo in modo che mi effettuai anche le fatture.

mi sarebbe utile implementare anche la funzione per il calcolo del codice fiscale delle persone

la mi a domanda è: inserito un nome e cognome (oltre a data e luogo di nascita), come posso far analizzare le singole lettere di nome e cognome ad excel in modo che mi tiri fuori in ordine consonanti e vocali?

grazie 1000 a chi mi sa aiutare

di **Dylan666** » 23/04/07 09:04

Forse puoi provare qualcosa con STRINGA.ESTRAI (oppure DESTRA) prendendo una lettera per volta e abbinadola a un SE per vedere se la lattera è una delle 5 vocali o no. Se non lo è la prendi in considerazione, altrimenti si scarta.
Ma non sono un esperto e mi è difficile immaginare una cosa simile senza un ciclo che rilanci la funzione per tutta la LUNGHEZZA del nome e cognome da analizzare, e non saprei come fartelo fare

di **bubbalucky** » 23/04/07 17:44

ok grazie, provo a smanettare ancora un po' on line

di **Icaroweb** » 08/05/07 12:57

Il foglio di calcolo presenta una funzione per il calcolo del codice fiscale di una persona fisica.

Attenzione Non ho avuto il tempo di testare abbastanza la relativa funzione . Si prega di segnalarmi eventuali bug o modifiche migliorative del programma.
Segnalo che gran parte del codice VBA utilizzato non è del sottoscritto, ma è stato trovato e modificato .

Saluti

Function CalcoloCodFis(ByVal Cognome As String, ByVal Nome As String, ByVal DataNascita As Date, ByVal Sesso As String, ByVal Provincia As String) As String

Dim Temp As String
Dim Vocali As String
Dim Consonanti As String
Dim I As Integer
Dim AppoNum As Long
Dim TempNum As Long
Dim TxtCodFis As String
Dim CodiceProvincia As String
Dim Prov As String
Dim PrimoCarattereProvincia As String

TxtCodFis = ""
'MsgBox ("Provincia = " & Provincia)
Cognome = UCase(Cognome)
Vocali = ""
Consonanti = ""
For I = 1 To Len(Cognome)
If InStr("AEIOU", Mid(Cognome, I, 1)) Then
Vocali = Vocali & Mid(Cognome, I, 1)
ElseIf InStr("BCDFGHJKLMNPQRSTVWXYZ", Mid(Cognome, I, 1)) Then
Consonanti = Consonanti & Mid(Cognome, I, 1)
End If
If Len(Consonanti) = 3 Then Exit For
Next
If Len(Consonanti) < 3 Then Consonanti = Consonanti & Left(Vocali, 3 - Len(Consonanti))
If Len(Consonanti) < 3 Then Consonanti = Consonanti & String(3 - Len(Consonanti), "X")
TxtCodFis = Consonanti

Nome = UCase(Nome)
Vocali = ""
Consonanti = ""
For I = 1 To Len(Nome)
If InStr("AEIOU", Mid(Nome, I, 1)) Then
Vocali = Vocali & Mid(Nome, I, 1)
ElseIf InStr("BCDFGHJKLMNPQRSTVWXYZ", Mid(Nome, I, 1)) Then
Consonanti = Consonanti & Mid(Nome, I, 1)
End If
Next I
If Len(Consonanti) >= 4 Then
Consonanti = Left(Consonanti, 1) & Mid(Consonanti, 3, 2)
ElseIf Len(Consonanti) = 3 Then
' Non fa niente, solo per impedire che questa possibilità cada nell'ELSE finale
Else
Consonanti = Left(Consonanti & Vocali, 3)
If Len(Consonanti) < 3 Then Consonanti = Left$(Consonanti & "XXX", 3)
End If
TxtCodFis = TxtCodFis & Consonanti
TxtCodFis = TxtCodFis & Right(Format(Year(DataNascita), "0000"), 2)
TxtCodFis = TxtCodFis & Mid("ABCDEHLMPRST", Month(DataNascita), 1)

Sesso = Left(Sesso, 1)
If UCase(Sesso$) = "F" Then
TxtCodFis = TxtCodFis & Format$(Day(DataNascita) + 40, "00")
Else
TxtCodFis = TxtCodFis & Format$(Day(DataNascita), "00")
End If

Provincia = UCase(Provincia)
'MsgBox ("Provincia = " & Provincia)
PrimoCarattereProvincia = Left(Provincia, 1)
Prov = Provincia

Select Case PrimoCarattereProvincia
Case "A"
CodiceProvincia = CodProvA(Prov)
Case "B"
CodiceProvincia = CodProvB(Prov)
Case "C"
CodiceProvincia = CodProvC(Prov)
Case "D"
CodiceProvincia = CodProvD(Prov)
Case "E"
CodiceProvincia = CodProvE(Prov)
Case "F"
CodiceProvincia = CodProvF(Prov)
Case "G"
CodiceProvincia = CodProvG(Prov)
Case "H"
CodiceProvincia = CodProvH(Prov)
Case "I"
CodiceProvincia = CodProvI(Prov)
Case "J"
CodiceProvincia = CodProvJ(Prov)
Case "K"
CodiceProvincia = CodProvK(Prov)
Case "L"
CodiceProvincia = CodProvL(Prov)
Case "M"
CodiceProvincia = CodProvM(Prov)
Case "N"
CodiceProvincia = CodProvN(Prov)
Case "O"
CodiceProvincia = CodProvO(Prov)
Case "P"
CodiceProvincia = CodProvP(Prov)
Case "Q"
CodiceProvincia = CodProvQ(Prov)
Case "R"
CodiceProvincia = CodProvR(Prov)
Case "S"
CodiceProvincia = CodProvS(Prov)
Case "T"
CodiceProvincia = CodProvT(Prov)
Case "U"
CodiceProvincia = CodProvU(Prov)
Case "V"
CodiceProvincia = CodProvV(Prov)
Case "W"
CodiceProvincia = CodProvW(Prov)
Case "X"
CodiceProvincia = CodProvX(Prov)
Case "Y"
CodiceProvincia = CodProvY(Prov)
Case "Z"
CodiceProvincia = CodProvZ(Prov)

Case Else
CodiceProvincia = "Nullo"
End Select

If Provincia = "" Then
MsgBox ("Manca Comune nascita")
Exit Function
End If
'MsgBox ("Provincia = " & Provincia)
'MsgBox ("Prov = Provincia -> " & Prov)

If CodiceProvincia = "Nullo" Then
MsgBox ("Comune di Nascita non Codificato")
Exit Function
End If

Provincia = CodiceProvincia

'MsgBox ("Provincia = " & Provincia)
'MsgBox ("CodProvA = " & CodProvA(Prov))

'MsgBox ("CodiceProvincia = " & CodiceProvincia)

TxtCodFis = TxtCodFis & Provincia

TempNum = 0
I = 1
Do
AppoNum = InStr("B1A0KKPPLLC2QQD3RRE4VVOOSSF5TTG6UUH7MMI8NNJ9WWZZYYXX", Mid(TxtCodFis, I, 1))
TempNum = TempNum + ((AppoNum - 1) And &H7FFE) / 2
I = I + 1
If I > 15 Then Exit Do
AppoNum = InStr("A0B1C2D3E4F5G6H7I8J9KKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ", Mid(TxtCodFis, I, 1))
TempNum = TempNum + ((AppoNum - 1) And &H7FFE) / 2
I = I + 1
Loop
TempNum = TempNum Mod 26
TxtCodFis = TxtCodFis & Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", TempNum + 1, 1)

CalcoloCodFis = TxtCodFis

End Function

Function CodProvA(ByVal Prov As String) As String
'CodProvA = ""

Select Case Prov

Case "ABANO TERME"
CodProvA = "A001"
Case "ABBADIA ALPINA"
CodProvA = "A003"
Case "ABBADIA CERRETO"
CodProvA = "A004"
Case "ABBADIA LARIANA"
CodProvA = "A005"
Case "ABBADIA SAN SALVATORE"
CodProvA = "A006"
Case "ABBADIA SOPRA ADDA"
CodProvA = "A002"
Case "ABBASANTA"
CodProvA = "A007"
Case "ABBATEGGIO"
CodProvA = "A008"
Case "ABBAZIA"
CodProvA = "A009"
Case "ABBIATEGRASSO"
CodProvA = "A010"
Case "ABBIATEGUAZZONE"
CodProvA = "A011"
Case "ABETONE"
CodProvA = "A012"
Case "ABRIOLA"
CodProvA = "A013"
Case "ACATE"
CodProvA = "A014"
Case "ACCADIA"
CodProvA = "A015"
Case "ACCEGLIO"
CodProvA = "A016"
Case "ACCETTURA"
CodProvA = "A017"
Case "ACCIANO"
CodProvA = "A018"
Case "ACCUMOLI"
CodProvA = "A019"
Case "ACERENZA"
CodProvA = "A020"
Case "ACERETO .AHORNACH."
CodProvA = "A021"
Case "ACERNO"
CodProvA = "A023"
Case "ACERRA"
CodProvA = "A024"
Case "ACI BONACCORSI"
CodProvA = "A025"
Case "ACI CASTELLO"
CodProvA = "A026"
Case "ACI CATENA"
CodProvA = "A027"
Case "ACI SANT'ANTONIO"
CodProvA = "A029"
Case "ACIREALE"
CodProvA = "A028"
Case "ACQUA"
CodProvA = "A030"
Case "ACQUACANINA"
CodProvA = "A031"
Case "ACQUAFONDATA"
CodProvA = "A032"
Case "ACQUAFORMOSA"
CodProvA = "A033"
Case "ACQUAFREDDA"
CodProvA = "A034"
Case "ACQUALAGNA"
CodProvA = "A035"
Case "ACQUALUNGA"
CodProvA = "A036"
Case "ACQUALUNGA BADONA"
CodProvA = "A037"
Case "ACQUANEGRA CREMONESE"
CodProvA = "A039"
Case "ACQUANEGRA SUL CHIESE"
CodProvA = "A038"
Case "ACQUAPENDENTE"
CodProvA = "A040"
Case "ACQUAPPESA"
CodProvA = "A041"
Case "ACQUARICA DEL CAPO"
CodProvA = "A042"
Case "ACQUARO"
CodProvA = "A043"
Case "ACQUASANTA TERME"
CodProvA = "A044"
Case "ACQUASPARTA"
CodProvA = "A045"
Case "ACQUATE"
CodProvA = "A046"
Case "ACQUAVIVA COLLECROCE"
CodProvA = "A050"
Case "ACQUAVIVA DELLE FONTI"
CodProvA = "A048"
Case "ACQUAVIVA D'ISERNIA"
CodProvA = "A051"
Case "ACQUAVIVA PICENA"
CodProvA = "A047"
Case "ACQUAVIVA PLATANI"
CodProvA = "A049"
Case "ACQUEDOLCI"
CodProvA = "M211"
Case "ACQUI TERME"
CodProvA = "A052"
Case "ACRI"
CodProvA = "A053"
Case "ACUTO"
CodProvA = "A054"
Case "ADELFIA"
CodProvA = "A055"
Case "ADRANO"
CodProvA = "A056"
Case "ADRARA SAN MARTINO"
CodProvA = "A057"
Case "ADRARA SAN ROCCO"
CodProvA = "A058"
Case "ADRIA"
CodProvA = "A059"
Case "ADRO"
CodProvA = "A060"
Case "AFFI"
CodProvA = "A061"
Case "AFFILE"
CodProvA = "A062"
Case "AFFORI"
CodProvA = "A063"
Case "AFGHANISTAN"
CodProvA = "Z200"
Case "AFRAGOLA"
CodProvA = "A064"
Case "AFRICA DEL SUD-OVEST"
CodProvA = "Z300"
Case "AFRICO"
CodProvA = "A065"
Case "AGARO"
CodProvA = "A066"
Case "AGAZZANO"
CodProvA = "A067"
Case "AGEROLA"
CodProvA = "A068"
Case "AGGIUS"
CodProvA = "A069"
Case "AGIRA"
CodProvA = "A070"
Case "AGLIANA"
CodProvA = "A071"
Case "AGLIANO"
CodProvA = "A072"
Case "AGLIATE"
CodProvA = "A073"
Case "AGLIE'"
CodProvA = "A074"
Case "AGLIENTU"
CodProvA = "H848"
Case "AGNA"
CodProvA = "A075"
Case "AGNADELLO"
CodProvA = "A076"
Case "AGNANA CALABRA"
CodProvA = "A077"
Case "AGNELLENGO"
CodProvA = "A078"
Case "AGNONA"
CodProvA = "A079"
Case "AGNONE"
CodProvA = "A080"
Case "AGNOSINE"
CodProvA = "A082"
Case "AGORDO"
CodProvA = "A083"
Case "AGOSTA"
CodProvA = "A084"
Case "AGRA"
CodProvA = "A085"
Case "AGRANO"
CodProvA = "A086"
Case "AGRATE BRIANZA"
CodProvA = "A087"
Case "AGRATE CONTURBIA"
CodProvA = "A088"
Case "AGRIGENTO"
CodProvA = "A089"
Case "AGRONE"
CodProvA = "A090"
Case "AGROPOLI"
CodProvA = "A091"
Case "AGUGLIANO"
CodProvA = "A092"
Case "AGUGLIARO"
CodProvA = "A093"
Case "AIBA"
CodProvA = "A095"
Case "AICURZIO"
CodProvA = "A096"
Case "AIDOMAGGIORE"
CodProvA = "A097"
Case "AIDONE"
CodProvA = "A098"
Case "AIDUSSINA"
CodProvA = "A099"
Case "AIELLI"
CodProvA = "A100"
Case "AIELLO CALABRO"
CodProvA = "A102"
Case "AIELLO DEL FRIULI"
CodProvA = "A103"
Case "AIELLO DEL SABATO"
CodProvA = "A101"
Case "AIELLO IN CALABRIA"
CodProvA = "A104"
Case "AIETA"
CodProvA = "A105"
Case "AILANO"
CodProvA = "A106"
Case "AILOCHE"
CodProvA = "A107"
Case "AIRASCA"
CodProvA = "A109"
Case "AIROLA"
CodProvA = "A110"
Case "AIROLE"
CodProvA = "A111"
Case "AIRUNO"
CodProvA = "A112"
Case "AISONE"
CodProvA = "A113"
Case "AIZURRO"
CodProvA = "A114"
Case "ALA"
CodProvA = "A116"
Case "ALA' DEI SARDI"
CodProvA = "A115"
Case "ALA DI STURA"
CodProvA = "A117"
Case "ALAGNA"
CodProvA = "A118"
Case "ALAGNA VALSESIA"
CodProvA = "A119"
Case "ALANNO"
CodProvA = "A120"
Case "ALANO DI PIAVE"
CodProvA = "A121"
Case "ALASSIO"
CodProvA = "A122"
Case "ALATRI"
CodProvA = "A123"
Case "ALBA"
CodProvA = "A124"
Case "ALBA ADRIATICA"
CodProvA = "A125"
Case "ALBAGIARA"
CodProvA = "A126"
Case "ALBAIRATE"
CodProvA = "A127"
Case "ALBANELLA"
CodProvA = "A128"
Case "ALBANIA"
CodProvA = "Z100"
Case "ALBANO DI LUCANIA"
CodProvA = "A131"
Case "ALBANO LAZIALE"
CodProvA = "A132"
Case "ALBANO SANT'ALESSANDRO"
CodProvA = "A129"
Case "ALBANO VERCELLESE"
CodProvA = "A130"
Case "ALBANOVA"
CodProvA = "A133"
Case "ALBAREDO ARNABOLDI"
CodProvA = "A134"
Case "ALBAREDO D'ADIGE"
CodProvA = "A137"
Case "ALBAREDO PER SAN MARCO"
CodProvA = "A135"
Case "ALBARETO"
CodProvA = "A138"
Case "ALBARETTO DELLA TORRE"
CodProvA = "A139"
Case "ALBARETTO VALLE DI MACRA"
CodProvA = "A140"
Case "ALBARO VESCOVA"
CodProvA = "A141"
Case "ALBATE"
CodProvA = "A142"
Case "ALBAVILLA"
CodProvA = "A143"
Case "ALBEGNO"
CodProvA = "A144"
Case "ALBENGA"
CodProvA = "A145"
Case "ALBER DI SESANA"
CodProvA = "A148"
Case "ALBERA LIGURE"
CodProvA = "A146"
Case "ALBEROBELLO"
CodProvA = "A149"
Case "ALBERONA"
CodProvA = "A150"
Case "ALBES .ALBEINS."
CodProvA = "A151"
Case "ALBESE"
CodProvA = "A152"
Case "ALBESE CON CASSANO"
CodProvA = "A153"
Case "ALBETTONE"
CodProvA = "A154"
Case "ALBI"
CodProvA = "A155"
Case "ALBIANO"
CodProvA = "A158"
Case "ALBIANO D'IVREA"
CodProvA = "A157"
Case "ALBIANO MAGRA"
CodProvA = "A156"
Case "ALBIATE"
CodProvA = "A159"
Case "ALBIDONA"
CodProvA = "A160"
Case "ALBIGNASEGO"
CodProvA = "A161"
Case "ALBINEA"
CodProvA = "A162"
Case "ALBINO"
CodProvA = "A163"
Case "ALBIOLO"
CodProvA = "A164"
Case "ALBISOLA SUPERIORE"
CodProvA = "A166"
Case "ALBISSOLA MARINA"
CodProvA = "A165"
Case "ALBIZZATE"
CodProvA = "A167"
Case "ALBOGASIO"
CodProvA = "A168"
Case "ALBOGNO"
CodProvA = "A169"
Case "ALBONA"
CodProvA = "A170"
Case "ALBONESE"
CodProvA = "A171"
Case "ALBOSAGGIA"
CodProvA = "A172"
Case "ALBUGNANO"
CodProvA = "A173"
Case "ALBUSCIAGO"
CodProvA = "A174"
Case "ALBUZZANO"
CodProvA = "A175"
Case "ALCAMO"
CodProvA = "A176"
Case "ALCARA LI FUSI"
CodProvA = "A177"
Case "ALDENO"
CodProvA = "A178"
Case "ALDINO .ALDEIN."
CodProvA = "A179"
Case "ALES"
CodProvA = "A180"
Case "ALESSANDRIA"
CodProvA = "A182"
Case "ALESSANDRIA DEL CARRETTO"
CodProvA = "A183"
Case "ALESSANDRIA DELLA ROCCA"
CodProvA = "A181"
Case "ALESSANO"
CodProvA = "A184"
Case "ALEZIO"
CodProvA = "A185"
Case "ALFANO"
CodProvA = "A186"
Case "ALFEDENA"
CodProvA = "A187"
Case "ALFIANELLO"
CodProvA = "A188"
Case "ALFIANO ED UNITI"
CodProvA = "A190"
Case "ALFIANO NATTA"
CodProvA = "A189"
Case "ALFONSINE"
CodProvA = "A191"
Case "ALGERIA"
CodProvA = "Z301"
Case "ALGHERO"
CodProvA = "A192"
Case "ALGUA"
CodProvA = "A193"
Case "ALI'"
CodProvA = "A194"
Case "ALI' TERME"
CodProvA = "A201"
Case "ALIA"
CodProvA = "A195"
Case "ALIANO"
CodProvA = "A196"
Case "ALICE BEL COLLE"
CodProvA = "A197"
Case "ALICE SUPERIORE"
CodProvA = "A199"
Case "ALIFE"
CodProvA = "A200"
Case "ALIMENA"
CodProvA = "A202"
Case "ALIMINUSA"
CodProvA = "A203"
Case "ALLAI"
CodProvA = "A204"
Case "ALLAIN"
CodProvA = "A205"
Case "ALLEGHE"
CodProvA = "A206"
Case "ALLERONA"
CodProvA = "A207"
Case "ALLISTE"
CodProvA = "A208"
Case "ALLIZ .ALLITZ."
CodProvA = "A209"
Case "ALLUMIERE"
CodProvA = "A210"
Case "ALLUVIONI CAMBIO'"
CodProvA = "A211"
Case "ALMA"
CodProvA = "A212"
Case "ALMAZZAGO"
CodProvA = "A213"
Case "ALME'"
CodProvA = "A214"
Case "ALMENNO SAN BARTOLOMEO"
CodProvA = "A216"
Case "ALMENNO SAN SALVATORE"
CodProvA = "A217"
Case "ALMESE"
CodProvA = "A218"
Case "ALONE"
CodProvA = "A219"
Case "ALONTE"
CodProvA = "A220"
Case "ALPETTE"
CodProvA = "A221"
Case "ALPIGNANO"
CodProvA = "A222"
Case "ALSENO"
CodProvA = "A223"
Case "ALSERIO"
CodProvA = "A224"
Case "ALTAMURA"
CodProvA = "A225"
Case "ALTARE"
CodProvA = "A226"
Case "ALTAVILLA IRPINA"
CodProvA = "A228"
Case "ALTAVILLA MILICIA"
CodProvA = "A229"
Case "ALTAVILLA MONFERRATO"
CodProvA = "A227"
Case "ALTAVILLA SILENTINA"
CodProvA = "A230"
Case "ALTAVILLA VICENTINA"
CodProvA = "A231"
Case "ALTETA"
CodProvA = "A232"
Case "ALTIDONA"
CodProvA = "A233"
Case "ALTILIA"
CodProvA = "A234"
Case "ALTINO"
CodProvA = "A235"
Case "ALTISSIMO"
CodProvA = "A236"
Case "ALTIVOLE"
CodProvA = "A237"
Case "ALTO"
CodProvA = "A238"
Case "ALTOFONTE"
CodProvA = "A239"
Case "ALTOMONTE"
CodProvA = "A240"
Case "ALTOPASCIO"
CodProvA = "A241"
Case "ALVIANO"
CodProvA = "A242"
Case "ALVIGNANO"
CodProvA = "A243"
Case "ALVITO"
CodProvA = "A244"
Case "ALZANO LOMBARDO"
CodProvA = "A246"
Case "ALZANO MAGGIORE"
CodProvA = "A247"
Case "ALZANO SCRIVIA"
CodProvA = "A245"
Case "ALZANO SOPRA"
CodProvA = "A248"
Case "ALZATE BRIANZA"
CodProvA = "A249"
Case "ALZATE CON LINDUNO"
CodProvA = "A250"
Case "AMALFI"
CodProvA = "A251"
Case "AMANDOLA"
CodProvA = "A252"
Case "AMANTEA"
CodProvA = "A253"
Case "AMARO"
CodProvA = "A254"
Case "AMARONI"
CodProvA = "A255"
Case "AMASENO"
CodProvA = "A256"
Case "AMATO"
CodProvA = "A257"
Case "AMATRICE"
CodProvA = "A258"
Case "AMBIVERE"
CodProvA = "A259"
Case "AMBLAR"
CodProvA = "A260"
Case "AMEGLIA"
CodProvA = "A261"
Case "AMELIA"
CodProvA = "A262"
Case "AMENDOLARA"
CodProvA = "A263"
Case "AMENO"
CodProvA = "A264"
Case "AMOROSI"
CodProvA = "A265"
Case "AMPEZZO"
CodProvA = "A267"
Case "ANACAPRI"
CodProvA = "A268"
Case "ANAGNI"
CodProvA = "A269"
Case "ANCARANO"
CodProvA = "A270"
Case "ANCONA"
CodProvA = "A271"
Case "ANDALI"
CodProvA = "A272"
Case "ANDALO"
CodProvA = "A274"
Case "ANDALO VALTELLINO"
CodProvA = "A273"
Case "ANDEZENO"
CodProvA = "A275"
Case "ANDOGNO"
CodProvA = "A276"
Case "ANDONNO"
CodProvA = "A277"
Case "ANDORA"
CodProvA = "A278"
Case "ANDORNO CACCIORNA"
CodProvA = "A279"
Case "ANDORNO MICCA"
CodProvA = "A280"
Case "ANDORRA"
CodProvA = "Z101"
Case "ANDRANO"
CodProvA = "A281"
Case "ANDRATE"
CodProvA = "A282"
Case "ANDREIS"
CodProvA = "A283"
Case "ANDRETTA"
CodProvA = "A284"
Case "ANDRIA"
CodProvA = "A285"
Case "ANDRIANO .ANDRIAN."
CodProvA = "A286"
Case "ANELA"
CodProvA = "A287"
Case "ANFO"
CodProvA = "A288"
Case "ANFURRO"
CodProvA = "A289"
Case "ANGERA"
CodProvA = "A290"
Case "ANGHIARI"
CodProvA = "A291"
Case "ANGIARI"
CodProvA = "A292"
Case "ANGOLA"
CodProvA = "Z302"
Case "ANGOLO TERME"
CodProvA = "A293"
Case "ANGRI"
CodProvA = "A294"
Case "ANGROGNA"
CodProvA = "A295"
Case "ANGUILLARA SABAZIA"
CodProvA = "A297"
Case "ANGUILLARA VENETA"
CodProvA = "A296"
Case "ANICOVA CORADA"
CodProvA = "A298"
Case "ANNICCO"
CodProvA = "A299"
Case "ANNONE DI BRIANZA"
CodProvA = "A301"
Case "ANNONE VENETO"
CodProvA = "A302"
Case "ANOIA"
CodProvA = "A303"
Case "ANTEGNATE"
CodProvA = "A304"
Case "ANTERIVO .ALTREI."
CodProvA = "A306"
Case "ANTERSELVA .ANTHOLZ."
CodProvA = "A307"
Case "ANTEY SAINT ANDRE'"
CodProvA = "A305"
Case "ANTICOLI CORRADO"
CodProvA = "A309"
Case "ANTIGNANA"
CodProvA = "A311"
Case "ANTIGNANO"
CodProvA = "A312"
Case "ANTILLE BRITANNICHE"
CodProvA = "Z500"
Case "ANTILLE OLANDESI"
CodProvA = "Z501"
Case "ANTILLO"
CodProvA = "A313"
Case "ANTONIMINA"
CodProvA = "A314"
Case "ANTRODOCO"
CodProvA = "A315"
Case "ANTRONA SCHIERANCO"
CodProvA = "A317"
Case "ANTRONAPIANA"
CodProvA = "A316"
Case "ANVERSA DEGLI ABRUZZI"
CodProvA = "A318"
Case "ANZANO DEL PARCO"
CodProvA = "A319"
Case "ANZANO DI PUGLIA"
CodProvA = "A320"
Case "ANZI"
CodProvA = "A321"
Case "ANZINO"
CodProvA = "A322"
Case "ANZIO"
CodProvA = "A323"
Case "ANZOLA DELL'EMILIA"
CodProvA = "A324"
Case "ANZOLA D'OSSOLA"
CodProvA = "A325"
Case "AOSTA"
CodProvA = "A326"
Case "APECCHIO"
CodProvA = "A327"
Case "APICE"
CodProvA = "A328"
Case "APIRO"
CodProvA = "A329"
Case "APOLLOSA"
CodProvA = "A330"
Case "APPARIZIONE"
CodProvA = "A331"
Case "APPIANO GENTILE"
CodProvA = "A333"
Case "APPIANO SULLA STRADA DEL VIN"
CodProvA = "A332"
Case "APPIGNANO"
CodProvA = "A334"
Case "APPIGNANO DEL TRONTO"
CodProvA = "A335"
Case "APRIANO"
CodProvA = "A336"
Case "APRICA"
CodProvA = "A337"
Case "APRICALE"
CodProvA = "A338"
Case "APRICENA"
CodProvA = "A339"
Case "APRIGLIANO"
CodProvA = "A340"
Case "APRILIA"
CodProvA = "A341"
Case "APUANIA"
CodProvA = "A342"
Case "AQUARA"
CodProvA = "A343"
Case "AQUILA D'ARROSCIA"
CodProvA = "A344"
Case "AQUILEIA"
CodProvA = "A346"
Case "AQUILONIA"
CodProvA = "A347"
Case "AQUINO"
CodProvA = "A348"
Case "ARA"
CodProvA = "A349"
Case "ARABIA MERIDIONALE(FEDERAZI"
CodProvA = "Z201"
Case "ARABIA MERIDIONALE(PROTETTO"
CodProvA = "Z202"
Case "ARABIA SAUDITA"
CodProvA = "Z203"
Case "ARADEO"
CodProvA = "A350"
Case "ARAGONA"
CodProvA = "A351"
Case "ARAMENGO"
CodProvA = "A352"
Case "ARANCO"
CodProvA = "A353"
Case "ARBA"
CodProvA = "A354"
Case "ARBIZZO"
CodProvA = "A356"
Case "ARBOREA"
CodProvA = "A357"
Case "ARBORIO"
CodProvA = "A358"
Case "ARBUS"
CodProvA = "A359"
Case "ARCADE"
CodProvA = "A360"
Case "ARCAGNA"
CodProvA = "A361"
Case "ARCAGNANO"
CodProvA = "A362"
Case "ARCE"
CodProvA = "A363"
Case "ARCELLASCO"
CodProvA = "A364"
Case "ARCENE"
CodProvA = "A365"
Case "ARCEVIA"
CodProvA = "A366"
Case "ARCHI"
CodProvA = "A367"
Case "ARCIDOSSO"
CodProvA = "A369"
Case "ARCINAZZO ROMANO"
CodProvA = "A370"
Case "ARCISATE"
CodProvA = "A371"
Case "ARCO"
CodProvA = "A372"
Case "ARCOLA"
CodProvA = "A373"
Case "ARCOLE"
CodProvA = "A374"
Case "ARCONATE"
CodProvA = "A375"
Case "ARCORE"
CodProvA = "A376"
Case "ARCUGNANO"
CodProvA = "A377"
Case "ARCUMEGGIA"
CodProvA = "A378"
Case "ARDARA"
CodProvA = "A379"
Case "ARDAULI"
CodProvA = "A380"
Case "ARDEA"
CodProvA = "M213"
Case "ARDENA"
CodProvA = "A381"
Case "ARDENNO"
CodProvA = "A382"
Case "ARDESIO"
CodProvA = "A383"
Case "ARDOLE SAN MARINO"
CodProvA = "A384"
Case "ARDORE"
CodProvA = "A385"
Case "ARENA"
CodProvA = "A386"
Case "ARENA PO"
CodProvA = "A387"
Case "ARENZANO"
CodProvA = "A388"
Case "ARESE"
CodProvA = "A389"
Case "AREZZO"
CodProvA = "A390"
Case "ARGEGNO"
CodProvA = "A391"
Case "ARGELATO"
CodProvA = "A392"
Case "ARGENTA"
CodProvA = "A393"
Case "ARGENTERA"
CodProvA = "A394"
Case "ARGENTINA"
CodProvA = "Z600"
Case "ARGUELLO"
CodProvA = "A396"
Case "ARGUSTO"
CodProvA = "A397"
Case "ARI"
CodProvA = "A398"
Case "ARIANO IRPINO"
CodProvA = "A399"
Case "ARIANO NEL POLESINE"
CodProvA = "A400"
Case "ARICCIA"
CodProvA = "A401"
Case "ARIELLI"
CodProvA = "A402"
Case "ARIENZO"
CodProvA = "A403"
Case "ARIENZO SANFELICE"
CodProvA = "A404"
Case "ARIGNANO"
CodProvA = "A405"
Case "ARISCHIA"
CodProvA = "A406"
Case "ARITZO"
CodProvA = "A407"
Case "ARIXI"
CodProvA = "A408"
Case "ARIZZANO"
CodProvA = "A409"
Case "ARIZZANO INFERIORE"
CodProvA = "A410"
Case "ARIZZANO SUPERIORE"
CodProvA = "A411"
Case "ARLENA DI CASTRO"
CodProvA = "A412"
Case "ARLUNO"
CodProvA = "A413"
Case "ARMENO"
CodProvA = "A414"
Case "ARMENTO"
CodProvA = "A415"
Case "ARMIO"
CodProvA = "A416"
Case "ARMO"
CodProvA = "A417"
Case "ARMO"
CodProvA = "A418"
Case "ARMUNGIA"
CodProvA = "A419"
Case "ARNAD"
CodProvA = "A424"
Case "ARNAGO"
CodProvA = "A420"
Case "ARNARA"
CodProvA = "A421"
Case "ARNASCO"
CodProvA = "A422"
Case "ARNATE"
CodProvA = "A423"
Case "ARNESANO"
CodProvA = "A425"
Case "AROLA"
CodProvA = "A427"
Case "AROLO"
CodProvA = "A428"
Case "ARONA"
CodProvA = "A429"
Case "AROSIO"
CodProvA = "A430"
Case "ARPAIA"
CodProvA = "A431"
Case "ARPAISE"
CodProvA = "A432"
Case "ARPINO"
CodProvA = "A433"
Case "ARQUA' PETRARCA"
CodProvA = "A434"
Case "ARQUA' POLESINE"
CodProvA = "A435"
Case "ARQUATA DEL TRONTO"
CodProvA = "A437"
Case "ARQUATA SCRIVIA"
CodProvA = "A436"
Case "ARRE"
CodProvA = "A438"
Case "ARRONE"
CodProvA = "A439"
Case "ARSAGO SEPRIO"
CodProvA = "A441"
Case "ARSIA"
CodProvA = "A442"
Case "ARSIE'"
CodProvA = "A443"
Case "ARSIERO"
CodProvA = "A444"
Case "ARSITA"
CodProvA = "A445"
Case "ARSOLI"
CodProvA = "A446"
Case "ARTA TERME"
CodProvA = "A447"
Case "ARTEGNA"
CodProvA = "A448"
Case "ARTENA"
CodProvA = "A449"
Case "ARTO"
CodProvA = "A450"
Case "ARTOGNE"
CodProvA = "A451"
Case "ARVIER"
CodProvA = "A452"
Case "ARZACHENA"
CodProvA = "A453"
Case "ARZAGO D'ADDA"
CodProvA = "A440"
Case "ARZANA"
CodProvA = "A454"
Case "ARZANO"
CodProvA = "A455"
Case "ARZENE"
CodProvA = "A456"
Case "ARZENO D'ONEGLIA"
CodProvA = "A457"
Case "ARZERGRANDE"
CodProvA = "A458"
Case "ARZIGNANO"
CodProvA = "A459"
Case "ASCEA"
CodProvA = "A460"
Case "ASCIANO"
CodProvA = "A461"
Case "ASCOLI PICENO"
CodProvA = "A462"
Case "ASCOLI SATRIANO"
CodProvA = "A463"
Case "ASCREA"
CodProvA = "A464"
Case "ASIAGO"
CodProvA = "A465"
Case "ASIGLIANO VENETO"
CodProvA = "A467"
Case "ASIGLIANO VERCELLESE"
CodProvA = "A466"
Case "ASNAGO"
CodProvA = "A469"
Case "ASOLA"
CodProvA = "A470"
Case "ASOLO"
CodProvA = "A471"
Case "ASSAGO"
CodProvA = "A473"
Case "ASSEMINI"
CodProvA = "A474"
Case "ASSISI"
CodProvA = "A475"
Case "ASSO"
CodProvA = "A476"
Case "ASSOLO"
CodProvA = "A477"
Case "ASSORO"
CodProvA = "A478"
Case "ASTI"
CodProvA = "A479"
Case "ASUNI"
CodProvA = "A480"
Case "ATELETA"
CodProvA = "A481"
Case "ATELLA"
CodProvA = "A482"
Case "ATELLA DI NAPOLI"
CodProvA = "A483"
Case "ATENA LUCANA"
CodProvA = "A484"
Case "ATESSA"
CodProvA = "A485"
Case "ATINA"
CodProvA = "A486"
Case "ATRANI"
CodProvA = "A487"
Case "ATRI"
CodProvA = "A488"
Case "ATRIPALDA"
CodProvA = "A489"
Case "ATTIGLIANO"
CodProvA = "A490"
Case "ATTIMIS"
CodProvA = "A491"
Case "ATZARA"
CodProvA = "A492"
Case "AUDITORE"
CodProvA = "A493"
Case "AUGUSTA"
CodProvA = "A494"
Case "AULETTA"
CodProvA = "A495"
Case "AULLA"
CodProvA = "A496"
Case "AURANO"
CodProvA = "A497"
Case "AUREMO DI SOPRA"
CodProvA = "A498"
Case "AURIGO"
CodProvA = "A499"
Case "AURISINA"
CodProvA = "A500"
Case "AURONZO DI CADORE"
CodProvA = "A501"
Case "AUSONIA"
CodProvA = "A502"
Case "AUSTIS"
CodProvA = "A503"
Case "AUSTRALIA"
CodProvA = "Z700"
Case "AUSTRIA"
CodProvA = "Z102"
Case "AUZATE"
CodProvA = "A504"
Case "AUZZA"
CodProvA = "A505"
Case "AVEGNO"
CodProvA = "A506"
Case "AVELENGO .HAFLING."
CodProvA = "A507"
Case "AVELLA"
CodProvA = "A508"
Case "AVELLINO"
CodProvA = "A509"
Case "AVENONE"
CodProvA = "A510"
Case "AVERARA"
CodProvA = "A511"
Case "AVERSA"
CodProvA = "A512"
Case "AVESA"
CodProvA = "A513"
Case "AVETRANA"
CodProvA = "A514"
Case "AVEZZANO"
CodProvA = "A515"
Case "AVIANO"
CodProvA = "A516"
Case "AVIATICO"
CodProvA = "A517"
Case "AVIGLIANA"
CodProvA = "A518"
Case "AVIGLIANO"
CodProvA = "A519"
Case "AVIGLIANO UMBRO"
CodProvA = "M258"
Case "AVIO"
CodProvA = "A520"
Case "AVISE"
CodProvA = "A521"
Case "AVOLA"
CodProvA = "A522"
Case "AVOLASCA"
CodProvA = "A523"
Case "AVUGLIONE E VERNONE"
CodProvA = "A524"
Case "AYAS"
CodProvA = "A094"
Case "AYMAVILLES"
CodProvA = "A108"
Case "AZEGLIO"
CodProvA = "A525"
Case "AZZANELLO"
CodProvA = "A526"
Case "AZZANO D'ASTI"
CodProvA = "A527"
Case "AZZANO DECIMO"
CodProvA = "A530"
Case "AZZANO MELLA"
CodProvA = "A529"
Case "AZZANO SAN PAOLO"
CodProvA = "A528"
Case "AZZATE"
CodProvA = "A531"
Case "AZZIO"
CodProvA = "A532"
Case "AZZONE"
CodProvA = "A533"

Case Else
CodProvA = "Nullo"
End Select
End Function

Function CodProvB(ByVal Prov As String) As String
CodProvB = ""

Select Case Prov

Case "BACENO"
CodProvB = "A534"
Case "BACOLI"
CodProvB = "A535"
Case "BADALUCCO"
CodProvB = "A536"
Case "BADESI"
CodProvB = "M214"
Case "BADIA .ABTEI."
CodProvB = "A537"
Case "BADIA CALAVENA"
CodProvB = "A540"
Case "BADIA PAVESE"
CodProvB = "A538"
Case "BADIA POLESINE"
CodProvB = "A539"
Case "BADIA TEDALDA"
CodProvB = "A541"
Case "BADOLATO"
CodProvB = "A542"
Case "BAGAGGERA"
CodProvB = "A543"
Case "BAGALADI"
CodProvB = "A544"
Case "BAGGIO"
CodProvB = "A545"
Case "BAGHERIA"
CodProvB = "A546"
Case "BAGNACAVALLO"
CodProvB = "A547"
Case "BAGNAIA"
CodProvB = "A548"
Case "BAGNARA CALABRA"
CodProvB = "A552"
Case "BAGNARA DI BENEVENTO"
CodProvB = "A549"
Case "BAGNARA DI ROMAGNA"
CodProvB = "A551"
Case "BAGNARIA"
CodProvB = "A550"
Case "BAGNARIA ARSA"
CodProvB = "A553"
Case "BAGNAROLO"
CodProvB = "A554"
Case "BAGNASCO"
CodProvB = "A555"
Case "BAGNASCO D'ASTI"
CodProvB = "A556"
Case "BAGNATICA"
CodProvB = "A557"
Case "BAGNI DI LUCCA"
CodProvB = "A560"
Case "BAGNO"
CodProvB = "A563"
Case "BAGNO A RIPOLI"
CodProvB = "A564"
Case "BAGNO DI ROMAGNA"
CodProvB = "A565"
Case "BAGNOLI DEL TRIGNO"
CodProvB = "A567"
Case "BAGNOLI DI SOPRA"
CodProvB = "A568"
Case "BAGNOLI IRPINO"
CodProvB = "A566"
Case "BAGNOLO CREMASCO"
CodProvB = "A570"
Case "BAGNOLO DEL SALENTO"
CodProvB = "A572"
Case "BAGNOLO DI PO"
CodProvB = "A574"
Case "BAGNOLO IN PIANO"
CodProvB = "A573"
Case "BAGNOLO MELLA"
CodProvB = "A569"
Case "BAGNOLO PIEMONTE"
CodProvB = "A571"
Case "BAGNOLO SAN VITO"
CodProvB = "A575"
Case "BAGNONE"
CodProvB = "A576"
Case "BAGNOREGIO"
CodProvB = "A577"
Case "BAGOLINO"
CodProvB = "A578"
Case "BAHAMA(ISOLE)"
CodProvB = "Z502"
Case "BAHREIN"
CodProvB = "Z204"
Case "BAIA E LATINA"
CodProvB = "A579"
Case "BAIANO"
CodProvB = "A580"
Case "BAIARDO"
CodProvB = "A581"
Case "BAIEDO"
CodProvB = "A582"
Case "BAIO DORA"
CodProvB = "A583"
Case "BAIRO"
CodProvB = "A584"
Case "BAIRO TORRE"
CodProvB = "A585"
Case "BAISO"
CodProvB = "A586"
Case "BALANGERO"
CodProvB = "A587"
Case "BALBIDO"
CodProvB = "M215"
Case "BALDICHIERI D'ASTI"
CodProvB = "A588"
Case "BALDISSERO CANAVESE"
CodProvB = "A590"
Case "BALDISSERO D'ALBA"
CodProvB = "A589"
Case "BALDISSERO TORINESE"
CodProvB = "A591"
Case "BALESTRATE"
CodProvB = "A592"
Case "BALESTRINO"
CodProvB = "A593"
Case "BALLABIO"
CodProvB = "A594"
Case "BALLABIO INFERIORE"
CodProvB = "A595"
Case "BALLABIO SUPERIORE"
CodProvB = "A596"
Case "BALLAO"
CodProvB = "A597"
Case "BALLARATE"
CodProvB = "A598"
Case "BALLINO"
CodProvB = "M216"
Case "BALME"
CodProvB = "A599"
Case "BALMUCCIA"
CodProvB = "A600"
Case "BALOCCO"
CodProvB = "A601"
Case "BALSAMO"
CodProvB = "A602"
Case "BALSORANO"
CodProvB = "A603"
Case "BALVANO"
CodProvB = "A604"
Case "BALZOLA"
CodProvB = "A605"
Case "BANARI"
CodProvB = "A606"
Case "BANCHETTE"
CodProvB = "A607"
Case "BANCO"
CodProvB = "A608"
Case "BANNIO ANZINO"
CodProvB = "A610"
Case "BANTINE"
CodProvB = "A611"
Case "BANZI"
CodProvB = "A612"
Case "BAONE"
CodProvB = "A613"
Case "BARADILI"
CodProvB = "A614"
Case "BARAGIANO"
CodProvB = "A615"
Case "BARANELLO"
CodProvB = "A616"
Case "BARANO D'ISCHIA"
CodProvB = "A617"
Case "BARANZATE"
CodProvB = "A618"
Case "BARASSO"
CodProvB = "A619"
Case "BARATE"
CodProvB = "A620"
Case "BARATILI SAN PIETRO"
CodProvB = "A621"
Case "BARATONIA"
CodProvB = "A622"
Case "BARBAIANA"
CodProvB = "A623"
Case "BARBANA D'ISTRIA"
CodProvB = "A624"
Case "BARBANIA"
CodProvB = "A625"
Case "BARBARA"
CodProvB = "A626"
Case "BARBARANO ROMANO"
CodProvB = "A628"
Case "BARBARANO VICENTINO"
CodProvB = "A627"
Case "BARBARESCO"
CodProvB = "A629"
Case "BARBARIGA"
CodProvB = "A630"
Case "BARBATA"
CodProvB = "A631"
Case "BARBERINO DI MUGELLO"
CodProvB = "A632"
Case "BARBERINO VAL D'ELSA"
CodProvB = "A633"
Case "BARBIANELLO"
CodProvB = "A634"
Case "BARBIANO .BARBIAN."
CodProvB = "A635"
Case "BARBISELLE"
CodProvB = "A636"
Case "BARBONA"
CodProvB = "A637"
Case "BARCELLONA POZZO DI GOTTO"
CodProvB = "A638"
Case "BARCESINO"
CodProvB = "M217"
Case "BARCHI"
CodProvB = "A639"
Case "BARCIS"
CodProvB = "A640"
Case "BARCO"
CodProvB = "A641"
Case "BARCONE"
CodProvB = "A642"
Case "BARD"
CodProvB = "A643"
Case "BARDASSANO"
CodProvB = "A644"
Case "BARDELLO"
CodProvB = "A645"
Case "BARDI"
CodProvB = "A646"
Case "BARDINETO"
CodProvB = "A647"
Case "BARDINO NUOVO"
CodProvB = "A648"
Case "BARDINO VECCHIO"
CodProvB = "A649"
Case "BARDOLINO"
CodProvB = "A650"
Case "BARDONECCHIA"
CodProvB = "A651"
Case "BAREGGIO"
CodProvB = "A652"
Case "BARENGO"
CodProvB = "A653"
Case "BARESI"
CodProvB = "A654"
Case "BARESSA"
CodProvB = "A655"
Case "BARETE"
CodProvB = "A656"
Case "BARGA"
CodProvB = "A657"
Case "BARGAGLI"
CodProvB = "A658"
Case "BARGANO"
CodProvB = "A659"
Case "BARGE"
CodProvB = "A660"
Case "BARGHE"
CodProvB = "A661"
Case "BARI"
CodProvB = "A662"
Case "BARI SARDO"
CodProvB = "A663"
Case "BARIANO"
CodProvB = "A664"
Case "BARICELLA"
CodProvB = "A665"
Case "BARILE"
CodProvB = "A666"
Case "BARISCIANO"
CodProvB = "A667"
Case "BARLASSINA"
CodProvB = "A668"
Case "BARLETTA"
CodProvB = "A669"
Case "BARNI"
CodProvB = "A670"
Case "BAROLO"
CodProvB = "A671"
Case "BARONA"
CodProvB = "A672"
Case "BARONE CANAVESE"
CodProvB = "A673"
Case "BARONISSI"
CodProvB = "A674"
Case "BARRA"
CodProvB = "A675"
Case "BARRAFRANCA"
CodProvB = "A676"
Case "BARRALI"
CodProvB = "A677"
Case "BARREA"
CodProvB = "A678"
Case "BARTESATE"
CodProvB = "A680"
Case "BARUMINI"
CodProvB = "A681"
Case "BARZA"
CodProvB = "A682"
Case "BARZAGO"
CodProvB = "A683"
Case "BARZANA"
CodProvB = "A684"
Case "BARZANIGA"
CodProvB = "A685"
Case "BARZANO'"
CodProvB = "A686"
Case "BARZIO"
CodProvB = "A687"
Case "BARZIZZA"
CodProvB = "A679"
Case "BARZOLA"
CodProvB = "A688"
Case "BASALUZZO"
CodProvB = "A689"
Case "BASCAPE'"
CodProvB = "A690"
Case "BASCHI"
CodProvB = "A691"
Case "BASCIANO"
CodProvB = "A692"
Case "BASELGA DI PINE'"
CodProvB = "A694"
Case "BASELGA DI VEZZANO"
CodProvB = "A693"
Case "BASELICA BOLOGNA"
CodProvB = "A695"
Case "BASELICE"
CodProvB = "A696"
Case "BASIANO"
CodProvB = "A697"
Case "BASICO'"
CodProvB = "A698"
Case "BASIGLIO"
CodProvB = "A699"
Case "BASILIANO"
CodProvB = "A700"
Case "BASSANO BRESCIANO"
CodProvB = "A702"
Case "BASSANO DEL GRAPPA"
CodProvB = "A703"
Case "BASSANO IN TEVERINA"
CodProvB = "A706"
Case "BASSANO ROMANO"
CodProvB = "A704"
Case "BASSIANO"
CodProvB = "A707"
Case "BASSIGNANA"
CodProvB = "A708"
Case "BASTIA MONDOVI'"
CodProvB = "A709"
Case "BASTIA UMBRA"
CodProvB = "A710"
Case "BASTIDA DE' DOSSI"
CodProvB = "A711"
Case "BASTIDA PANCARANA"
CodProvB = "A712"
Case "BASTIGLIA"
CodProvB = "A713"
Case "BATTAGLIA DELLA BAINSIZZA"
CodProvB = "A715"
Case "BATTAGLIA TERME"
CodProvB = "A714"
Case "BATTIFOLLO"
CodProvB = "A716"
Case "BATTIPAGLIA"
CodProvB = "A717"
Case "BATTUDA"
CodProvB = "A718"
Case "BAUCINA"
CodProvB = "A719"
Case "BAULADU"
CodProvB = "A721"
Case "BAUNEI"
CodProvB = "A722"
Case "BAUSO"
CodProvB = "A723"
Case "BAVARI"
CodProvB = "A724"
Case "BAVENO"
CodProvB = "A725"
Case "BAZZANO"
CodProvB = "A726"
Case "BEAULARD"
CodProvB = "A727"
Case "BEDERO VALCUVIA"
CodProvB = "A728"
Case "BEDIZZOLE"
CodProvB = "A729"
Case "BEDOLLO"
CodProvB = "A730"
Case "BEDONIA"
CodProvB = "A731"
Case "BEDULITA"
CodProvB = "A732"
Case "BEE"
CodProvB = "A733"
Case "BEINASCO"
CodProvB = "A734"
Case "BEINETTE"
CodProvB = "A735"
Case "BEL PRATO"
CodProvB = "A767"
Case "BELCASTRO"
CodProvB = "A736"
Case "BELFIORE"
CodProvB = "A737"
Case "BELFORTE ALL'ISAURO"
CodProvB = "A740"
Case "BELFORTE DEL CHIENTI"
CodProvB = "A739"
Case "BELFORTE MONFERRATO"
CodProvB = "A738"
Case "BELGIO"
CodProvB = "Z103"
Case "BELGIOIOSO"
CodProvB = "A741"
Case "BELGIRATE"
CodProvB = "A742"
Case "BELLA"
CodProvB = "A743"
Case "BELLAGIO"
CodProvB = "A744"
Case "BELLANO"
CodProvB = "A745"
Case "BELLANTE"
CodProvB = "A746"
Case "BELLARIA-IGEA MARINA"
CodProvB = "A747"
Case "BELLEDO"
CodProvB = "A748"
Case "BELLEGRA"
CodProvB = "A749"
Case "BELLINO"
CodProvB = "A750"
Case "BELLINZAGO LOMBARDO"
CodProvB = "A751"
Case "BELLINZAGO NOVARESE"
CodProvB = "A752"
Case "BELLIZZI IRPINO"
CodProvB = "A753"
Case "BELLOMBRA"
CodProvB = "A754"
Case "BELLONA"
CodProvB = "A755"
Case "BELLOSGUARDO"
CodProvB = "A756"
Case "BELLUNO"
CodProvB = "A757"
Case "BELLUNO VERONESE"
CodProvB = "A758"
Case "BELLUSCO"
CodProvB = "A759"
Case "BELMONTE CALABRO"
CodProvB = "A762"
Case "BELMONTE CASTELLO"
CodProvB = "A763"
Case "BELMONTE DEL SANNIO"
CodProvB = "A761"
Case "BELMONTE IN SABINA"
CodProvB = "A765"
Case "BELMONTE MEZZAGNO"
CodProvB = "A764"
Case "BELMONTE PICENO"
CodProvB = "A760"
Case "BELPASSO"
CodProvB = "A766"
Case "BELSITO"
CodProvB = "A768"
Case "BELVEDERE AL PO"
CodProvB = "A775"
Case "BELVEDERE DI SPINELLO"
CodProvB = "A772"
Case "BELVEDERE LANGHE"
CodProvB = "A774"
Case "BELVEDERE MARITTIMO"
CodProvB = "A773"
Case "BELVEDERE OSTRENSE"
CodProvB = "A769"
Case "BELVEGLIO"
CodProvB = "A770"
Case "BELVI"
CodProvB = "A776"
Case "BEMA

di **Icaroweb** » 08/05/07 14:17

Il codice inserito nel precedente messaggio è incompleto.
Manca parte del codice delle funzioni che servono per la ricerca e codifica del luogo di nascita.
Non è stato possibile inserire tutto il listato.
per eventuali chiarimenti o invio diretto del foglio excel e/o codice VBA . contattatemi URSO.LUIGI@VIRGILIO.IT

di **Anthony47** » 08/05/07 15:24

Complimenti!
Come semplificazione, avendo risolto col tuo codice le parti nome/cognome/data di nascita, potresti pensare di gestire i 4 crt del "codice comune" con un foglio che elenca tutti i comuni e il relativo codice. Se non hai questo elenco, io l' avevo prelevato dal sito della http://www.AgenziaEntrate.it, ma non per calcolare il codice fiscale (le sanzioni per errata dichiarazione del codice fiscale di Clienti e Fornitori sono abbastanza salate per scoraggiare la pratica del fai da te...)

Ciao.

di **Icaroweb** » 12/05/07 18:47

Ti ringrazio dei complimenti, ma non sono tutti del sottoscritto, infatti se cerchi in rete toverai diverse versioni di funzioni VBA per il calcolo del Codice Fiscale.
Ne ho visionati tantissimi, e alla fine ho contribuito alla creazione di quello in oggetto.
Da una prima verifica, sembra che sono riuscito a evitare errori nel calcolo, ma come ben saprai, un bag è sempre possibile.
Hai perfettamente ragione in merito alla pericolosità dei programmi faidatè in cose serie come fatturazioni, con il pericolo di multe molte salate.
Pertanto chiunque lo utilizzi, lo tenga in conto.
Chiedo a chi lo prova, di segnalarmi eventuali bug, e eventuali modifiche migliorative o di rettifica di errori.
Per quanto riguarda il calcolo del Luogo di Nascita, io ho una tabella inerente i codici comuni, trovata in rete, ed è stata utilizzata nel calcolo all'interno del Programmino, senza impegnare un foglio di lavoro di excel (Vedi le parti finali del listato), ma effettivamente non ho la possibilità di verificare la fonte iniziale (se ufficiale).
Ti sarei grato se puoi girarmelo.
Se sei interessato al programmino e/o File Excel con relativa funzione personalizzata, forniscimi il tuo indirizzo .
Ciao

di **Anthony47** » 12/05/07 23:16

Icaroweb ha scritto:.[..]..ma effettivamente non ho la possibilità di verificare la fonte iniziale (se ufficiale).
Ti sarei grato se puoi girarmelo.

Provo a rintracciarlo.

Ciao.

di **Dylan666** » 13/05/07 12:42

Icaroweb ha scritto:Il codice inserito nel precedente messaggio è incompleto.
Manca parte del codice delle funzioni che servono per la ricerca e codifica del luogo di nascita.
Non è stato possibile inserire tutto il listato.
per eventuali chiarimenti o invio diretto del foglio excel e/o codice VBA . contattatemi URSO.LUIGI[at]VIRGILIO.IT

L'uso di MP o mail per la soluzione di un problema è contrario alla logica del forum, in cui si discute pubblicamente per poter far patecipare tutti gli iscritti e lasciare la soluzione consultabile a chiunque si trovi davanti alla stessa situazione.
Inoltre lasciare la tua mail su un sito ti rende probabile bersaglio di spam.

di **Icaroweb** » 14/05/07 08:43

Sorry.

far patecipare tutti gli iscritti e lasciare la soluzione consultabile a chiunque si trovi davanti alla stessa situazione

Non è stato possibile inserire l'intero listato del Prog. VBA in quanto si verifica un errore nell'invio - tieni presente che l'intero listato è composto da 21483 righe di codice.
Tieni presente che nello specifico ci sono 10491 righe che contengono la codifica del luogo di nascita .
Volendo ottenere una funzione personalizzata VBA (Modulo VBA di Office per Exce) esportabile in qualunque file non ho utilizzato un database esterno di appoggio.

Se invece esiste un problema di compatibilità del forum, per discussioni di questo tipo, chiedo nuovamente scusa e mi defilo da subito.
Vogliate disabilitare il mio profilo.

Per il problema delle spam ti ringrazio della segnalazione .

di **Dylan666** » 14/05/07 10:28

Potresti mettere il file in condivisione su uno spazio di hosting gratuito tipo rapidshare ecc.

di **Anthony47** » 08/06/07 10:37

Per chi e' interessato alla soluzione proposta da Icaroweb con le mie osservazioni (messaggio del 8-5-07), l' elenco dei "codici dei Comuni" e' reperibile su http://www.agenziaentrate.it/ilwwcm/resources/file/ebbd4909f48fc4f/codicicatastali_ICI_oblazione_18_05_2007.pdf

Ripeto anche il mio suggerimento di non usare soluzioni "fai da te" per obblighi fiscali.

Ciao.

codice fiscale in excel

codice fiscale in excel

Funzione Excel per calcolo codice fiscale persona fisica

Codice Programma incompleto

Verifica funzione

Re: Codice Programma incompleto

Risposta al moderatore

Topic correlati a "codice fiscale in excel":

Chi c’è in linea