ana sayfa

[mahircinar01]

merhaba,
bir sorunum olacak.
bir excel çalışmam var 4 sayfalık. mesela 4. sayfada kayıt yaptıktan sonra programı kapattıktan sonra çalışmayı tekrar açtığım zaman 1. sayfadan açılmasını nasıl sağlayabilirim

 

[systran]

Private Sub Workbook_Open()
Sayfa1.Activate
End Sub

 

[mahircinar01]

kodu nereye yapıştıracağım acaba

 

[systran]

Alt + F11 ile VB editörünü aç. sol taraftan Thisworkbook iki kere tıkla.
sağ tarafta açılan pencerede üstte 2 tane seçim listesi olacak
-General yazan yerden this workbook olanı seç.
-sonra sağ taraftan Open olanı seç. (zaten büyük ihtimal burası otomatik seçilecek.

excel şu kodları otomatik oluşturur. kırmızı olanı sen ilave edeceksin.

Private Sub Workbook_Open()
[COLOR="Red"][B]sayfa1.activate[/B][/COLOR]
End Sub

NOT: bu şekilde Makro eklediğin zaman EXCEL uyarı verir sayfada makro var diye. sayfayı Makro içeren excel formatında kayıt etmeyi unutma. XLSM uzantısı

 

[Emir Hüseyin Çoban]

. . .

Alternatif olarak.
Boş bir modüle kodları yapıştırın.

Sub AUTO_OPEN()
on error resume next
sheets("Sayfa1").select [COLOR="DarkGreen"] 'sayfa ismi[/COLOR]
end sub

. . .