Sayfa açılımı

[serhokun80]

Merhabalar,

Bir excel dosyasını açtığımda ekranın köşesinden aşağıdoğru açıldığını gördüm bi dosyada nasıl olduğunu sordum makrolardanmış ekte vermiş olduğum dosyayı nasıl o şekilde açarım bilsi olan varmı şimdiden Teşekkür ederim.

Nasıl yapıldığınıda yazarmısınız.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

Sub AUTO_OPEN()
    Application.WindowState = xlNormal
    Application.Width = 0
    Application.Height = 0
    Application.Left = 0
    Application.Top = 0
    For X = 0 To 960 Step 5
    Application.Width = X
    Next
    For Y = 0 To 750 Step 5
    Application.Height = Y
    Next
    Application.WindowState = xlMaximized
End Sub

 

[serhokun80]

sayfa açılımı

Tam istediğim şey fakat bendeki dosyada nasıl uygulucam konuyla ilgili yardımcı olurmusun.

Teşekkürler.

 

[ANTALYA 01]

S

Sayın Cost Çok güzel kod Peki bu çalışma sayfasını Ferman gibi açabilirmiyiz ?

 

[bedersu]

alt+f11 ile Visual Basic Düzenleyicisini açın.Sol tarafta sayfa isimlerinin yazılı olduğu yerde sağ tıklatıp insert--module deyip bir module oluşturun ve oraya bu kodu yazın.Kapatıp tekrar açın.

 

[mustafa7691]

Sn cost-control verdiğiniz dosya çok güzel ben kendimce uyarlamasınıda yaptım.teşekkürler ancak bir sorum olacak tabi yrd edebilirseniz


Private Sub Workbook_Open()
MsgBox "HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"İYİ ÇALIŞMALAR DİLERİM.", vbInformation, "KARŞILAMA MESAJI"
Application.WindowState = xlNormal
Application.Width = 0
Application.Height = 0
Application.Left = 0
Application.Top = 0
For X = 0 To 960 Step 5
Application.Width = X
Next
For Y = 0 To 750 Step 5
Application.Height = Y
Next
Application.WindowState = xlMaximized
Sheets("GİRİŞ").Select
End Sub


benim bu kodlarım thisworkbook içinde.ve bu hali ile çalışıyor.sorun ise sayfayı açtığımda önce altta excel sayfa açılıyor ve karşılama mesajı çıkıyor.buna tamam dediğinizde sayfa sizin kodlarınızdaki efekt le açılıyor.ben birkaç şey denedim ama olmadı.acaba karşılama mesajı geldiğinde allta excel sayfası açık olmasa yada karşılama mesajı sizin efektinizle sayfa açıldıktan sonra gelse????
bu konuda yard olur yada bir yol gösterirseniz memnun olurum çok teşekkürler

 

[ocamsul]

kodlarınızı bu şekilde kullanmanız, eğer yanlış anlamadımsa sorunu çözecektir.


Private Sub Workbook_Open()
Application.WindowState = xlNormal
Application.Width = 0
Application.Height = 0
Application.Left = 0
Application.Top = 0
For X = 0 To 960 Step 5
Application.Width = X
Next
For Y = 0 To 750 Step 5
Application.Height = Y
Next
Application.WindowState = xlMaximized
MsgBox "HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"İYİ ÇALIŞMALAR DİLERİM.", vbInformation, "KARŞILAMA MESAJI"
Sheets("GİRİŞ").Select
End Sub

 

[mustafa7691]

ilginize teşekkür ederim