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

127

Ää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. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      392
      2163

    2. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      63
      1333

    3. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1320

    4. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      137
      1208

    5. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      88
      1153

    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      98
      1020

    7. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      133
      944

    8. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      890

    9. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      47
      821

    10. Sitä saattaa vähän hölmöillä

      rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.
      Ikävä
      60
      770
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt