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

1869

    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. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      138
      10722
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      52
      5140
    3. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      45
      2353
    4. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      108
      2170
    5. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      29
      2053
    6. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      13
      1661
    7. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      41
      1482
    8. Tiedän kuka sinä noista olet

      Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta
      Ikävä
      29
      1164
    9. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      34
      1123
    10. Rakastuminenhan on psykoosi

      Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk
      Ikävä
      55
      1024
    Aihe