İki Worksheet Change kodunu birleştirmek

@Erol U.

Örnek belgenize bakmadım. Şöyle bir deneyin derim:

İkinci kodla ilgili düzeltme / yer değişiklikleri yeterli olur gibi görünüyor.
-- kod içeriğini birincinin üstüne alın,
-- ilk satırın sonundaki Exit Sub yerine GoTo 20 yazın,
-- ikinci satırın başındaki If Intersect... kısmını If Not Intersect... olarak değiştirip, aynı satırın sonundaki Exit Sub kısmını silin,
-- kodun sonundaki son:Applicati.... satırının altına 20:End If diye bir satır ekleyin,

Birinci kodun sadece birinci satırının devre dışı bırakılması veya küçük değişiklik yapılması gerekebilir, denemeniz lazım.

.

Ömer BARAN,​

Açıklamalarınız için teşekkürler, sorun çözülmüştür.
Kodu sizin önerileriniz doğrultusunda düzenledim. Sorunlar vardı. Önerileriniz üzerinde düzenleme yaptım. Daha sonrasında yaptığım denemelerde tüm özelliklerin çalıştığını gördüm.
Aşağıya eklediğim kod, kodun hatasız işlem yapan son biçimidir.

Bir soru: Aşağıda ikinci satırda "On Error Resume Next" ifadesi olmazsa üçüncü satırda "Type Mismatch" hatası oluyor. Kodu böyle kullanırsam şu anda öngöremediğim bir sıkıntı olur mu?