Tallennus-asiaa

Savetusta

Miten saisin toteutettua sellaisen kuvion, että Excel ehdottaa työkirjan tallennusnimeksi B2 solun sisältöä työkirjasta 1?
Eli kun käyttäjä valitsee tallenna nimellä tulee Tiedoston nimi kohtaan EHDOTUKSEKSI solun B2 sisältö.

Toinen asia: Miten saan Excel taulukon solussa näkymään sen päivämäärän jolloin taulukko on tallennettu viimeksi?

Kiitos jälleen jos apuja löytyisi!

2

165

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
      • tallennus oletusnimellä
        vaihda kansio sopivaksi
        et maininnut mikä versio käytössä ja tää nyt vain yleisenä laittaa oletuksena solun B2 tiedostonimeksi (vain tiedostonnimi soluun, ilman päätettä).
        jos haluat sitten tallentaa ilman makroja taikka tekstitiedostona yms. niin vaatii reippaammin koodia, mutta onnistuu kyllä ilman turhia herjoja ja klikkailuja...

        moduuliin...

        Sub Tallenna()
        ChDir "E:/Excel"
        Application.Dialogs(xlDialogSaveAs).Show Worksheets("Sheet1").Range("B2")
        End Sub

        tokaan kyssäriin kanssa simppeli vastaus

        ThisWorkBook moduuliin...

        Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        Worksheets("Sheet1").Range("A1") = Now()
        End Sub

        jos perut tallennuksen päivittää kumminkin, mutta käsiteltävissä tuokin koodaamalla....
        Luultavasti riittänee sulle näin?


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

    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
      541
      2455
    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ä
      66
      1393
    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
      1340
    4. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      96
      1260
    5. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      137
      1218
    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      105
      1098
    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
      984
    8. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      910
    9. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      47
      841
    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
      780
    Aihe