You are here:---Rispondi a: [RISOLTO] Controllo doppioni
Rispondi a: [RISOLTO] Controllo doppioni2019-04-28T15:22:26+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Controllo doppioni Rispondi a: [RISOLTO] Controllo doppioni

BySalvBySalv
Amministratore del forum
    Post totali: 453

    Ciao ecco la mia soluzione, sempre spartana come al solito, non fa ancora l’esclusione dei codici si deve vedere la lista.

    la prima nel modulo “Questa_Cartella_di Lavoro” o “ThisWorkBook”

    Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
    Dim Cod, dd
    If Not Intersect(Target, [E:E]) Is Nothing Then
        r = Target.Row
        c = Target.Column
        If r < 15 Then Exit Sub
        Tot = Target
        Cod = Cells(r, c - 2)
        dd = Cells(r, c - 1)
        Call VediDopp1(Cod, dd)
    End If
    End Sub

    la seconda nel modulo standard

    Sub VediDopp1(Cod, dd)
    Dim r, c, x, y, z, n, d, sh, fg
    fg = ActiveSheet.Name
    Application.ScreenUpdating = False
    For x = 1 To Sheets.Count
        sh = Sheets(x).Name
        Select Case sh
            Case "FoglioDaEscludere1", "FoglioDaEscludere2", "TempData"
            Case Else
                Sheets(sh).Select
                For y = 15 To Cells(Rows.Count, 3).End(xlUp).Row
                    If Cells(y, 3) = Cod Then
                        For z = 6 To 25
                            If Cells(y, z) <> "" Then d = d & Cells(y, z) & ","
                        Next z
                    End If
                Next y
        End Select
    Next x
    Sheets(fg).Select
    Application.ScreenUpdating = True
    If d = "" Then
        MsgBox "Seriali assegnati al codice " & Cod & "-" & dd & Chr(10) & Chr(10) & "Nessuno", vbInformation, "Lista Seriali assegnati"
    Else
        MsgBox "Seriali assegnati al codice " & Cod & "-" & dd & Chr(10) & Chr(10) & d, vbInformation, "Lista Seriali assegnati"
    End If
    End Sub

    Vai in un foglio clienti e seleziona la cella sotto “TOT”, non ho ancora previsto di non funzionare con l’intestazione, se vedi doppio numero e perche lo hai già inserito in un altro foglio clienti, potrei anche far comparire in quale foglio è stato inserito il seriale.
    ti allego anche il link al file.

    http://www.filedropper.com/fogliidenticifunziona

    fai sapere, ciao By Sal :Bye:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi