tietojen lukumäärä?

MarXo

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.

3

351

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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 :-)

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

    Luetuimmat keskustelut

    1. Zelenskyi ei suostunut nöyrtymään Trumpin ja Vancen edessä, siksi meni pieleen

      Trumppia täytyy imarrella, silloin homma toimii aina. Tähän Zelenskyi ei suostunut.
      Maailman menoa
      656
      4770
    2. Harmi että

      Pidät niin vastenmielisenä. Olen minäkin välissä ollut ihan kamala sinulle ja ihmetellyt miten voit minusta tykätä. Se o
      Ikävä
      20
      2245
    3. Ajattele miten

      Paljon ottajia sinulla olisi
      Ikävä
      103
      1424
    4. En rehellisesti usko et oisit

      Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos
      Ikävä
      23
      1326
    5. Tekisitkö jotain toisin

      Kaivattusi kanssa alusta alkaen? 😍
      Ikävä
      87
      1325
    6. Trump näytti slipoveri-ukolle kaapin paikan!

      Slipoveri-ukko Ukrainan presidentti Volodimir Selenskyi meni tapaamaan valkoiseen taloon Trumppia ilman kunnon tuliaisia
      Kajaani
      127
      1101
    7. Nainen, olet jotenkin lumoava

      Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel
      Ikävä
      67
      1036
    8. Kun Zele jenkeissä kävi

      Enää ei Zele saanutkaan miljardeja ilmaista rahaa niin helposti. Läksyttivät oikein kunnolla pientä miestä ja joutui poi
      Maailman menoa
      252
      946
    9. Jos saan sinut elämääni

      niin minun täytyy nukkua ihan ensimmäiseksi 2vk putkeen. Sopiiko se sinulle? Väsynyt olen ollut ja niin levollinen olo
      Ikävä
      75
      945
    10. Tulee ikävä

      Ja toivon että saan anteeksi ❤️
      Ikävä
      71
      932
    Aihe