Satır silme

[karahan61]

Hayırlı Bayramlar..

excelde sayfa 1 ve 2 de birbirine bağlı bir çalışmam var. 1.sayfaya satır eklesem veya silsem aynı satır 2.sayfadada eklensin veya silinsin istiyorum
yardımlarınız için teşekkürler

 

[Korhan Ayhan]

Selamlar,

Silme ya da ekleme işleminde 1. sayfayı 2. sayfaya kopyalarsanız istediğiniz sonuca ulaşabilirsiniz.

Aşağıdaki kod satır silme ve ekleme işleminde tüm bilgileri 2. sayfaya kopyalar.
Silme ve ekleme işlemi sonrasında herhangi bir hücreyi seçtiğinizde tüm bilgileri 2. sayfaya kopyalar.
Ayrıca Sayfa1'den çıktığınız anda bilgiler 2. sayfaya kopyalanır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Sayfa1").Cells.Copy Sheets("Sayfa2").Range("A1")
End Sub
 
Private Sub Worksheet_Deactivate()
    Sheets("Sayfa1").Cells.Copy Sheets("Sayfa2").Range("A1")
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheets("Sayfa1").Cells.Copy Sheets("Sayfa2").Range("A1")
End Sub

 

[karahan61]

tam anlatamadım özür dilerim

örnek 1.sayfada A10 satırını sildiğimde 2.sayfada da A 10 satırını silsin veya 1.sayfada A9,A10 satırları arasına satır eklediğimde aynı işlen 2.sayfada da olsun

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. Denermisiniz.