sayfayı aşağı yukarı yapma butonu..!

[sensizsoldum]

Merhaba,

Sayın arkadaşlar, çalışma sayfama bir eklenti yapmak istiyorum. Sürekli olarak sayfayı aşağı yukarı yapıyorum.

1. seçenek : D sütunun herhangi hücresine girilen veriyi D3 VE sırasıyla alt alta gelecek şekilde olması,
2. seçenek : ise bir butonla sayfanın en üste gelmek diğer bi buton ile c sutunda son olarak hangi hücrede kaldıysa o bölüme inmesini sağlamak.

bu konuda yardımcı olabilir misiniz.

 

[sensizsoldum]

Merhaba arkadaşlar,
Ben sayfayı yukarı alacak kodu yaptım.
B sutuna eklenen veri en son nerde kaldıysa oraya getirecek butonu nasıl yapacağımı bilmiyorum.
yardımcı olabilir misiniz lütfn.

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Button 1").Top = Target.Top
End Sub

 

[sensizsoldum]

Merhaba Seyit Bey,
bu kod butonlamı çalışıyor bir türlü deneyemedim
butonlu olursa sevinirim

 

[Seyit Tiken]

Kod, imleci takip ediyor, kendinize uyarlarsınız, soruyu bu şekilde anladım.

 

[sensizsoldum]

Merhaba Seyit bey,
İlginiz için teşekkürlerimi sunarım.
Şu şekilde anlatmak istiyorum.
örneğin B353 adet girişmiz oldu satır b353teyiz yani daha sonra sayfayı en üst yukarıya getirdik. yine veri ekleyeceğimizi var sayalım bir buton yardımıyla B 354 gücreye gelmemi sağlayacak birşey arıyorum. binlerce veri giriyorum her seferınde sayfayı yukarı aşağı yapmak istemıyorum.
umarım açıklayıcı olmuştur.

 

[Husgvarna]

Merhaba Seyit bey,
İlginiz için teşekkürlerimi sunarım.
Şu şekilde anlatmak istiyorum.
örneğin B353 adet girişmiz oldu satır b353teyiz yani daha sonra sayfayı en üst yukarıya getirdik. yine veri ekleyeceğimizi var sayalım bir buton yardımıyla B 354 gücreye gelmemi sağlayacak birşey arıyorum. binlerce veri giriyorum her seferınde sayfayı yukarı aşağı yapmak istemıyorum.
umarım açıklayıcı olmuştur.

Bu mesajınıza göre; "Sayfa1" in kod sayfasına:

Private Sub CommandButton1_Click()
[b3].Select
CommandButton1.ShapeRange.Top = 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.ShapeRange.Top = 0
CommandButton1.ShapeRange.Top = 12.75 * Cells(65000, 2).End(xlUp).Row
Cells(Cells(65000, 2).End(xlUp).Row + 1, 2).Select
End Sub

Böyle bir sonuç ortaya çıkıyor.

 

[sensizsoldum]

Merhaba Sayın husgvarna tşk ederim ama bu istediğim gibi bişey değil. ama güzel bişey olduğu kesin. ben sayfaya bir buton oluşturdum. bu buton sayfanın en üste çıkmamı sağlıyor.
bir buton daha olacak, bu butonda... b sutuna girilen veri en son nerde kaldıysa bir alttakine sıra gelmiş demektir otomatık oraya gidilsin istiyorum. amacım maus ile yukarı aşağı yapmamak..

 

[mustafa1205]

Ekteki Örneği inceler misiniz ? İşinize yarayabilir.

 

[sensizsoldum]

Merhaba Mustafa bey,
İlgi ve alaknıza tşk ederim. elinize sağlık. istediğim buydu. çok sağolun diğer arkadaşlarımızında çalışmalarımızda emekleri büyük. onlara gönülden saygı ve tşklerimi sunuyorum herkese iyi geceler dilerim.

saygılarımla.

 

[tahsinanarat]

BAŞA DÖN
Private Sub CommandButton3_Click()
Cells(3, 1).Select
End Sub
SON SATIRA GİT
Private Sub CommandButton2_Click()
X = [b15000].End(3).Row
Cells(X + 1, 1).Select
End Sub

 

[mustafa1205]

Rica ederim. Umarım işinizi görmüştür. İyi çalışmalar.