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

620

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Useita puukotettu Tampereella

        Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
        Tampere
        143
        2679
      2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

        https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
        Maailman menoa
        361
        1984
      3. Leipivaaran päällä on kuoleman hiljaista.

        Suru vai suuri helpotus...
        Puolanka
        40
        1717
      4. Kuka rääkkää eläimiä Puolangalla?

        Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
        Puolanka
        33
        1584
      5. Meneeköhän sulla

        oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
        Ikävä
        28
        1360
      6. Jos ei tiedä mitä toisesta haluaa

        Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
        Ikävä
        94
        1203
      7. Määpä tiijän että rakastat

        Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
        Ikävä
        54
        1163
      8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

        Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
        Hindulaisuus
        327
        937
      9. Jumala puhui minulle

        Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
        Ikävä
        110
        928
      10. Annan meille mahdollisuuden

        Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
        Ikävä
        53
        772
      Aihe