Kamera özelliğine benziyor ama değil yardım

[cumxxi]

sevgili arkadaşlarım bu site sayesinde bir çok şeyi hatırlayıp bilmediğim bir çok şey öğrenmiş oldum fakat dahada çok şey öğrenmek gerekiyor o yüzden bir soru daha soracam...

biz ufak bir listeleme tablosu yapıyorduk bunu bir kaç arkadaş kullancak fakat hiç birisi zaman kaybedemeyecekkadar yoğun olcak fakat burayada giriş yapmak zorunda olacaklar konu şu...

sayfa 1 de yaptıklarımın aynısını sayfa 2 dede gösterecek fakat sayfa 2 de yaptıklarımda sayfa 1 de değişecek buna bir çözüm varmıdır... örnek geliyor... Lütfen ocak şubat sayfasına bakınız...



Ekli dosyayı görüntüle deneme.xls
buradada detaylar yazacaktır...

 

[Necdet]

Merhaba,

İstediğinizin mantığı nedir? neden doğrudan Sayfa1 de çalışmıyorsunuz?

 

[cumxxi]

olay şu bu takip çizelgesi ocak - şubat şeklince gitmesi lazımki çünkü isimler girilince çok uzun olacak, misal 6 ncı aya gelindiğinde 2 ay öncesine bakması gerekince bulmak hem zor hemde zaman alıcı olacak... bizim arkadaşların hem önceki ayları pratik bir şekilde görmesi lazım hemde sonraki aya hzılı akatarım yapması lazım... normalde 6 aylık yaptım zaten çizelgede göstermiştim benim üstümde olan kişi bunu beğenmedi, mazeretleride bu saydığım sebeplerdi...
bana bu konda yardım edereniz çok sevinirim...teşekkürler...

 

[Necdet]

Merhaba,

Hem sayfa1 de hem sayfa2 de herhangi bir değişiklikte diğer sayfada da olsun istiyorsunuz.
Bu makro ile olur ama bu dosyayı arkadaşlar kullanacaklar diyorsunuz.

Bu durumda ilgili dosyayı network ortamında paylaştırmak gerekir, böyle olunca da makrolar çalışmaz.

Doğru mu anladım?

 

[Necdet]

Yine de örnek olması açısından kodları ekleyim.

Aşağıdaki kodlar ThisWorkBook'un kod bölümünde olmalı.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
If ActiveSheet.Name = s1.Name Then
    s2.Cells(Target.Row, Target.Column) = s1.Cells(Target.Row, Target.Column)
ElseIf ActiveSheet.Name = s2.Name Then
    s1.Cells(Target.Row, Target.Column) = s2.Cells(Target.Row, Target.Column)
End If
End Sub

 

[cumxxi]

teşekkürler bir denemekte fayda var hiç olmadı bir birlerine yeni kayıtları postalayabilirler ben bunu bir deneyeyim olcak gibi teşekkürler...