Hei,
Saako jollain kaavalla välilehtien "1" ja "2" sarakkeissa A olevat tiedot välilehden "3" sarakkeeseen A niin ETTEI sinne tule tietoja tuplana. Eli siis jos sama tieto esiintyy sekä välilehdessä "1" että "2" niin välilehteen "3" tulee vain yhden kerran tuo tieto.
tietojen lukumäärä?
3
347
Vastaukset
hakee nyt Taul1 ja Taul2 A-sarakkeen tiedoista Taul3 A-sarakkeeseen uniikit tiedot
moduuliin...
Sub Uniikit()
Dim Vika As Double
Dim eka As Range
Dim toka As Range
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("Taul1").Activate
Vika = Range("A65536").End(xlUp).Row
Set eka = Range("A1:A" & Vika)
Worksheets("Taul2").Activate
Vika = Range("A65536").End(xlUp).Row
Set toka = Range("A1:A" & Vika)
Sheets("Huuhaa").Delete
Worksheets.Add().Name = "Huuhaa"
Worksheets("Huuhaa").Activate
Range("A:A") = ""
Range("A1") = "uniikit"
eka.Copy Range("A2")
Vika = Range("A65536").End(xlUp).Row 1
toka.Copy Range("A" & Vika)
Worksheets("Taul3").Activate
Sheets("Huuhaa").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
Range("A1").Select
Sheets("Huuhaa").Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Set eka = Nothing
Set toka = Nothing
End Sub
Keep Excelling :-)- MarXo
Siis mitä ihmettä? Mihin tuollainen pitäisi kirjoittaa?
- Nimimerkki
MarXo kirjoitti:
Siis mitä ihmettä? Mihin tuollainen pitäisi kirjoittaa?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Hetken jo luulin, että en ikävöi sinua koko aikaa
Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r345308Outoa että Trump ekana sanoutui irti ilmastosopimuksesta
kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.4842474Eli jos toisen hiki haisee ns. omaan nenään siedettävältä
Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳271219JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!
Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t5992En tiedä miksi kerroin sinusta täällä
Siksi kai, kun meidän juttu on niin alkuvaiheessa, etten voi vielä puhua siitä kenellekään.16947Oho! Queen of Fucking Everything villitsee - Ikean sininen luottotuote nappasi hervottoman idean!
Ikea on ajan hermoilla! Aika hauska idea ja Queen of Fucking Everything -ajatus toimii hyvin tässäkin. Lue lisää: http7924Nainen, tunnetko saman kuin minä
Syvän yhteyden välillämme, silloin kun se tunne tulee. Niinä hetkinä minulla on niin järjettömän suuri ikävä sinua. Ikäv41802HS - Yllätyskäänne Eagle S -tutkinnassa, Supo pitää onnettomuutena
HS:n mukaan esitutkinta joudutaan todennäköisesti keskeyttämään syyttäjän päätöksellä mikäli näyttöä tahallisuudesta ei193774Ei ois kyllä kivaa
Jos miestä ei kiinnostais ollenkaan minun seura. Aina huitelis ties missä tai olis omassa seurassaan. Kaikki muu ois kiv3764Siellä taas pyörin
Nimittäin sinun paikkakunnalla mies. Mutta en vieläkään nähnyt sinua. Miksi sinä olet minulta aina piilossa?8713