Santral isimlerine göre veriler listelensin

[howitget]

Kolay gelsin Arkadaşlar,
Benim sorum şöyle;
Hergün gönderdiğim bir alarm listesi var,
C sütununda veri doğrulama yaparak 303 tane veriden istediğimi seçebiliyorum fakat bu seçimi yapınca aynı satırda ilçe,santral tipii kapasitesi ve çalışan abone sayısını direk almasını istiyorum.
Benim yaptığım düşeyara formülünde ise aşağıya çekerek bu işi yapıyorum.
Ben ise veri doğrulama listesinden o veriyi seçtiğim an yan satırlardaki ilgili yerlere diğer verilerin gelmesini istiyorum.
Ayrıca satır ekleyip silinincede bu özelliklerin kaybolmasını istemiyorum.
Bu konuda yardımcı olabilirseniz veya yol gösterebilirseniz sevinirim.
iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu "YEDEK" isimli sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, S2 As Worksheet, BUL As Range
    
    On Error GoTo Son
    If Intersect(Target, Range("C9:C20")) Is Nothing Then Exit Sub
    
    Set S1 = Sheets("YEDEK")
    Set S2 = Sheets("Sayfa1")
    
    If Target <> "" Then
        Set BUL = S2.Range("A:A").Find(Target, LookAt:=xlWhole)
        If Not BUL Is Nothing Then
            Cells(Target.Row, "D") = BUL.Offset(0, 2)
            Cells(Target.Row, "Q") = BUL.Offset(0, 4)
            Cells(Target.Row, "S") = BUL.Offset(0, 5)
        End If
    Else
        Cells(Target.Row, "D") = ""
        Cells(Target.Row, "Q") = ""
        Cells(Target.Row, "S") = ""
    End If

Son:
    Set S1 = Nothing
    Set S2 = Nothing
End Sub

 

[howitget]

Çok sağolun Korhan Bey,
Gerçekten çok işime yaradı,
Emeğiniz için teşekkürler.