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

361

    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. En minä kyllä enää odota sinua

      Olet siellä sen harmaan kanssa. Niin, annoit minun nähdä lämpimät tunteesi siitä huolimatta. Se merkitsi kyllä paljon. O
      Ikävä
      45
      2321
    2. Kehutaan vaihteeksi Perussuomalaisia

      Perussuomalaiset ovat olleet melkoisen lokakampanjoinnin kohteena, vaikka ovat saaneet paljon hyvää aikaiseksi. Nyt on
      Maailman menoa
      43
      2117
    3. Joka kolmas työtön on työkyvytön

      Viime vuonna työnhakuvelvoitteen ulkopuolella oli noin kolmannes työttömistä työnhakijoista. Huhheijaa, mihin suomalais
      Maailman menoa
      204
      1636
    4. Jos joku luulee että kaikki käy

      Sanon vain tämän. Minun kanssani ei neuvotella. Minun kanssani eletään tasavertaisesti. Jos se on liikaa, niin ovi rinn
      Ikävä
      68
      1620
    5. Niin surullinen

      onnettomuus taas. Voimia ihan kaikille läheisille,kavereille ja kouluun 🙏
      Lapua
      22
      1423
    6. Sakin hivutus - ilmiö

      Miten tuollainen tuollainen ilmiö kuin ”sakin hivutus” syntyy? Mitä syitä ilmiön syntymiseen tarvitaan? Onko sakissa jok
      80 plus
      86
      1384
    7. Paloautoko se oli kolarissa Juntusrannan risteyksessä?

      Oli kuva paloautosta nettijutussa.
      Suomussalmi
      15
      1372
    8. Roiskeläpät takaisin niin alkaa lasit kestämään

      "Tuulilaseja hajottava talvi-ilmiö on ehkä ratkennut" Tämän päivän autoissa kun on esimerkiksi vanhempaa autokalustoa s
      Yleistä autoilusta
      5
      1363
    9. Ei ole rohkeutta tulla jututtamaan

      Voidaan me nähdä ja tervehtiä, sitäkin harvoin, mutta iso kynnys on edes mennä lähelle ja kysyä kuulumisia. Ymmärrät var
      Tunteet
      8
      1281
    10. Julkinen saunatilanne Haapavedellä, tämä on täyttä paskaa!

      Eilen Haapaveden uimahallin saunassa koettu tilanne oli täysin käsittämätöntä ja helvetin järkyttävää. Ladyboy harjoitti
      Haapavesi
      19
      1244
    Aihe