You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] AutoFill in base a condizioni-Rispondi a: [RISOLTO] AutoFill in base a condizioni
Rispondi a: [RISOLTO] AutoFill in base a condizioni2019-05-01T15:43:34+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] AutoFill in base a condizioni Rispondi a: [RISOLTO] AutoFill in base a condizioni

AvatarKris_9951
Partecipante
    Post totali: 169

    Ho rimediato il controllo dippioni con questa macro:-)

    Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveSheet.ListObjects(“Tabella2”)
    For i = 2 To .Range.Rows.Count
    For j = i + 1 To .Range.Rows.Count
    confronto1 = .ListColumns(4).Range(i) & .ListColumns(5).Range(i)
    confronto2 = .ListColumns(4).Range(j) & .ListColumns(5).Range(j)
    If confronto1 = confronto2 Then
    MsgBox “Duplicato: ” & confronto1, vbInformation, “VERIFICA DUPLICATI”
    End If
    Next
    Next
    End With
    End Sub

     

    Grazie mille!!! :-)