Sayfayı bölme hk

[Kumpasta]

İyi geceler.

Aşağıda resimde ki kırmızı ile işaretlenmiş alanın sayfa aşağıya doğru indikçe orada kalması ile ilgili fikir verebilir misiniz?

Sarı alanlarda tablo dilimleyicileri var ve sayfa da 1000 satır aşağıya doğru görseller veriler vs. var. fakat bu seçim bölümünün ekranda kalmasını istiyorum.

Sayfayı bölme yada bölümleri dondur gibi seçenekleri kurcaladım sonuca ulaşamadım.

Acaba userformda bir popup a yerleştirilebilir mi? yada ne önerebilirsiniz?

Teşekkürler.

 

[Kumpasta]

Belki dilimleyiciler'in sabitlenmesi ile ilgili bir fikir de verebilirsiniz.

 

[YUSUF44]

Örnek dosya olmadan çözüm denemek zor olur.

Bölme dondurma neden çözüm olmadı ki?

 

[Kumpasta]

bölme dondurma şu yüzden işimi görmedi. F18 den itibaren bölme yapıldığında ekranı 4 e bölüyor. sayfayı aşağı kaydırınca bölünen her bölme de aşağı kayıyor. bir taraf sabit kalsa hiç bir sorun kalmayacak.

 

[YUSUF44]

F18'den değil de A18'den itibaren bölme yapabilirsiniz ancak yine de tam olarak ne istediğinizi anlamadım maalesef. Mümkünse örnek dosya paylaşıp tam olarak istediğinizi daha açık belirtir misiniz?

 

[Kumpasta]

Şunu demek istiyorum Yusuf Bey:
ekteki dosyada kırmızı renk ile belirttiğim alanın hep yukarıda kalmasını istiyorum. sayfayı bölerek mi yoksa dondurarak yada başka bir yöntem ile.
aslında o kırmızı alanda dilimleyiciler var. ilk başta söylediğim imkansız ise dilimleyicileri hep yukarıda tutmanın bir imkanı varmı?

 

[YUSUF44]

A18 hücresini seçip Bölmeleri dondur dediğinizde istediğiniz olmuyor mu?

 

[Seceren]

Merhaba, dener misin?
Görünüm + Yeni pencere. Şimdi önünde kullandığın sayfanın aynısı var (Kopyası) birisi pasif diğeri senin çalışma yapacağın sayfa, ikisini yanyana ekrana yerleştir işin bittiğinde çalıştığın sayfayı kaydedip çıkarsın. Kolay gelsin.

 

[Kumpasta]

Öneriler için teşekkür ederim fakat aradığım o değil yada ben derdimi anlatamadım.
Kıt ingilizcem ile bir kod buldum. İstediğimi kısmen karşılıyor. Karşılamayan kısmı için bir öneriniz var mı ?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim itm, rgTopLeft As Range, L%
Set rgTopLeft = Windows(1).VisibleRange.Cells(1, 1)
L = rgTopLeft.Left + 5
For Each itm In Sh.Shapes
    If itm.Type = msoSlicer Then
        itm.Top = rgTopLeft.Top + 5
        itm.Left = L
        L = L + itm.Width + 5
    End If
Next
End Sub

Bu kod sayfayı aşağı indirip bir yere tıklayınca dilimleyiciyi ekranın en üst ve en sol konumuna getiriyor. Yani ekranın kaydırılması ile beraber dilimleyici sürekli ekranda görünür kalıyor.

İşte istediğimi tam karşılamadı dedim yer de burası. Bir hücreye tıklamak gerek.....
Tıklama eylemi olmadan sayfada o an görünen en üst ve en sola konumuna otomatik gelmesi için geliştirme öneriniz var mı?
Teşekkürler.

 

[Seceren]

https://tr.extendoffice.com/documents/excel/4220-excel-insert-floating-table.html
Bu adresi inceler misin?

 

[Kumpasta]

Bu konuyu incelemiştim teşekkürler. Burada ki mantık da tıklama olayından sonra gerçekleşiyor.

 

[Kumpasta]

Sanırım macronun başlığı ile alakalı.
Aşağıdaki kodu buldum ama yukarıda ki kod ile çalışmıyor.

Private Sub ScrollEvents_ScrollPageLeft(ByVal TopLeftCell As Range, ByVal Wnd As Window)

 

[YUSUF44]

Sanırım macronun başlığı ile alakalı.
Aşağıdaki kodu buldum ama yukarıda ki kod ile çalışmıyor.

Private Sub ScrollEvents_ScrollPageLeft(ByVal TopLeftCell As Range, ByVal Wnd As Window)

ScrollEvents kodu VBA'da standart olarak bulunan bir kod değil . Başka kodlarla birlikte kullanılan bir kod olabilir. Kaynağındaki tüm kodların birlikte değerlendirilmesi gerekir muhtemelen.

 

[Kumpasta]

O kadar derin bilgiye sahip olmadığım için deneme yapmıştım.
İşin garip tarafı hata da vermedi.

'Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Private Sub ScrollEvents_ScrollPageLeft(ByVal TopLeftCell As Range, ByVal Wnd As Window)
Dim itm, rgTopLeft As Range, L%
Set rgTopLeft = Windows(1).VisibleRange.Cells(1, 1)
L = rgTopLeft.Left + 5
For Each itm In Sh.Shapes
    If itm.Type = msoSlicer Then
        itm.Top = rgTopLeft.Top + 5
        itm.Left = L
        L = L + itm.Width + 5
    End If
Next
End Sub

 

[Korhan Ayhan]

Bu işlemler excelde performans kaybına yol açar. Bu sebeple pek tercih edilmezler.

Linkte bir eklenti var. Ben çalıştıramadım. Belki siz çalıştırmayı başarabilirsiniz. Gerekiyorsa sayfayı Türkçe'ye çevirip inceleyebilirsiniz.

Safe MouseWheel Event Hook (Addin)

Hi dear forum, In the past few months, I have posted various codes which show how to run code upon wheelmouse-scrolling. Basically, intercepting the mouse scroll event relies on four known techniques : Subclassing, Installing a windows Mouse Hook, using the SetWinEventHook API or using the...

www.mrexcel.com

 

[Korhan Ayhan]

Ek olarak bu sayfadaki örnekleride inceleyebilirsiniz.

VBA Slicer - UserForm version

Hi Guys, This is a UserForm version of the VBA Slicer (basic code) thread. Link below: http://chandoo.org/forum/threads/vba-slicer-basic-code.27395/ It's not 100% the same because it has some extra features such as "Invert" which inverts your criteria selection in the ListBox & applies it to...

chandoo.org

 

[Korhan Ayhan]

Bu da sizin küçük bir parçasını paylaştığınız kodla ilgili makaledir. Yine gerekiyorsa sayfayı Türkçe'ye çevirip okumanızda fayda var. Çünkü konu zannedildiği gibi basit değildir.

Detecting Scrolling In A Worksheet Window

www.cpearson.com

 

[Kumpasta]

Kaynak bulamamamın sebebini artık daha iyi anlıyorum.
Bir işi yapılıyorsa en mükemmelini yapmak için uğraştığımdan kaynaklanıyor bu durum aslında.
İlla ki Fare tekerini kullanmak ta değil niyetim. Uzun bir sayfa da yönetim araçlarının daima görünür kılınması ile derdim. Bu fare tekeri olur yada 2 saniye de bir yenileme olur yada ekranın sağına gizlenmiş fare üzerine gelince ortaya çıkan bir menü de olabilir vs. tıklama ile tetiklenme olayını basitleştirmeye çalışıyorum.
Artık zamanla başka çzöüm yollarına gideceğiz

 

[Korhan Ayhan]

Bunun en pratik ve verimli yöntemi Görünüm-Bölmeleri Dondur seçeneğidir.

Ben yine de araştırmalarım sonucu bulduğum kodları biraz düzenleyerek örnek bir dosya hazırladım. Sadece olayı göstermek amacıyla paylaşıyorum. Kullanımda doğabilecek problemleri göze almanızda fayda var.

Neden derseniz sürekli olarak mouse hareketini takip etmek adına Do-Loop döngüsü çalışmaktadır. Önceki mesajlarımda paylaştığım linklerde de belirtildiği gibi bazı durumlarda excelde çökmelere sebep olabileceğini hatırlatmak isterim.

Dosyada ilk sayfada buton fareyi takip etmektedir.
İkinci sayfada ise Bölmeleri Dondur ve Satır Gruplandırma seçeneği kullanılmıştır.

 

[YUSUF44]

@Korhan Ayhan üstadın dosyası çok güzel bir örnek olmuş. Denediğimde fareyi takip eden kodların herhangi bir hücrede değişiklik yaptığımda artık çalışmadığını gördüm. Çalışması için sayfayı değiştirmem gerekti. Bu da bu işlemin aslında ne kadar sıkıntılı bir işlem olduğunu gösteriyor. Üstadın da belirttiği gibi sürekli çalışan bir kod olması exceli ve bilgisayarı çok yoracağından kullanmaktan kaçınmak en güzelidir.