Sayfalar Arasındaki Tabloları Güncellenecek Şekilde Kopyalama

[ExcelCaylakı]

Merhaba hocalarım,
Excel'deki sayfalar arasında tablo kopyalamak istiyorum. Örneğin sayfa1deki 'ürün1' tablosunu sayfa3te de görmek istiyorum ama sayfa1de ürün1 tablosuna ekleme/çıkarma yapıldığında sayfa3teki kopyalanmış ürün1 tablosunun da eş zamanlı güncellenmesini istiyorum. ürün1 tablomda liste veri doğrulaması ve koşullu doğrulama var bunlarla birlikte kopyalanması gerekiyor.

 

[Korhan Ayhan]

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

Sayfa3'ten Sayfa1'e geçtiğinizde kopyalama işlemi yapılacaktır.

Hücre aralığını ve yapıştırılacak hücreyi ayarlarsınız.

Option Explicit

Private Sub Worksheet_Deactivate()
    Dim S1 As Worksheet, S3 As Worksheet
   
    Set S1 = Sheets("Sayfa1")
    Set S3 = Sheets("Sayfa3")
    Set Rng = S3.Range("A1:K100")
   
    Rng.Copy S1.Range("AA1")

    Set S1 = Nothing
    Set S3 = Nothing
    Set Rng = Nothing
End Sub

 

[ExcelCaylakı]

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

Sayfa3'ten Sayfa1'e geçtiğinizde kopyalama işlemi yapılacaktır.

Hücre aralığını ve yapıştırılacak hücreyi ayarlarsınız.

Option Explicit

Private Sub Worksheet_Deactivate()
    Dim S1 As Worksheet, S3 As Worksheet
  
    Set S1 = Sheets("Sayfa1")
    Set S3 = Sheets("Sayfa3")
    Set Rng = S3.Range("A1:K100")
  
    Rng.Copy S1.Range("AA1")

    Set S1 = Nothing
    Set S3 = Nothing
    Set Rng = Nothing
End Sub

Hocam olmadı ya yapamadım tkopyalancak olan tablom ŞOK1 de E6 da adı da şok_1 kopyalamak istediğim yer TÜMÜ sayfası

 

[Korhan Ayhan]

Sağlık olsun..

 

[mühendisberke]

sayfa1'deki değişiklik yapılınca gelecek alanın da kopyalanması lazım
sayfa3 a1'e şunu yazın:
=sayfa1!a1
şimdi sayfa 3 a1'i sürükleyerek sayfa 3'e kopyalayın