Excel: Tallennus solun mukaan

24 June 2008

Pistetään tämmöinen pikku vinkki jos jollekulle olisi hyötyä. Ideana on tallentaa Excel taulukko solun A1 mukaan, jossa on päivämäärä. Tiedoston nimi muodostuu solusta olevasta päivämäärästä ja loppu liitteestä eli tiedoston nimeksi tulee jotain “23.6.2008 myynti.xls”. Makroa on helppo muokata niin että myynti.xls jälkiliite saadaan napattua jostain toisesta solusta. Excel 2007 versiossa tiedoston voisi tallentaa xlsm muodossa.

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
        Dim Tied As String, uusiTied As String
        Tied = Range("A1").Value
        uusiTied = Tied & " myynti.xls"
        ChDir ActiveWorkbook.Path
        ActiveWorkbook.SaveAs Filename:=uusiTied
End Sub

Posted in Tietokoneet | No comments »