Pieni ongelma ilmaantui... En saa värkättyä millään makroa, joka nappia1 painamalla tallentaa ko. työkirjan kansioon c:/hsu/tytot92/ siten, että soluissa Tytot!F1 ja Tytot!F2 olevista tiedoista muodostuu tallennettava nimi. Miten asia ratkeaa?
Tallenna nimellä -makro?
Janina
1331
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
Sub TallennaNimellä()
Sheets("Tytot").Select
Dim SoluF1 As String
Dim SoluF2 As String
SoluF1 = Range("F1")
SoluF2 = Range("F2")
ChDir "C:\hsu\tytot92"
ActiveWorkbook.SaveAs Filename:= _
"C:\hsu\tytot92\" & SoluF1 & SoluF2 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub