Makro birleştirme

[JACKALTURK]

sayın üstadlarım.elimde aynı sayfa içerisinde "private sub worksheet_change(byval target as range)" kalıbı ile (veya öngöreceğiniz başka bir komutla ama) koşula bağlı otomatik olarak çalışmasını istediğim iki ayrı makro var.makrolar konusunda çok sınırlı bir bilgiye sahibim ve bunun neticesi olarak bu iki makroyu birleştiremedim.sayfaya buton eklemek bir çözüm ancak eğer buna gerek kalmadan siz değerli üstadlar yardımcı olabilirseniz çok memnun olurum.ekte ne istediğimi "f2" sayfası içinde yaptığım açıklamada ifade ettim.lütfen yardım edermisiniz...

 

[Ömer]

Merhaba,

If Intersect(Target, Range("B7:B21,D7: D20")) Is Nothing Then Exit Sub

satırından sonra aşağıdaki satırı ilave edin.

Call Evn

.

 

[JACKALTURK]

Sayın üstadım Ömer Bey verdiğiniz cevap için çok teşekkür ederim.müthişsiniz kod çalıştı sağolunuz.lakin ben birkaç ekleme yapmak istiyorum bu koda.eğer takıldığım birşey olursa size sormak isterim müsadenizle.çok teşekkürler tekrar.