Genel Sayfa Bilgilerinin Dağıtımı

[alpaslan050]

genel sayfasindaki veriler değiştikçe yada silindikçe ilgili çalişma kitabindaki bilgilerinde ayni anda değişmesi ve silinmesini istiyoruz.ayrica genel sayfasina ekleme yapildiğinda yeni çalişma kitabi oluşturarak verilerin ilgili çalişma kitabina yazilmasina yardimci olur musunuz?

 

[asi_kral]

genel sayfasindaki veriler değiştikçe yada silindikçe ilgili çalişma kitabindaki bilgilerinde ayni anda değişmesi ve silinmesini istiyoruz.ayrica genel sayfasina ekleme yapildiğinda yeni çalişma kitabi oluşturarak verilerin ilgili çalişma kitabina yazilmasina yardimci olur musunuz?

Merhaba
D sütununda işlem yapıldığında çalışır
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim SATIR As Long, SAYI As Long
Dim SAYFA1 As Worksheet, SAYFA2 As Worksheet
If Intersect(Target, Range("D:D")) Is Nothing Then _
Application.EnableEvents = True: Application.ScreenUpdating _
= True: Exit Sub
Set SAYFA1 = Sheets("GENEL")
SATIR = SAYFA1.Range("A" & Rows.Count).End(xlUp).Row
For SAYI = 2 To Sheets.Count
Set SAYFA2 = Sheets(SAYI)
SAYFA2.Range("A2:D" & Rows.Count).ClearContents
SAYFA1.Range("A1:D" & SATIR).AutoFilter field:=1, Criteria1:=SAYFA2.Name
SAYFA1.Range("A2:D" & SATIR).Copy SAYFA2.Range("A2")
SAYFA2.Range("A:A").Interior.ColorIndex = xlNone
SAYFA1.Range("A1:D" & SATIR).AutoFilter
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Dosyanız Ekte.

 

[alpaslan050]

Hocam teşekkür ederim cevabınız için ancak istediğimiz işlem tam olarak bu değil.genel Sayfasındaki satırdaki hucrelerin herbirindeki değişim ilgili çalışma kitabında da değişmesi.Eğer Genel sayfasındaki bölüm değiştiği zaman ilgili çalışma sayfasına tüm satırın yazılması.Ör:Genel sayfadaki a2 hücresinde reklam atölye olduğu zaman tüm satır atölye çalışma kitabına geçecek ve aynı zamanda reklam çalışma sayfasından satır silinecek.

 

[asi_kral]

Hocam teşekkür ederim cevabınız için ancak istediğimiz işlem tam olarak bu değil.genel Sayfasındaki satırdaki hucrelerin herbirindeki değişim ilgili çalışma kitabında da değişmesi.Eğer Genel sayfasındaki bölüm değiştiği zaman ilgili çalışma sayfasına tüm satırın yazılması.Ör:Genel sayfadaki a2 hücresinde reklam atölye olduğu zaman tüm satır atölye çalışma kitabına geçecek ve aynı zamanda reklam çalışma sayfasından satır silinecek.

Peki siz denediniz mi bu söylediğinizi_?
Şöyle söyliyeyim. A2 hücresini dediğiniz gibi değiştirin ve kodu tetiklemek için D2 hücresinde F2 Enter yapın sonuçları gözlemleyin.