seçilen sayfa

[okavut]

merhaba arkadaşlar;
bir çalışma sayfasında seçilen hücreye karşılık gelen sayfa numarası ne ise o sayfaya gidilmesi
konusunda yardımlarınızı rica ederim.Saygılarımla.

 

[asi_kral]

Merhaba
Kodu sayfanızın kod bölümüne ekleyip deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Variant, B As Variant, C As Variant
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
With WorksheetFunction
A = .Match(Cells(Target.Row, "B"), Sayfa2.Rows("1:1"), 0)
C = .Match(Cells(Target.Row, "B"), Sayfa2.Rows("1:1"), 0) - 1
B = .Match(Target, Sayfa2.Columns(A), 0)
Sheets(Sayfa2.Range(Cells(B, C).Address).Text).Select
End With
End Sub

 

[okavut]

sayın Asi kral teşekkür ederim. saolun
Ustat yanlız işler sayfasındaki h sutununa uygulayamadım.

 

[asi_kral]

sayın Asi kral teşekkür ederim. saolun
Ustat yanlız işler sayfasındaki h sutununa uygulayamadım.

Kodu bununla değiştirip deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Variant, B As Variant, C As Variant
With WorksheetFunction
If Target.Column = 4 Then
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
A = .Match(Cells(Target.Row, "B"), Sayfa2.Rows("1:1"), 0)
C = .Match(Cells(Target.Row, "B"), Sayfa2.Rows("1:1"), 0) - 1
B = .Match(Target, Sayfa2.Columns(A), 0)
Sheets(Sayfa2.Range(Cells(B, C).Address).Text).Select
ElseIf Target.Column = 8 Then
If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
A = .Match(Cells(Target.Row, "F"), Sayfa2.Rows("1:1"), 0)
C = .Match(Cells(Target.Row, "F"), Sayfa2.Rows("1:1"), 0) - 1
B = .Match(Target, Sayfa2.Columns(A), 0)
Sheets(Sayfa2.Range(Cells(B, C).Address).Text).Select
End If
End With
End Sub

 

[okavut]

ustat
eline, emeğine sağlık tam istediğim gibi oldu. Tekrar teşekkür ederim. Hayırlı akşamlar.

 

[asi_kral]

ustat
eline, emeğine sağlık tam istediğim gibi oldu. Tekrar teşekkür ederim. Hayırlı akşamlar.

Kolay Gelsin.

 

[okavut]

Worksheetfunction sınıfının Match özelliği alınamıyor

ustatların yardımıyla hazırladığım tabloda seçilen sayfalara gidiyoruz ama sadece büyük su işlerini seçtiğimde Worksheetfunction sınıfının Match özelliği alınamıyor hata mesajı veriyor.