Taulukoiden vertailu

epätietoinen99

Miten verrataan kahta taulukkoa solu solulta toisiinsa, niin että kolmanteen taulukkoon tulee tieto erovaisuudesta (esim "virhe" ao. soluun)

Tämähän onnistuu jos-funktiolla, mutta miten soluviittaukset saisi absoluuttisen absoluuttiseksi, niin että vertailtavien taulukoiden rivejä voi lisätä, poistaa ja muutenkin korjata kesken vertailun. Taulukon suojaus tai absoluuttiset viittaukset eivät pure. Lisäksi kaava pitää saada helposti kopioitua tarpeeksi laajaksi

2

1837

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • moduuliin...
      liitä koodi nappiin
      muuta taulukoiden nimet sopiviksi

      Public Sub EtsiErot()
      Dim solu As Range
      On Error Resume Next
      Application.ScreenUpdating = False
      Worksheets("Sheet3").Cells.Clear
      For Each solu In Worksheets("Sheet1").UsedRange
      If Not solu = Worksheets("Sheet2").Cells(solu.Row, solu.Column) Then
      Worksheets("Sheet3").Cells(solu.Row, solu.Column) = "virhe"
      End If
      Next
      For Each solu In Worksheets("Sheet2").UsedRange
      If Not solu = Worksheets("Sheet1").Cells(solu.Row, solu.Column) Then
      Worksheets("Sheet3").Cells(solu.Row, solu.Column) = "virhe"
      End If
      Next
      Worksheets("Sheet3").Activate
      Range("A1").Select
      Application.ScreenUpdating = True
      End Sub

      • epätietoinen99

        ...kovasti!

        Jätin lopusta lukien rivit 3 ja 4 pois, joten kun taulukot ovat omissa ikkunoissaan, voidaan tutkittavaksi ottaa mikä tahansa alue!

        Hienoa että löytyy lahjakkaita ja avuliaita experttejä, jotka jaksavat vastailla tällaisiin harrastelijoiden pulmiin.

        (tällä kelpaa elvistellä töissä ainakin kesälomiin asti!)


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

    Luetuimmat keskustelut

    1. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      148
      2845
    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      94
      1569
    3. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      140
      1474
    4. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      361
      1360
    5. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      117
      1314
    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      99
      1165
    7. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      15
      881
    8. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      47
      840
    9. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      254
      787
    10. Mikä elokuva kuvaa ikävöityä henkilöä ja sinua?

      Otsikossa aloitus.
      Ikävä
      55
      754
    Aihe