Aktif hücrenin üst, alt, sağ ve sol hücrelerine gitmek

[cavanoos]

Merhaba Arkadaşlar;

ActiveCell.Select

Bu kod ile aktif hücre seçili hale geliyor.
Seçili hücre referans alınarak; alt, üst, sağ ve sol seçili komutları nelerdir ?

 

[Necdet]

Merhaba,
Offset fonksiyonunu inceleyiniz
activecell.offset(-0,-1)..select te ofsetin içindeki değere dikkat ediniz.

 

[cavanoos]

Necdet Bey;

Teşekkür ederim.
Bir sorum daha olacak.
Aktif hücrenin bir üst satırını komple seçili hale getirmek yada yine bir üst satırının sadece A-D arası sütunlarını seçili hale getirmek için hangi kod kullanılıyor ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    ActiveCell(0).EntireRow.Select
End Sub

 

[cavanoos]

Korhan Bey;

Kod ile bir üst satır aktif hale geldi. Ok.
Peki bir üst satırdaki A-D sütun aralığı nasıl aktif olabilir ?

 

[Necdet]

Merhaba,

Deneyiniz.

    Range("A" & ActiveCell.Offset(-1, 0).Row).Resize(1, 4).Select

 

[Necdet]

Tekrar Merhaba,

i = ActiveCell.row ile bulunduğunuz hücrenin satır numaraını alırsınız.

Bundan sonra da range("A" & i & "" & i). select ile seçebilirsiniz.
İllaki Offset, Resize kullanmak zorunda değilsiniz.

 

[cavanoos]

Necdet Bey;

Teşekkürler, elinize sağlık...

 

[cavanoos]

Bir sorum daha olacak.

Aktif hücre D35 yada M35 olsun. Sonuçta aynı satırda olacak.
Hangi kod ile A35 hücresine gelirim ?

 

[Korhan Ayhan]

Aslında Necdet bey size son mesajında ipucunu vermişti.

Üzerinde bulunduğunuz hücre ActiveCell olarak ifade edilir.
Bu hücreye ait satır numarasını ActiveCell.Row ifadesi ile elde edebilirsiniz.
Bunu bir değişkene atayıp kullanabileceğiniz gibi direk olarak yazarakta kullanabilirsiniz.

Değişkene atayarak örneklersek;

Option Explicit

Sub Test()
    Dim X As Long
 
    X = ActiveCell.Row
 
    Cells(X, "A").Select
End Sub

Değişkene atamadan örneklersek;

Option Explicit

Sub Test()
    Cells(ActiveCell.Row, "A").Select
End Sub

Değişkene neden atıyoruz derseniz;

Kodu okumak biraz daha kolaylaşıyor. Ayrıca uzun kod blokları yazarken kolaylık sağlıyor.

 

[cavanoos]

Teşekkür ederim.