aktif hücrenin sayfa nosu

[mehmeth_86]

slm.
Aktif hücrenin kaçıncı sayfada olduğunu verecek bi kod var mı?
yardımcı olursanız sevinirim..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

ActiveSheet.Index

 

[mehmeth_86]

teşekkürler ama..

teşekkürler sayın leventm. ancak;
benim istediğim örneğin bir sayfada A279 hücresi kaçıncı sayfaya denk geliyor onu öğrenmek. sizin verdiğiniz kodu buna göre nasıl düzenleyebilirim?

 

[mehmeth_86]

makrolardan yaralanıp düzelttim.ancak..

Sheets("liste").Select
Range(f).Select
s = ActiveSheet.Index
Range(j).Select
Selection.NumberFormat = "m/d/yyyy"
Sheets("yeni kayıt").Select
Range("a3").Select


Bu koddaki s değerini nasıl sabitleyebilirim. çünkü "Range(j).Select" adımına kadar herşey yolunda ancak bundan sonra s değeri farklı değer alıyor. örneğin 1 ise 3 oluyor.

 

[Levent Menteşoğlu]

teşekkürler sayın leventm. ancak;
benim istediğim örneğin bir sayfada A279 hücresi kaçıncı sayfaya denk geliyor onu öğrenmek. sizin verdiğiniz kodu buna göre nasıl düzenleyebilirim?

Bu istediğiniz biraz karışık bir konu, üzerinde biraz düşünüp bir sonuç elde edersem paylaşırım.

 

[mehmeth_86]

paylaşımınızı bekliyorum

paylaşımınızı bekliyorum. ilginiz için çok teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Bu kod imleçin bulunduğu hücrenin hangi yazdırma sayfasında olduğunu gösterecektir.

Sub sayfayibul()
Application.ScreenUpdating = False
deg = ActiveCell.Row
ActiveWindow.View = 2
say = ActiveSheet.HPageBreaks.Count
For a = 1 To say
sat = ActiveSheet.HPageBreaks.Item(a).Location.Row - 1
If deg <= sat Then
MsgBox "Aktif hücre " & a & " nolu sayfadadır."
GoTo 10
End If
Next
If deg >= [a65536].End(3).Row Then
MsgBox "Aktif hücre yazdırma alanı dışındadır."
Else
MsgBox "Aktif hücre " & say + 1 & " nolu sayfadadır."
End If
10 ActiveWindow.View = 1
End Sub