Giacomo Ardito (WvMF240216), 02/05/2024 17:20:Allego link per scaricare il file
Private Sub CmbComuneN_Change() Dim i As Long For i = 1 To 8455 If Sheets("ComuniNazioni").Cells(i, 6) = CmbComuneN Then TextBox21 = Sheets("ComuniNazioni").Cells(i, 8) TxtCapN = Sheets("ComuniNazioni").Cells(i, 7) End If Next i End Sub Private Sub CmbComuneR_Change() Dim i As Long For i = 1 To 8455 If Sheets("ComuniNazioni").Cells(i, 6) = CmbComuneN Then TextBox22 = Sheets("ComuniNazioni").Cells(i, 8) TxtCapR = Sheets("ComuniNazioni").Cells(i, 7) End If Next i End Sub