sayfalar ve hücreler arası entegrasyon

[akayaloglu]

Merhaba arkadaşlar. Benim 4 sayfam var. Her sayfada a sütununda aylar var alt alta (ocak. şubat...) yapmak istediğim son sayfadaki a1 hücresine eylül yazdıp diğer sayfalara geçtiğimde en üstte karşılaşacağım ay eylül olsun, yani hücreler yukarı doğru kaymış ve ekranda beni karşılayacak ay eylül olsun. Böyle bir şey mümkün mü acaba makro kullanmadan.
Kolay gelsin

 

[Necdet]

Örnek dosya?

 

[Ömer BARAN]

Merhaba.

Sorunuzu gerçek belgenizle aynı yapıda örnek belgeyle desteklerseniz, daha kolay sonuce ulaşabilirsiniz diye düşünüyorum.
.

 

[akayaloglu]

Konuyla ilgili örnek excel sayfası ektedir. İlgilenen arkadaşlara teşekürler.

 

[cemshan]

sayfa 1 A2 e

=AYSEÇ!$B$1

diğer yerlerede aynı formülü kopyalaya bilirsiniz

 

[Ziynettin]

Merhaba.

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte, son As Long, satir As Long, sh As Worksheet
If Target.Address(0, 0) = "B1" Then
Application.ScreenUpdating = False
On Error Resume Next
    For i = 1 To Worksheets.Count
        Set sh = Sheets(i)
        If sh.Name <> "AYSEÇ" Then
            son = sh.Cells(Rows.Count, 1).End(3).Row
            satir = sh.Range("A2:A" & son).Find(Target.Value, , xlValues, xlWhole).Row
            sh.Select
            ActiveWindow.ScrollRow = satir
        End If
    Next i
    Sheets("AYSEÇ").Select
Application.ScreenUpdating = True
End If
End Sub