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

[hmydante]

Merhabalar bi arkadaşın çalışmasından

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

Sub Autpen()
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]

Bu şekil yeterli.(Kodları module yerleştiriniz)
Sub auto_open()
Application.DisplayFullScreen = True
End Sub
Sub auto_close()
Application.DisplayFullScreen = False
End Sub

 

[hmydante]

ç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

))

 

[hmydante]

peki bunu kapat tuşuna bastığımızda kaydedilip kaydedilmediğini sormadan direkt kapanmasını sağlayabilirmiyiz.

 

[hmydante]

birde ufak bi sorum daha olacak

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

Sub Autpen()
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]

yanıt

Sub kaydetmekapa()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

 

[hmydante]

ç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..

 

[ANTALYA 01]

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.

 

[agent1980]

Merhabalar.

Workbookun kod sayfasına,

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.

 

[ANTALYA 01]

S

Teşekkür ederim

 

[agent1980]

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 )