Saman tiedon vertailu kahteen sarakkeeseen

Anonyymi

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

0

523

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

      Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

      Luetuimmat keskustelut

      1. Täti-ihminen Sofia ja nuori kanadalainen lätkänpelaaja

        Sofialla on kiikarissa Logan Thompson 25v, Las Vegasissa pelaava kanadalaispelaaja. Tätä se kai tarkoitti, kun sanoi Seiskalle, ettei tiedä kuinka pit
        Kotimaiset julkkisjuorut
        216
        4150
      2. Some pillastui: Farmin voitto pedattiin Teemulle?!? "Törkee temppu" "Taina oli ihan vailla mahiksia"

        Ohhoh, Farmi-kaksintaistelu ja finaali on saanut tunteet kuumiksi - ja ehkä syystäkin Suomi24 Keskustelu -palstalla... Olisiko Tainalla ollut mahdolli
        Suomalaiset julkkikset
        33
        3797
      3. Suomessa todettu ilmeisesti eka apinarokkotapaus

        Euroopassa matkailleella miehellä. https://www.is.fi/kotimaa/art-2000008841676.html
        Maailman menoa
        134
        2033
      4. Voiko Martinaa muuta kuin nauraa

        Baha oli "tiedän, että ollaan loppuelämä yhdessä."😂 Pikkarainen oli " tässä on nyt se oikea ihminen, en luovu susta koskaan."😂 Lippispojasta sanoo "
        Kotimaiset julkkisjuorut
        362
        1822
      5. Mitäs ajattelisit

        Jos saisit häneltä tänään pienessä sievässä lähetetyn viestin puhelimeen "haluan nähdä" tai "ikävä"?
        Ikävä
        109
        1312
      6. Sofia ilmestyi eilen illalla instaansa, on silmät surulliset ja koko kasvojen olemus .

        Ei ole koskaan helppoa eroa olemassa, vaikka kuinka sitä toisin jotkut väittävät.
        Kotimaiset julkkisjuorut
        54
        953
      7. Onko kaivatullasi jokin taito

        millä saada sinut polvilleeen?
        Ikävä
        37
        874
      8. Se mitä meidän välillämme oli

        Oli vasta lämmittelyä. Haluatko sukeltaa syvään päähän ✨
        Ikävä
        49
        760
      9. Ajattelin valvoa vielä tunnin

        hänestä haaveillen..
        Ikävä
        56
        737
      10. Voitko kertoa rakas

        mikä sen muutoksen sinussa aiheutti?
        Ikävä
        73
        720
      Aihe