Dolu satırları başka bir sayfaya aktarmak

[baris1987]

Öncelikle hepinize kolay geslin. Excelde makro olarak bir nöbet listesi hazırladım. Bu listede x işaretli kişileri makro ile sayfa ikiye aralarında boşluk bırakmadan aktarmayı başardım. Ancak sayfa 1 de x lerden birini sildiğimde sayfa 2 ye otomatik olarak aktarmıyor. Tekrardan makroyu çalıştırmak zorunda kalıyorum. sayfa 1 de yaptığım değişikliği aynı zamanda sayfa 2 ye otomatik aktarılmasını istiyorum.

 

[askm]

Kodllarınızı Sayfa2 nin activite olayına yazın. Sayfa açılırken çalışır.

 

[baris1987]

amacım sayfa açılırken çalışması değil, sayfada değişiklik yaptığım zaman eş zamanlı sayfa 2 ye iletilmesi.

 

[askm]

Sayfanın kod kısmına aşağıdaki kodları ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s2 As Worksheet
Set s2 = Sheets("Sayfa2")
s2.Cells(Target.Row, Target.Column) = Target.Value
End Sub

Eğer belli bir alanda işlem yapmak isçtiyorsanız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:AG100")) Is Nothing Then Exit Sub
Dim s2 As Worksheet
Set s2 = Sheets("Sayfa2")
s2.Cells(Target.Row, Target.Column) = Target.Value
End Sub

 

[baris1987]

hocam ben çözemedim dediğinizi yapıyorum ama eş zamanlı değiştirmiyor size zahmet hazırlayıp atabilirmisiniz?

 

[askm]

Dosyanız ektedir.

 

[baris1987]

hocam ekteki dosyayı indirdim ama eş zamanlı çalışmıyor. Makroyu çalıştır diyorum ondan sonra devreye giriyor. Benim excel de mi bir sorun var

 

[askm]

Makroyu çalıştırla ilgisi yok eklediğim kodun. Sayfada veri girdikçe ya da silsenizde diğer sayfaya aynen aynı satıra işliyor.

 

[baris1987]

aynı satıra değilde dolu olan satıra olarak sıralaması lazım hocam ilk gönderdiğim excel listesine bakın makroyu çalıştırınca sıralıyor çalıştırmassan dolu satırları sıralamıyor.

 

[baris1987]

yada düğme falan ekleyemiyomuyuz tıkladığımızda otomatik atsın