ambar programı

[bghns]

İyi Günler.
Ben ambar programı yapmaya çalışıyorum. Yükleyeceğim dosyada fihrist sayfasında 97 sayfa numarası ve hangi sayfada hangi malzemenin olduğu yazıyor.Örneğin "fihrist" sayfasında c3 hücresinde x maddesi var c3 hücresine tıklayınca x maddesi hangi sayfadaysa onun açılmasını istiyorum. Beni baya bir aşan konu olduğu için sizlerden yardım talep ediyorum. Yardımcı olursanız memnun olurum. İyi çalışmalar.

http://s3.dosya.tc/server26/B1DHtb/ambardefteri.xls.html

 

[Emir Hüseyin Çoban]

. . .

FİHRİST sayfası kod bölümüne yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Dim syf As String
    
    If Intersect(Target, [B2:I43]) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    
    syf = Target.Value
    
    If IsNumeric(Target.Value) Then
        Sheets(syf).Select
    Else
        syf = Target.Offset(0, -1)
        Sheets(syf).Select
    End If
End Sub

. . .