Aktif Hücre kaçıncı satırda

[dEdE]

Merhabalar,

Sayfa1 dışında hangi sayfada olursak olalım, Sayfa1'i seçmeden Sayfa1'deki aktif hücrenin kaçıncı satırda olduğunu nasıl bulabiliriz.

Saygılar.

 

[Zeki Gürsoy]

Sayfa değişmeden önce bir değişkene seçili hücrenin adresinin hafızaya alınması gerekir.

 

[dEdE]

Merhaba,
Sorun şu ki; Ben hiçbir zaman Sayfa1'i seçmeyeceğim veya aktif yapmayacağım. Sayfa2 de veya başka bir sayfada iken Sayfa1'deki aktif hücrenin hangi satırda olduğunu bulmak istiyorum.
bu durumda önerdiğiniz çözümü uygulayamıyorum.
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Peki dosya açılışında Sayfa1 aktif edilse ve bu sayfadaki aktif hücre adresi hafızaya alınsa işinize yaramaz mı?

 

[dEdE]

Teşekkürler,
Aslında her iki öneri de olabilir. Başka çözüm yoksa önerilerinizi uygulayacağım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle uygulayıp denermisiniz.

Option Explicit
 
Public Hücre As String
 
Sub Auto_Open()
    Sheets("Sayfa1").Select
    Hücre = ActiveCell.Address
    Sheets("Sayfa2").Select
End Sub
 
Sub Test()
    MsgBox Hücre
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir mantıkta işinize yarayabilir.

Application.ScreenUpdating = False
sayfa = ActiveSheet.Name
Sheets("sayfa1").Activate
hucre = ActiveCell.Row
Sheets(sayfa).Activate
MsgBox hucre

 

[dEdE]

Teşekkürler,

Her iki öneride işime yarıyor. Çalışırken Sayfa1 deki aktif hücre değiştiğinden Autpen yerine sonuna "Application.ScreenUpdating = True" ekleyerek Sayın Menteşoğlunun önerisini kullandım.

Saygılar.