bir sayfanın satırında iken diğer sayfalara geçtiğimde yine aynı safya

[hakankilic]

Kolay gelsin. Saygıdeğer hocalarım. Birden çok sayfalı bir excel kitabında bir sayfanın bir satırında işlem yaptığımda diğer sayfalarda da aynı satırda imlecin gelmesini istiyorum. Örneğin sayfa1 de 155'inci satırdaysam Sayfa2, sayfa3... geçtiğimde yine aynı satırın başında olabilir mi? Teşekkür ederim.

 

[hamitcan]

ThisWorkBook kısmına

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Cells(x, 1).Select
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    x = Target.Row
End Sub

Bir Module içine

Public x As Long

ekleyin.

 

[hakankilic]

Cells(x, 1).Select

kısmında hata verdi.

 

[Mahmut Bayram]

Public X
Yazılınca kod içindeki x değişkeni, tanımlanmak mecburiyetine girer.
Sayfadaki kodlarınızın başına
Dim X ... şeklinde yazarsanız sorununuzun çözüleceği kanaatindeyim.

 

[hamitcan]

Cells(x, 1).Select

kısmında hata verdi.

Aşağıdaki kodu ThisWorkBook kısmına ilave edin ve dosyayı kapatıp açın.

Private Sub Workbook_Open()
    Sheets(1).Select
    x = 1
End Sub

 

[hakankilic]

Yine yapamadım.

hocam dediklerinizi yaptım eksik bir şey mi var? bilemedim. Yine hata verdi.

 

[hakankilic]

Eline sağlık tamam çalıştı. Şöyleki 155 inci satırda işlem yaptığımda yani hücreyi aktif hale getirdiğimde diğer sayfalarda aynı yere geçiyor. Saygı ve sevgilerimle. Elinize sağlık.

 

[hakankilic]

Hocam şöyle bir sorun oluştu. İlk programı açılışta herhangi bir hücre seçili olmadığından program hatalı açılıyor. Makro hatası ile başlıyor. İptal edersem geçiyor. Sonra ben bir hücrenin içine giriyorum. Program doğru çalışmaya başlıyor. Nasıl düzeltebilirim?

 

[hamitcan]

Eki inceler misiniz ?

 

[hakankilic]

Üzgünüm olmadı. Yine açılışta hata ile başlıyor. Hücre seçince ancak çalışıyor.