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

1876

    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. Ketä ikävöit?

      Tuntomerkkejä jos täällä oikeat kohtaavat❤️
      Ikävä
      159
      3465
    2. Juniorivalmennus Jokereissa..

      Mitä hittoa siellä seurassa oikein tapahtuu?? Tämän kauden U14 ikäluokkaan on mahdutettu kaksi päävalmentajaa. Tälle kau
      Nuorten jääkiekko
      61
      2725
    3. Ammuskelua taas

      Keskipohjanmaa tietää kertoa että Yläpubin hujakoilla ammuskeltu lauantain vastaisena yönä.
      Kokkola
      33
      2110
    4. Et saa mua ikinä

      Oma vikasi. Naiselta.
      Ikävä
      130
      1687
    5. Päivämääriä

      Minä päivämääränä näit kaivattusi viimeksi?
      Ikävä
      78
      1554
    6. Seksikkäin asu mikä päällä olet nähnyt kaivattusi ?

      Seksikkäin asu mikä yllä olet nähnyt kaivattusi ?
      Ikävä
      83
      1544
    7. Introverttinä osastolla

      Yhdellä lääkäritapaamisella hoitaja valitti lääkärille etten tee mitään muuta kuin makaan ja ulkoilen. Kävin kuitenkin s
      368
      1472
    8. Kerro mulle mitä pitäs tehdä

      Sun mielestä? Anna neuvo?
      Ikävä
      97
      1215
    9. Toivotko, että

      hän tulisi juttelemaan sinulle, vai lähestytkö mieluummin itse?
      Ikävä
      89
      1125
    10. On tullut aika lukita kaupunginjohtajan ovi, ja hlö pihalle

      Ei kahta eikä yhtäkään selitystä, ylimielisyys on kääntyi varomattomuudeksi, ja kaupungin jo ennestään kuihtuva talou
      Pyhäjärvi
      195
      1106
    Aihe