VBA ile Öğrenci Kontrollerini ve Biçimlendirmeyi Birleştirme

[ErolU]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar,
Daha önce forumda yardımlarınızla oluşturulan iki Worksheet_Change kodunu birleştirmek istiyorum.
Kendim birleştirip birtakım denemeler yaptım ama ikisini beraber hatasız çalıştıramadım.
Bunları birleştirebilir miyiz?
NOT: Kodlar ayrı ayrı çalıştırıldığında istenilenleri hatasız yapabiliyorlar.

1. Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (29 satır). Giriş Yap

2. Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (10 satır). Giriş Yap

 

[Ömer BARAN]

@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.

.

 

[ErolU]

Ö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?

Bu kodu görmek için giriş yapmanız gerekmektedir (39 satır). Giriş Yap