çalışma sayfasını sabitlemek

yavserd

Altın Üye
Altın Üye
Katılım
28 Aralık 2006
Mesajlar
7
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
26/01/22
merhaba;
hazırlanan bir çalışma sayfasını sabitlemek istiyorum.(sağa ve aşağı hücrelere gitmesini nasıl engelleyebilirim.) bana bu konuda yardım edermisiniz.
 

yavserd

Altın Üye
Altın Üye
Katılım
28 Aralık 2006
Mesajlar
7
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
26/01/22
teşekkür ederim.
 

yavserd

Altın Üye
Altın Üye
Katılım
28 Aralık 2006
Mesajlar
7
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
26/01/22
çalışma sayfasını sabitleme

söylemiş olduğunuz işlemi yaptım, ama eksik bir işlem yapıyorum sanırım,dosyayı kayıt edip çıkıyorum.tekrar girdiğimde istediğimin gerçekleşmemiş olduğunu görüyorum.eksik yaptığım nedir acaba.
selamlar
 
Katılım
29 Mart 2005
Mesajlar
61
selam

Sn. Yasverd ben de denedim aynen sizin söylediğiniz gibi oluyor.
Dosyayı kapatıp tekrar açtığımda sabitleme yapılmamış gibi oluyor.
Acaba bunun başka ve kalıcı bir yolu varmıdır?
İşime çok yarayacak doğrusu..
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Çözümün kalıcı olabilmesi için kod gerekir. Aşağıdaki kodu kendinize göre ayarlayınız.

Sub Düğme1_Tıklat()
Sheets(1).ScrollArea = "A1:G20"
End Sub
 

yavserd

Altın Üye
Altın Üye
Katılım
28 Aralık 2006
Mesajlar
7
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
26/01/22
sayın tiken;
sayfayı her açtığımda makro atanan düğmeye basmaksızın bu işlemi yapmanın bir yolu varmıdır acaba.
ilginize teşekkür ederim.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
sayın tiken;
sayfayı her açtığımda makro atanan düğmeye basmaksızın bu işlemi yapmanın bir yolu varmıdır acaba.
ilginize teşekkür ederim.
Sayfa aktif olduğu zaman :

Private Sub Worksheet_Activate()
Sheets(1).ScrollArea = "A1:G20"
End Sub

Kitap açıldığı zaman :

Private Sub Workbook_Open()
Sheets(1).ScrollArea = "A1:G20"
End Sub

Kitap açıldığı zaman :

Sub auto_open()
Sheets(1).ScrollArea = "A1:G20"
End Sub
 

yavserd

Altın Üye
Altın Üye
Katılım
28 Aralık 2006
Mesajlar
7
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
26/01/22
çalışma sayfasını sabitleme

sn. tiken ;ilginize teşekkür ederim.
 
Üst