makro ile satırı başa getirme

[Tarikkk_]

merhabalar. başlıklarımın olduğu satırı en başa geirmek istiyorum.
Range("B26").Select bunu kullandığımda satırı seçiyor fakat b26 satırını en başa getirmiyor bunu nasıl yapabilirim. yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,
"En Başa Getirmiyor" derken en baştan neyi kastediyorsunuz?

 

[Tarikkk_]

Range("B26").Selectyaptığımda b26 satırın en üste gelmesini istiyorum nasılki exceli ilk açtığımızda 1. satır en baştaysa 26 nın başa gelmesini istiyorum. teşekkürler

 

[Murat OSMA]

Bu kodları deneyin.

    Rows(26).Cut
    Rows(1).Insert Shift:=xlDown

 

[Tarikkk_]

Bu kodları deneyin.

    Rows(26).Cut
    Rows(1).Insert Shift:=xlDown

bu kod tam olarak ne yaptı bilmiyorum ama çalışma sayfamda kaydetmediğim bilgilerimi yok etti ve geri alamıyorum

 

[Murat OSMA]

26. satırı keser 1. satırı aşağıya kaydırıp ilk satıra yerleştirir.

 

[Tarikkk_]

26. satırı keser 1. satırı aşağıya kaydırıp ilk satıra yerleştirir.

benim istediğim sadece 26. satırın çalışma sayfanın en başına çıkması

 

[Murat OSMA]

Kod da tam olarak onu yapmaktadır.
Buyrunuz.

 

[Tarikkk_]

Kod da tam olarak onu yapmaktadır.
Buyrunuz.

Ekli dosyayı görüntüle 245463

hocam teşekkür ederim ama aynı şeyden bahsetmiyoruz sanırım select yapınca 26 satırı seçiyor ama o satırı en üste kaydırmıyor

 

[Murat OSMA]

İşte en üste kaydıran da bir alttaki kod satırı.
İsterseniz örnek dosya gönderin üzerinde çözüm sunup ileteyim ya da yarın uzaktan bağlanır bakarız.

İyi geceler

 

[Korhan Ayhan]

Ben sorunuzu bu şekilde algıladım...

Option Explicit

Sub Top_Row()
    Range("B26").Select
    ActiveWindow.SmallScroll Down:=ActiveCell.Row - ActiveWindow.ActivePane.ScrollRow
    ActiveWindow.SmallScroll ToRight:=IIf(ActiveWindow.ActivePane.ScrollColumn < ActiveCell.Column, 1, 0)
End Sub

 

[mühendisberke]

 

[mühendisberke]

İstediniz satırı ya da sütunu seçin
Görünüme gidin
Bölümleri dondurun
Artık gezerken söz konusu sütunlar gözükecek geride kalmayacaktır

 

[Tarikkk_]

Ben sorunuzu bu şekilde algıladım...

Option Explicit

Sub Top_Row()
    Range("B26").Select
    ActiveWindow.SmallScroll Down:=ActiveCell.Row - ActiveWindow.ActivePane.ScrollRow
    ActiveWindow.SmallScroll ToRight:=IIf(ActiveWindow.ActivePane.ScrollColumn < ActiveCell.Column, 1, 0)
End Sub

hocam sorunu tam olarak bu şekilde çözdüm. böylece ilk olarak B1 satırına gidip B26. satıra geldiğinde istediğim gibi B26. satır en üste gelmiş oluyor.
Range("B1").Select
Range("B26").Select