Olaya Endeksli Makro

[baydeniro]

Arkadaşlar olaya endeksli makrı konusunda yardımıcı olmanızı rica ederim. Ekteki dosyada bir "sembolik makro" mevcuttur. Bu makronun kayıt sayısı 20 olunca kendiliğinden devreye girmesini sağlamak mümkün müdür ? İlgilenenlere şimdiden teşekkürler.

 

[hamitcan]

Sayfanın ThisWorkbook kısmına aşağıdaki kodu ekleyin. Yirminci kayıta ulaşıldığında bir mesaj ile sizi uyarıcak.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("RAPOR_Olay").[b65536].End(3).Row - 1 = 20 Then MsgBox "20.kayıta ulaşıldı"
End Sub

 

[baydeniro]

Yardım

Sayın hamitcan gönderdiğiniz kodu aklım erdiği kadarıyla uyguladım, ancak istenen sonucu alamadım. Ekteki dosyayı inceleyip yaptığım hatayı/eksikliği düzeltebilir misiniz. Bir de kodun uyarması yerine kendiliğinden devreye girmesi sağlanabilir mi ? Yani MAKRO_OLAY'ı kendisi otomatik çalıştırsın. Şimdiden teşekkürler.

 

[hamitcan]

Anladığım kadarıyla, 20.kayıta ulaştığınızda yada 20.kayıdı geçtiğinizde, kayıtları KAYIT sayfasına aktarmak istiyorsunuz. Yaptığınız makroyu doğrusu pek anlamadım. Ben yeni bir makro oluşturdum. Ayrıca 20.kayıda ulaştığınızda ve çekin tutarı kısmına giriş yaptıktan sonra makro çalışacaktır.

 

[baydeniro]

Teşekkür

Sayın hamitcan ilginize teşekkür ederim. Son dosyayı indirdim ancak her nedense dosya açılır açanmaz kapanıyor. Acaba Winwods versiyon farkı veya Ayarlar ile ilgili bir durum olabilir mi ? İsterseniz makro tanımını şöyle yenileyeyim : Kayıt sayısı olarak diyelim ki 100 yazdım. Eğer kayıt satırı sayısı 100 ve daha fazla ise o zaman makro otomatik olarak devreye girip rapor sayfasını temizlesin. Kayıt sayısı değiştiğinde yeni duruma göre makrı kendini update etsin gibi bir makro. İlginize teşekkürler.

 

[hamitcan]

Öncelikle, dosyanın açılır açılmaz kapandığını söylüyorsunuz. Bunun sebebini bilmiyorum. Diğer sorunuz için;

Module2 içindeki makroyu aşağıdaki ile değiştirin.

Sub MAKRO_OLAY2()
Sheets("RAPOR_Olay").Cells.Copy Sheets("KAYIT").Cells
cevap = MsgBox("RAPOR sayfasındaki bilgiler silinsin mi?", vbYesNo)
If cevap = vbYes Then Sheets("RAPOR_Olay").Cells.ClearContents
End Sub

 

[baydeniro]

Teşekkür

Sayın hamitcan çok teşekkür ederim. Benim Windows ayarlarında bir durum var galiba. Çözümü kullanamadım. En kısa zamanda başka bir makinada deneyeceğim. Tekrar teşekkür ederim. İyi çalışmalar.