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

95

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. No Purra missäs ne työpaikat ovat?

      Niinhän sinä väitit, että sinun puuhasi lisäävät 100 000 uutta työpaikkaa. Oliskohan jo aika myöntää että olet ollut vää
      Maailman menoa
      334
      2133

    2. VOIKO MITÄÄN MIELIPUOLISEMPAA ENÄÄ EHDOTTAA?

      NATO:n pääsihteeri Mark Rutte ja EU:n Kaja Kallas ehdottavat että euroopan maiden eläkevarat ja Terveydenhoito varat käy
      Maailman menoa
      324
      1365

    3. MTV: Harvinainen haastattelu: Peltsi paljastaa Osmon elämästä julkkiksena: "Aika paljon tullut..."

      Ihanat Peltsi ja Osmo . Tällä isällä ja pojalla on kyllä erityisen lämmin suhde. Isä ja poika kertovat väleistään ja pa
      Perhe
      9
      1013

    4. Mitä haluat minusta

      Jos olet varattu?
      Ikävä
      68
      963

    5. Sofiallako rakkaus rakoilee? Missä rillirakas?

      Ukkeli taisi saada tarpeekseen Sofiasta ja lähti vaimon ja vauvan luo.
      Kotimaiset julkkisjuorut
      186
      958

    6. Tiedän meidän molempien pitävän toisistamme

      Siitä huolimatta näen tuhat eri vaihtoehtoa siitä, mikä menee pieleen yhteydenoton jälkeen. En kiusaa, härnää tai lupaa
      Ikävä
      33
      945

    7. Oletko vielä

      Kiinnostunut minusta vai onko tunteet lopahtaneet 🤔
      Ikävä
      52
      914

    8. Voi kun tietäisin mitä

      Sinä olet. Ajattelen sinut hyvin helläksi ja välittäväksi. Siihen rakastuin. Mutta sitten se toinen puoli, miksi?
      Ikävä
      51
      828

    9. Huomaatko että

      Olen kiinnostunut seksielämästäsi. Mitä uskot sen taustalla olevan?
      Ikävä
      110
      804

    10. Kerro yksi positiivinen kokemus kaivatusta

      Voi tunnistaa. Jos ei ole positiivista, voi kertoa negatiivisen. Ne ehkä jää mieleen paremmin.
      Ikävä
      35
      746
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt