ekran dondurma

Katılım
3 Haziran 2005
Mesajlar
371
merhabalar,
bu kodu daha önce bulmuştum siteden ama şimdi bulamıyorum.,
sorun şu,makroyu çalıştırdığımda bir sürü kitap açılıyor kapanıyor birşeyler yapıyor buda görüntü kargaşası oluyor.
aktif sayfa açık kalsın ekran değişmesin ve makro çalışmaya devam etsin.

neydi kodu bilen varmı ?
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,060
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu ilk satır olarak yazın.

Kod:
application.screenupdating=false
 
Katılım
7 Ekim 2013
Mesajlar
16
Excel Vers. ve Dili
2007
ingilizce
Merhaba,

Bir excel sayfasında klavye ve mouse ile gezinmeyi engelleyip sadece sayfaya koyduğum commandbuttonlar yardımı ile sayfa içinde gezinmek istiyorum. yani excel sayfasındaki dik ve yatay gezinme barlarını inaktif yapmak istiyorum. bu mümkün müdür ??

Soruma en yakın konu başlığı olarak bunu bulabildim.

Destekleriniz için şimdiden teşekkürler.
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Klavye ve Mouse ile gezinmeye engellemek!? :dusun:

Düşünce gücü ile mi bir şeyler yapmak istiyorsunuz ?


Kaydırmak çubuklarının işinizi göreceğini düşünüyorsanız; resme bakabilirsiniz.


 
Katılım
7 Ekim 2013
Mesajlar
16
Excel Vers. ve Dili
2007
ingilizce
Merhaba Murat Bey,

Öncelikle sorumda düşünce gücü ile değil sayfaya koyduğum commandbuttonlar yardımı ile gezinmek isteğimi açıkca belirtmiştim ancak gözden kaçırmışsınız sanırım. Yinede zaman ayırdığınız için teşekkürler.

Tekrar soruma dönecek olursak,

Excel çalışma sayfasında 8-10 adet commandbutton um var ve bunların hepsi aynı çalışma sayfasında birer hücreye linkli. Benim istediğim kullanıcı sadece tuşları kullanarak benim linklediğim hücrelere gidebilsin. sayfa içinde Aralarda gezinemesin. yani bir nevi kullanıcıya için tuş kullanımını zorunlu kılmak istiyorum.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Murat beyin söylediği gibi Kaydırma Çubuklarını gizliyorsunuz > kullanılan hücreler dışındaki tüm hücreleri kilitliyorsunuz, bu şekilde butonlara basarak istenilen yerlere gidilir.
 
Katılım
7 Ekim 2013
Mesajlar
16
Excel Vers. ve Dili
2007
ingilizce
Teşekkürler Seyit Bey,

Hücreleri kilitledim tuşlar yardımı ile geçiş yapıyorum ancak mouse un topu ile aşağı yukarı hareketi engelleyemedim. Buda Engellenebilir mi ? makro mu gerekir bunun için ??
 
Son düzenleme:

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Örnek kodu kendinize uyarlayınız.
Kod:
Sayfa5.ScrollArea = "D7:U21"
 
Katılım
7 Ekim 2013
Mesajlar
16
Excel Vers. ve Dili
2007
ingilizce
Dediğiniz kodu uyguladığımda command button kodlarım çalışmıyor. yani tuşlar işlevsiz kalmış oluyor.

Scroll area kodum;

Kod:
Private Sub kitle()
Sheet1.ScrollArea = "AB1:AW37"
End Sub
Commandbutton örneğimiz;

Kod:
Private Sub CommandButton1_Click()
[AW280].Select
End Sub
seçtiğim scroll area nın dışında bir yere gitmem mümkünmü ?
 
Son düzenleme:
Katılım
7 Ekim 2013
Mesajlar
16
Excel Vers. ve Dili
2007
ingilizce
Kod:
Private Sub CommandButton1_Click()
Sheet1.ScrollArea = "AB1:AW37"
[AW1].Select
End Sub
Verdiğiniz kodu yukarıdaki gibi kullanarak sorunumu hallettim. Bu konu ile ilgili son bir sorum olacak. ben tüm tuşlar için bir scrollarea tanımlayacağım. ancak bir kısayolla tüm bu scrollarea ları inaktif edecek bir kod yazabilirmiyiz.

Teşekürler...
 
Son düzenleme:
Katılım
7 Ekim 2013
Mesajlar
16
Excel Vers. ve Dili
2007
ingilizce
Kod:
Private Sub CommandButton1_Click()
Sheet1.ScrollArea = "AB1:AW37"
[AW1].Select
End Sub

Verdiğiniz kodu yukarıdaki gibi kullanarak sorunumu hallettim. Bu konu ile ilgili son bir sorum olacak. ben tüm tuşlar için bir scrollarea tanımlayacağım. ancak bir kısayolla tüm bu scrollarea ları inaktif edecek bir kod yazabilirmiyiz.

Teşekürler...
 
Son düzenleme:

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,405
Excel Vers. ve Dili
2007 Türkçe
Boş bir modüle aşağıdaki kodları kopyalayın, dosyayı kaydedin, kapatıp yeniden açtıktan sonra F9 tuşu ile isteğinizi gerçekleştirebilirsiniz.
Kod:
Sub Auto_Open()
Application.OnKey "{F9}", "alaniptal"
End Sub

Sub alaniptal()
Sayfa1.ScrollArea = ""
End Sub
 
Üst