excel açılışta otomatik olarak tam ekran çalışması

Katılım
13 Mayıs 2007
Mesajlar
16
Excel Vers. ve Dili
excel 2003 vba
Merhabalar bi arkadaşın çalışmasından

vba kodlarını kendi çalışmama uygulamak istedim ama nedense olmadı

Sub Auto_Open()
Application.DisplayFullScreen = True
Sheets("Kayıt Giriş").Select
Range("c1").Select
End Sub

excel çalışmamın ilk açılışta otomatik olarak tam ekran başlamasını istiyorum bunun için ne yapabilirim..
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
Bu şekil yeterli.(Kodları module yerleştiriniz)
Sub auto_open()
Application.DisplayFullScreen = True
End Sub
Sub auto_close()
Application.DisplayFullScreen = False
End Sub
 
Katılım
13 Mayıs 2007
Mesajlar
16
Excel Vers. ve Dili
excel 2003 vba
çok çok teşekkür ederim.. kod işe yaradı...

iyi çalışmalarr. kolay gelsinnnn... arkadaşlarrr..

walla sizin sayenizde excelle yatıp excelle kalkmaya başladım..
rüya da bile formüllerle uğraşıyorum yaaaa

:)))
 
Katılım
13 Mayıs 2007
Mesajlar
16
Excel Vers. ve Dili
excel 2003 vba
peki bunu kapat tuşuna bastığımızda kaydedilip kaydedilmediğini sormadan direkt kapanmasını sağlayabilirmiyiz.
 
Katılım
13 Mayıs 2007
Mesajlar
16
Excel Vers. ve Dili
excel 2003 vba
birde ufak bi sorum daha olacak

yeni başladığım için kodlardan çok anlamıyorum ama

Sub Auto_Open()
Application.DisplayFullScreen = True
Sheets("Kayıt Giriş").Select
Range("c1").Select
End Sub

Sheets("Kayıt Giriş").Select satırı her excel çalışmasını açtığımızda farklı bi çalışma sayfasındada kaydedilmiş olsada direkt KAYIT GİRİŞ sayfasını açıyor sanırsam.. yanılıyormuyum...?

yani bu tarz çalışmalarımızda öylesi daha makbul geçecek...

kodda bi yanlışlık var ama sanırsam. çünkü o kodu yazdığımda çalışmıyor...
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

Sub kaydetmekapa()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
 
Katılım
13 Mayıs 2007
Mesajlar
16
Excel Vers. ve Dili
excel 2003 vba
çok çok teşekkür ederim... tam istediğim gibi olmuşşş....

sizlerin sayesinde yavaş yavaşşş.. birşeyler öğrenmeye başladım. sağolunnnn...

iyi çalışmalarrr..
 
Katılım
14 Şubat 2006
Mesajlar
710
Excel Vers. ve Dili
2002-TÜRKÇE
F

Merhaba

Örneği bende denedim.Fakat Başka Bir exel sayfası açtığımda tam ekran açılıyor.Normal açılması için ne yapmam gerekiyor.
 
Katılım
1 Mart 2007
Mesajlar
94
Excel Vers. ve Dili
Excel 2010 Eng
Merhabalar.

Workbookun kod sayfasına,
Kod:
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Sheets("Kayıt Giriş").Select
Range("c1").Select
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub
yazarsanız düzelebilir.
 
Katılım
1 Mart 2007
Mesajlar
94
Excel Vers. ve Dili
Excel 2010 Eng
Rica ederim Yalnız eksik bilgi vermişim

kod bölümüne:

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

bunuda eklerseniz tamamdır :))
 
Üst