VBA koodin suomennos :)

timpero_

Olen täysin aloittelija vba:n kanssa. Voisiko joku ihana ihminen suomentaa mitä seuraavassa koodipätkässä tapahtuu? Minusta se näyttää siltä että välilehdeltä nimeltään DATA1 valitaan kaikki solut, sitten ne kopioidaan, sitten ne liitetään(mutta minne??) ja lopuksi ne tyhjennetään. Eli minun järjelläni ihan yhtä tyhjän kanssa?? :D Joten luultavasti en ymmärrä koodia oikein :) Voisiko joku viisaampi auttaa? :)

Sheets("DATA1").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("E6:H10000").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

1

107

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Sheets("DATA1").Select
      Cells.Select
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues

      Data1 solujen arvot muutetaan arvoiksi.
      eli jos esim. solussa on kaava =A1 A2 kaava poistetaan ja kaavan tilalle laskukaavan tulos

      Range("E6:H10000").Select
      Application.CutCopyMode = False
      Selection.ClearContents

      Alueen E6:H10000 sisältö tyhjennetään

      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

      suojataan taulukko

      hieman selkeemmin sama

      With Sheets("DATA1")
      .Cells.Copy
      .Range("A1").PasteSpecial Paste:=xlPasteValues
      .Range("E6:H10000").ClearContents
      .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
      End With


      Keep EXCELing
      @Kunde

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

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      176
      11175
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      54
      5318
    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
      46
      2555
    4. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      37
      2246
    5. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      13
      1771
    6. 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
      42
      1664
    7. 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ä
      31
      1310
    8. 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
      35
      1256
    9. Tulemmeko hyvin

      Toimeen ja juttuun keskenämme? Luulen, että sopisit hyvin siihen ☀️ympäristöön, paljon kaikkea erilaista.♥️mietin tätä s
      Ikävä
      6
      1066
    10. Daniel Nummelan linjapuhe 2025

      Kansanlähetyksen toiminnanjohtajan Daniel Nummelan linjapuhe tänään. Rehellistä analyysiä mm. evlut kirkosta ja piispo
      Luterilaisuus
      102
      991
    Aihe