Mulla on asiakirja, missä on nappi "Uusi malli". Nappia painamalla pitäisi avautua tuo malli.xls ja asiakirjan, jossa nappia painetaan pitäisi sulkeutua.
Sub Uusi_Malli()
Application.ScreenUpdating = False
Workbooks.Open "C:\Malli\Malli.xls"
End Sub
Olen kokeillut monella tavalla, mutta ei vaan ole onnistunut..
Sub Uusi_Malli()
Application.ScreenUpdating = False
Workbooks.Open "C:\Malli\Malli.xls"
End Sub
Olen kokeillut monella tavalla, mutta ei vaan ole onnistunut..
Vastaukset 3
Vanhimmat
napissa pitää koodi olla Click-tapahtumassa
Sub Uusi_Malli_Click()
Application.ScreenUpdating = False
Workbooks.Open "C:\Malli\Malli.xls"
Application.ScreenUpdating = true
End Sub
Vielä jäi tuosta puuttumaan.. Eli sen nykyisen asiakirjan pitäisi sulkeutua samalla kun se uusi avautuu.. Tai ennen sitä, sen jälkeen.. Kunhan avoimeksi ei jää muuta, kuin tuo malli.xls..
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Workbooks.Open "C:\Malli\Malli.xls"
ThisWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub