İYİ GÜNLER ÜSTADLARIM. AŞAĞIDAKİ KODU ÇALIŞTIRAMADIM...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
    Dim trh As Date
    Dim CsutunTarih As Date 
 
  With ThisWorkbook.Sheets("T1")
If (Target.Column = 3 Or Target.Column = 5) And Target.Row >= 1 Then
        If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
            SonStn = .Cells(1, .Columns.Count).End(xlToLeft).Column
                    Set bul = .Range("B1:" & .Ce

Değerli hocalarım herkese merhabalar. Çalışmam için nasıl bir yol izlemem gerektiği hususunda fikirlerinize ihtiyacım var.

Resimde de gösterdim. Aslında Ana işlemim bu şekilde. Ancak bir konuda sorun yaşıyorum. Onun çözümü için sizlerden yardım istiyorum.

A Tablosunda veriler mevcut. Bu veriler asla değiştirilemez ve dokunulamaz. Yalnızca İlişkiler kısmından bu verilerden faydalanabilirim. (Burdaki kayıtlar farklı takip ettiğim işlerle alakalıdır.)

Örneğin: A tablosunda bir ilçey