Tuolla aikaisemmin oli makro millä saa nappia painamalla tallennettua tiedoston ja se hakee soluista sen nimen, mutta saako sitä tallentumaan "korpunkuvasta" tai niin että kun sammuttaa tiedoston niin se kysyy ne normaaalit kysymykset ja jos siihen vastaa ok niin se ajaisi sen makron.
Tallenna
kavi
8670
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 8
Vanhimmat
makroa tarvitsee?
Kun tiedosto on avattu ja painaa korpunkuvaa niin tiedosto tallentuu samalla nimellä millä se on avattu eikä makrossa olevalla solusta haettavalla nimellä.
pikakuvakkeet itsessään jo ole makroja, eli jos haluaisi niihin lisätä jonkin oman makron pitäisi löytää se valmis makro. Sori, mä vaan arvailen enkä oikeesti tiedä mittään.
luehan mun aikaisempia vastauksia alempaa.
Ratkaisu on Workbook_BeforeSave tapahtuma. Lisää tapahtuma ThisWorkBook moduuliin. Tutkaile hiukan ohjetta ja Piece of Cake
Niin ei tarvitsisi kysellä.
Hivenen takkuilee heittää minut ulos ohjelmasta mutta tallentaa niin kuin pitäisikin, täytyy tutkia ohjeita kun ehdin.
Elikä yritykseni oli tälläinen mutta se ei toimi eikä varmaankaan pitäisikään toimia mutta en osaa hakea siihen ohjetta joten jos viitsisit auttaa Kunde tai joku muu.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim soluf1 As String
soluf1 = Range("AH2")
ActiveWorkbook.SaveAs Filename:="\" & soluf1 & ".XLS", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
ThisWorkbook moduuliin... :-)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo virhe
Application.EnableEvents = False
Cancel = True
ActiveWorkbook.SaveAs Filename:="C:\" & Range("AH2") & ".xls"
poistu:
Application.EnableEvents = True
Exit Sub
virhe:
Resume poistu
End Sub
Kiitoksia paljon hyvä että siinä oli myös nuo keskeytykset.