Excel değişiklik kontrolü

[SerkanAtayurt]

Excel Dosyasındaki sayfaların içindeki hücrelerde değişiklik yapıldığında aynı sayfa içinde bir hücreye değişiklik tarihini yazdırmak istiyorum.
aynı dosya içinde 1000 e yakın sayfa var. Her bir sayfa için ayrı ayrı kontrolün yapılması gerekiyor.
ilginize teşekkürler

 

[Necdet]

Merhaba,

1000 sayfa bir xl dosyası için bana göre çok büyük yük.
bir sayfada milyonlarca hücre var tüm hücredeki değişikliği istemiyorsunuzdur diye tahmin ediyorum. Bunun için örnek bir dosyanızı paylaşım sitelerinden birinde paylaşırsanız genel amaçlı istediğinizi somutlaştırmış olursunuz.
Kodları yazacak olan arkadaşa da yardımcı olur.

 

[SerkanAtayurt]

Merhaba,

1000 sayfa bir xl dosyası için bana göre çok büyük yük.
bir sayfada milyonlarca hücre var tüm hücredeki değişikliği istemiyorsunuzdur diye tahmin ediyorum. Bunun için örnek bir dosyanızı paylaşım sitelerinden birinde paylaşırsanız genel amaçlı istediğinizi somutlaştırmış olursunuz.
Kodları yazacak olan arkadaşa da yardımcı olur.

tekrar merhaba;
A1:S28 hücre gurubunda değişiklik olursa T2 hücresindeki tarih bugün olsun

 

[Necdet]

Merhaba,

Birden fazla değişiklik olduğunda bir öneriniz var mı?

Aşağıdaki kodları ThisWorkBook'un kod bölümüne kopyalıp deneyiniz. Kodda geçen aa, bb, cc gibi değerler sizin kodlarınızın çalışmasını istemediğiniz sayfa adlarıdır, böyle durum varsa bu değişkenleri kendinize göre uyarlayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "aa" Or ActiveSheet.Name = "bb" Or ActiveSheet.Name = "cc" Then Exit Sub
    If Intersect(Target, [A1:S28]) Is Nothing Then Exit Sub
    
    Range("T2") = Date
    
End Sub

 

[SerkanAtayurt]

Merhaba,

Birden fazla değişiklik olduğunda bir öneriniz var mı?

Aşağıdaki kodları ThisWorkBook'un kod bölümüne kopyalıp deneyiniz. Kodda geçen aa, bb, cc gibi değerler sizin kodlarınızın çalışmasını istemediğiniz sayfa adlarıdır, böyle durum varsa bu değişkenleri kendinize göre uyarlayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "aa" Or ActiveSheet.Name = "bb" Or ActiveSheet.Name = "cc" Then Exit Sub
    If Intersect(Target, [A1:S28]) Is Nothing Then Exit Sub
   
    Range("T2") = Date
   
End Sub

[/QUO

Merhaba,

Birden fazla değişiklik olduğunda bir öneriniz var mı?

Aşağıdaki kodları ThisWorkBook'un kod bölümüne kopyalıp deneyiniz. Kodda geçen aa, bb, cc gibi değerler sizin kodlarınızın çalışmasını istemediğiniz sayfa adlarıdır, böyle durum varsa bu değişkenleri kendinize göre uyarlayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "aa" Or ActiveSheet.Name = "bb" Or ActiveSheet.Name = "cc" Then Exit Sub
    If Intersect(Target, [A1:S28]) Is Nothing Then Exit Sub
   
    Range("T2") = Date
   
End Sub

Merhaba, çok teşekkür ederim. hemen deneyeceğim.

 

[Tevfik_Kursun]

Sayın Necdet Hocam,
En son hangi hücrede değişiklik yapıldığı U2 hücresine yazılabilir mi?
Saygılarımla

 

[SerkanAtayurt]

Merhaba,

Birden fazla değişiklik olduğunda bir öneriniz var mı?

Aşağıdaki kodları ThisWorkBook'un kod bölümüne kopyalıp deneyiniz. Kodda geçen aa, bb, cc gibi değerler sizin kodlarınızın çalışmasını istemediğiniz sayfa adlarıdır, böyle durum varsa bu değişkenleri kendinize göre uyarlayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "aa" Or ActiveSheet.Name = "bb" Or ActiveSheet.Name = "cc" Then Exit Sub
    If Intersect(Target, [A1:S28]) Is Nothing Then Exit Sub
   
    Range("T2") = Date
   
End Sub

Mükemmel bir şekilde çalıştı. Gerçekten çok güzel oldu. Çok teşekkür ederim.

 

[uzmanamele]

Merhaba

Dosyayı paylaşın ve değişiklikleri izleyin.

 

[Necdet]

Sayın Necdet Hocam,
En son hangi hücrede değişiklik yapıldığı U2 hücresine yazılabilir mi?
Saygılarımla

Merhaba,

Range("T2") = Date
satırını

Range("U2") = activecell.address

olarak değiştirin.

 

[Tevfik_Kursun]

Sayın Necdet Hocam,
Çok teşekkür ederim
Saygılarımla

 

[SerkanAtayurt]

Merhaba

Dosyayı paylaşın ve değişiklikleri izleyin.

Merhaba,

Birden fazla değişiklik olduğunda bir öneriniz var mı?

Aşağıdaki kodları ThisWorkBook'un kod bölümüne kopyalıp deneyiniz. Kodda geçen aa, bb, cc gibi değerler sizin kodlarınızın çalışmasını istemediğiniz sayfa adlarıdır, böyle durum varsa bu değişkenleri kendinize göre uyarlayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "aa" Or ActiveSheet.Name = "bb" Or ActiveSheet.Name = "cc" Then Exit Sub
    If Intersect(Target, [A1:S28]) Is Nothing Then Exit Sub
   
    Range("T2") = Date
   
End Sub

Merhaba, kodları yazınca ctrl+z ve crtl+y çalışmıyor. Çalışır hale getirilebilme ihtimali var mıdır?

 

[Necdet]

Merhaba,

Bir denemede çalıştı, tekrar denediğimde çalışmadı, anlamadım. Ama Ctrl+Ins Shift+Ins çalıştı

 

[SerkanAtayurt]

Merhaba,

Range("T2") = Date
satırını

Range("U2") = activecell.address

olarak değiştirin.

Merhaba Necdet bey, bunu yazdığımda değişen hücrenin adresini değilde değiştirdikten sonra entera basınca gidilen hücrenin adresini yazıyor. değişimin yapıldığı hücrenin adresini yazacağı bir komut var mıdır? ilginize teşekkür ederim.

 

[Necdet]

Merhaba,

Koddaki Activecell.Address 'i Target.Address olarak değiştirin.