Run Time Error 13 Type Mismatch Hata Giderme

Çalışma kitabındaki VBA kodu incelenerek aktarım ve gruplama işlemlerinde aşağıdaki düzenlemeler yapılmıştır.

Type Mismatch Hatasının Nedeni​

Hatanın oluştuğu eski kod satırı şöyledir:


ARCHİVE sayfasında henüz kayıt bulunmadığında hedef satır 2 olarak hesaplanmaktaydı. Bu durumda kod, B1 hücresindeki “SİCİL NO” başlık metnine 1 eklemeye çalıştığı için çalışma zamanı hatası 13, yani “Type mismatch” hatası oluşmaktaydı.

Hedef satırın hiçbir zaman 3’ten küçük olmaması sağlanmış ve sıra numarası bir önceki hücreye bağlı olmadan hesaplanmıştır:

Aktarım Başlangıç Satırı​

ARCHİVE sayfasındaki kayıtların 3. satırdan başlaması sağlanmıştır. İkinci satır boş bırakılmakta ve yeni kayıtlar A3:F3 aralığından itibaren oluşturulmaktadır.

Önceki hatalı çalıştırmadan dolayı ARCHİVE sayfasının 2. satırında yarım kalan tarih, kişi ve klasör bilgileri temizlenmiştir. H sütununda tarihi bulunan yarım kalmış kayıt ARCHİVE sayfasının 3. satırına doğru şekilde aktarılmış ve FHRİST sayfasındaki kaynak satır silinmiştir.

H Sütunuyla Otomatik Aktarım​

Aktarım işlemi daha önce Worksheet_SelectionChange olayıyla çalışmaktaydı. Bu nedenle yalnızca başka bir hücre seçildiğinde işlem başlıyor ve aynı satırın tekrar işleme alınması gibi sorunlar oluşabiliyordu.

Kod Worksheet_Change olayına taşınmıştır. Artık FHRİST sayfasının H sütununda, 3. satırdan itibaren geçerli bir tarih girildiğinde aktarım işlemi başlatılmaktadır:


Tarih girildiğinde kullanıcıdan onay alınmaktadır. Onay verilmesi hâlinde:

1. Tarih ARCHİVE sayfasının A sütununa aktarılır.
2. ARCHİVE sıra numarası B sütununa yazılır.
3. Adı soyadı bilgisi C sütununa aktarılır.
4. T.C. kimlik numarası D sütununa aktarılır.
5. Beşli klasör bilgisi F sütununa yazılır.
6. Aktarılan kaynak satır FHRİST sayfasından silinir.

Geçersiz bir tarih girilirse kullanıcı bilgilendirilmekte ve hatalı değer temizlenmektedir.

Sekizli Grupların Beşli Gruplara Dönüştürülmesi​

Eski koddaki sekizli grup büyüklüğü beş olarak değiştirilmiştir:


Yeni klasör aralıkları aşağıdaki şekilde oluşturulmaktadır:


Buna göre klasörler şu düzende ilerlemektedir:

1 Nolu Klasör ( 1 - 5 ) Arası
2 Nolu Klasör ( 6 - 10 ) Arası
3 Nolu Klasör ( 11 - 15 ) Arası
4 Nolu Klasör ( 16 - 20 ) Arası

FHRİST ve ARCHİVE sayfalarındaki mevcut klasör açıklamaları da beşli düzene göre güncellenmiştir.

Ek Güvenlik Düzenlemeleri​

Kodda ayrıca aşağıdaki iyileştirmeler yapılmıştır:

• Tüm değişkenler Option Explicit ile tanımlanmıştır.
• Hata değerleri, boş hücreler ve sayısal olmayan sicil değerleri kontrol edilmektedir.
• İşlem sırasında olayların tekrar tetiklenmesi Application.EnableEvents ile engellenmiştir.
• Hata oluşması durumunda olaylar yeniden etkinleştirilmektedir.
• Aktarım tamamlanamazsa kaynak satır silinmemektedir.
• Yarım kayıt oluşmasını önlemek için hedef satır temizleme mekanizması eklenmiştir.
• Bir önceki ARCHİVE sıra numarasına bağımlılık kaldırılmıştır.
• Kaynak dosya korunmuş, düzenlemeler ayrı bir XLSM kopyası üzerinde yapılmıştır.