Saman tiedon vertailu kahteen sarakkeeseen

Anonyymi kirjoitti:

Moi!
Olisko täällä apua joltain Excel taitajalta, miten pystyn vertailemaan kahta eri saraketta, ennen kun virhe ilmoitus tulee?
Eli kyseessä nimen vertailu. B sarakkeessa on etunimi ja C sarakkeessa sukunimi.
Jos etunimi jo löytyy, pitäisi vertailu siirtyä sukunimeen. Voisiko joku auttaa? Tämä koodi vertaa ainoastaan etunimeä.. (koodi kopioitu jostain) 😒 Kiitos avusta!!


Private Sub Worksheet_Change(ByVal Target As Range)

Dim son As Long, onay, bul As String
Dim ara As Range

If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
son = Cells(Rows.Count, "B").End(xlUp).Row
On Error Resume Next
If WorksheetFunction.CountIf(Range("B2:B" & son), Target) < 1 Then
Exit Sub
End If
If WorksheetFunction.CountIf(Range("B2:B" & son), Target) > 1 Then



bul = Empty
Set ara = Range("B2:B" & son).Find(Target, , xlValues, xlWhole)
If Not ara Is Nothing Then
adres = ara.Address
Do
bul = bul & ara.Row & " - " & Cells(ara.Row, "B") & Chr(10)
Set ara = Range("B2:B" & son).FindNext(ara)
Loop While Not ara Is Nothing And ara.Address <> adres
End If
MsgBox "This record already exists." & vbLf & "" & vbLf & "Row : Records :" & vbCrLf & Chr(10) & bul & vbLf & " ", vbCritical, ""

Target.ClearContents
Target.Activate
End If
End Sub

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä