DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayın polis,
Sorunuz net değil. Hangi sayfaya gidersem gideyim derken ?
Diğer sayfalara geçilmesini engellemek mi istiyorsunuz ?
.................
Siz mesajı yazarken ben başka sayfa geçilmesini engellemek istediğinizi düşünerek o kodu eklemiştim. Mesajınızı okuduğumda eklediğim mesajı sildim.
Şu an ise çıkmam gerekiyor. Cevap veren çıkmaz ise gece iş dönüşü ne yapıp yapamayacağıma bir bakarım.
Şaban hocam eminim elinden geldiğince yardımcı olacaktır o arada ben aklıma gelen birşeyi önereyim dedim.Tam olarak isteğinizi karşılamıyor ama daha önce denemediyseniz düşündüğünüze biraz yaklaşmanızı sağlayacak sanırım.
Pencere sekmesinden Önce Yeni Pencere sonra tekrar Pencere sekmesinden Yatay yerleştir sekmesini seçin..
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If ActiveSheet.Name = "Sayfa1" Then Exit Sub
Dim Sayfa As Integer
Sayfa = ActiveSheet.Index
Application.EnableEvents = False
Sheets("Sayfa1").Move After:=Sheets(Sayfa - 1)
Sheets(Sayfa).Select
Application.EnableEvents = True
End Sub
Merhaba,
Doğru anlayıp anlamadığımdan emin değilim ama aşağıdaki kodları WorkBook'un kod bölümüne kopyalayıp dener misiniz?
Kod:Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next If ActiveSheet.Name = "Sayfa1" Then Exit Sub Dim Sayfa As Integer Sayfa = ActiveSheet.Index Application.EnableEvents = False Sheets("Sayfa1").Move After:=Sheets(Sayfa - 1) Sheets(Sayfa).Select Application.EnableEvents = True End Sub
O zaman belli bir sütun aralığını ekranda fixlemek istiyorsunuz anladığım kadarıyla.Yani A:K arası diyelim ekranda sürekli bu aralık görünsün gibi mi?
Durum böyleyse bir sütun aralığı verebilirseniz ekranda sürekli bu aralığı görmek istiyorum ve şu satıra kadar görünsün sağa sola aşağı yukarı oynamasın derseniz ve eğer gerçekten sorun buysa benim basit bir fikrim var.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If ActiveSheet.Name = "Sayfa1" Then Exit Sub
Dim Sayfa As Integer
Sayfa = ActiveSheet.Index
Application.EnableEvents = False
Sheets("Sayfa1").Move Before:=Sheets(1)
Sheets(Sayfa).Move Before:=Sheets(2)
Application.EnableEvents = True
End Sub
Necdet Hocamın kodlarını şu şekilde değiştirince istediğiniz oluyor sanırım.Umarım hocam beni hoş görür..
Kodlarınızı Worksheet değil en alttaki thisworkbook kısmına yerleştirin.Sayfa1 e yapıştırdığınızı da silin..
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If ActiveSheet.Name = "Sayfa1" Then Exit Sub
Dim Sayfa As Integer
Sayfa = ActiveSheet.Index
Application.EnableEvents = False
If Sayfa = 1 Then
Sheets("Sayfa1").Move Before:=Sheets(Sayfa)
Else
Sheets("Sayfa1").Move After:=Sheets(Sayfa - 1)
End If
Sheets("Sayfa1").Next.Select
Application.EnableEvents = True
End Sub