Tablodan veri çekme

[selcuk23]

Merhabalar, gerekli bilgileri dosyanın içerisine yazdım. Yardımcı olur musunuz?
https://www.dosyaupload.com/dZ97

 

[Necdet]

Merhaba,

Bir sayfa ekledim, Adı GöstergeTablosu
İlgili sayfaya gösterde tablosunu ekledim

Sayfa1'in kod bölümüne aşağıdaki kodları kopyalayıp deneniyiz

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [D:D,F:F]) Is Nothing Or Target.Row < 10 Then Exit Sub
   
    Dim dk
   
    dk = Split(Target.Value, "/")
    If Target.Value = "" Then
        Target.Offset(0, 1) = ""
    Else
        Target.Offset(0, 1) = Sheets("GöstergeTablosu").Range("A1").Offset(dk(0), dk(1))
    End If
   
End Sub

Dosya Linki : http://s7.dosya.tc/server8/4ogmn3/GostergeTablosu.rar.html

 

[selcuk23]

Necdet bey, teşekkürler emeğinize sağlık. Gayet güzel olmuş.
Önemli olmamakla birlikte yeni veri girmek için mevcut kademe dereceleri toplu sildiğimde "dk = Split(Target.Value, "/")" hatası veriyor neden acaba?

 

[Necdet]

Merhaba,

Toplu silmeyi düşünmedim. Aşağıdaki gibi kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [D:D,F:F]) Is Nothing Or Target.Row < 10 Then Exit Sub
    
    On Error Resume Next
    
    Dim dk
    
    dk = Split(Target.Value, "/")
    If Target.Value = "" Then
        Target.Offset(0, 1) = ""
    Else
        Target.Offset(0, 1) = Sheets("GöstergeTablosu").Range("A1").Offset(dk(0), dk(1))
    End If
    
End Sub

 

[selcuk23]

Çok tşkler.