Condividi:        

codice fiscale in excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

codice fiscale in excel

Postdi 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
bubbalucky
Utente Junior
 
Post: 61
Iscritto il: 23/02/05 15:27

Sponsor
 

Postdi 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
Avatar utente
Dylan666
Moderatore
 
Post: 39988
Iscritto il: 18/11/03 16:46

Postdi bubbalucky » 23/04/07 17:44

ok grazie, provo a smanettare ancora un po' on line
bubbalucky
Utente Junior
 
Post: 61
Iscritto il: 23/02/05 15:27

Funzione Excel per calcolo codice fiscale persona fisica

Postdi 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
Icaroweb
Newbie
 
Post: 4
Iscritto il: 08/05/07 12:16
Località: COSENZA

Codice Programma incompleto

Postdi 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
Icaroweb
Newbie
 
Post: 4
Iscritto il: 08/05/07 12:16
Località: COSENZA

Postdi 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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Verifica funzione

Postdi 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
Icaroweb
Newbie
 
Post: 4
Iscritto il: 08/05/07 12:16
Località: COSENZA

Postdi 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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Codice Programma incompleto

Postdi 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.
Avatar utente
Dylan666
Moderatore
 
Post: 39988
Iscritto il: 18/11/03 16:46

Risposta al moderatore

Postdi 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 .
Icaroweb
Newbie
 
Post: 4
Iscritto il: 08/05/07 12:16
Località: COSENZA

Postdi Dylan666 » 14/05/07 10:28

Potresti mettere il file in condivisione su uno spazio di hosting gratuito tipo rapidshare ecc. ;)
Avatar utente
Dylan666
Moderatore
 
Post: 39988
Iscritto il: 18/11/03 16:46

Postdi 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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "codice fiscale in excel":


Chi c’è in linea

Visitano il forum: Nessuno e 123 ospiti