Düşeyara makrosunu değişiklik olunca güncelleme

[Emir Hüseyin Çoban]

Sayfada değişiklik yapınca düşeyara makrosu güncellenmeli

Merhaba Arkadaşlar,
Tablomda düşeyara formülünün makrosu var.
Veri girişi sayfasında E sütununda girilen veri. Hesap planı sayfasında varsa, F sütuna hesap ismini yazıyor.
Ancak bazen hesap planında değişiklikler oluyor. Bu değişiklikleri Veri girişi sayfasında da güncellemesi için kodlarda nasıl bir düzenleme yapmalıyım.

Yardım ve fikirlerinizi bekliyorum.

 

[Korhan Ayhan]

Selamlar,

"HESAP PLANI" isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. "C" ve "D" sütunlarında değişiklik yaptıkça diğer sayfadaki bilgiler otomatik güncellenir.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range, ADRES As String
    If Intersect(Target, Range("C5:D65536")) Is Nothing Then Exit Sub
    If Cells(Target.Row, "B") <> "" Then
    Set BUL = Sheets("VERİ GİRİŞİ").Range("E:E").Find(Cells(Target.Row, "B"), LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
        If Cells(Target.Row, "C") <> BUL.Offset(0, 1) Then BUL.Offset(0, 1) = Cells(Target.Row, "C")
        If Cells(Target.Row, "D") <> BUL.Offset(0, 2) Then BUL.Offset(0, 2) = Cells(Target.Row, "D")
    Set BUL = Sheets("VERİ GİRİŞİ").Range("E:E").FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
    Set BUL = Nothing
    MsgBox "Kod bilgileri güncellenmiştir.", vbInformation
    End If
End Sub

 

[Emir Hüseyin Çoban]

Teşekkür ederim Sy Korhan Hocam, tam istediğim gibi olmuş. Ellerinize sağlık.
Sorunsuz çalışıyor.

 

[Emir Hüseyin Çoban]

Kopyala-yapıştır ile gelmeyen düşeyara verileri

Merhaba Arkadaşlar,

Ekteki dosyamda şöyle bir işleme ihtiyacım var.

Verigirişi sayfasında D ve G sütunlarına kayıt girince, hesap planı sayfasından uygun olanları yani C sütunundan hesap isimlerini getiriyor.
K ve L sütunlarıda hesap planı sayfasından A sütunundaki hesap tiplerini getiriyor.

Verigirişi sayfasında 1den fazla satır ekleyip üstteki satırlardan kopyala yapıştır yaptığımda, K ve L sütununa Hesap tiplerini getirmiyor.
Tutara giriş yaptığımda K ve L sütunlarına hesap tipleri gelmemiş ise getirte bilirmiyiz.

Yardım ve fikirlerinizi bekliyorum.