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
Saman tiedon vertailu kahteen sarakkeeseen
Anonyymi
0
634
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
SDP haluaa LISÄÄ veroja bensa-autoille!
Sdp:n vaihtoehtobudjetti esittää polttomoottoriautoille lisää veroja Sdp esittää tuoreessa vaihtoehtobudjetissaan verot9017100Riikka se jytkytti BKT:stä nyt 0,3 prosenttia pois
Ja vain kolmessa kuukaudessa! Vuositasollahan tuo tarkoittaa reilun prosentin pudotusta. Pärjäisi varmaan lasketteluss369900Mies, näen sinua hetken
ja olet mielessä ikuisuuden. Toisia näen ikuisuuden ja he eivät jää mieleen hetkeksikään. Muistan jokaisen kohtaamisen284871Riikan perintö: ennätysvelka, ennätystyöttömyys ja ennätysverotus
Tavallisen keskituloisen suomalaisen verotus on kireintä vuosikymmeniin, ja ensi vuonna palkansaajien käteen jää vieläki2333865Antti Lindtman kiitti valtiovarainministeri Purraa
Ministeri Purra kertoi ottavasa vastuun EU:n alijäämämenettelyyn joutumisesta. Hän myös sanoi tietävänsä, että Lindtman333123Suomalaisten enemmistö on (ateisteja / fiksuja / sosialisteja)
Tai jokin noiden yhdistelmä, koska S-ryhmän markkinaosuus päivittäistavarakaupasta on yli 50 prosenttia.142820Riikka Purra on ihana, jämpti
Hän yrittää saada Suomen taas kuntoon. Sanoo asiat suoraan, eikä piiloudu kapulakielen taakse. Riikan kaltaisia päättä1102771Brittiläinen vasemmistolehti: Sanna Marin oli vihdoin rehellinen
Nyt tulee pahasti lunta tupaan Seiskan tähtitytölle. Ex-pääministerin kirjaa arvostellaan latteuksista ja itsekehusta.252712"Purra löylytti oppositiota", sanoi naistoimittaja Pöllöraadissa
Kyllä, Purra tekee juuri sitä työtä mitä hänen tuossa asemassa pitää tehdä, hän antaa oppositiolle takaisin samalla mita502607Henkilökohtaisia paljastuksia Dubaista - Kohujulkkis Sofia Belorf on äitipuoli ja puoliso!
Tiesitkö, että Sofia on äitipuoli ja rakastava puoliso? Sofia Belorf saa oman sarjan, jossa seurataan hänen Bling Bling752470