Bu dosya, web sitelerinden ya da farklı yazılımlardan Excel'e aktarılan verilerde görülen bozuk Türkçe harfleri (ör. ÅŸ, ı, ü) düzeltmek için hazırlanmıştır. Düzeltme, aynı işi farklı yöntemlerle yapan yedi VBA makrosuyla gerçekleştirilir.
Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir. Makrolarda dosya silme veya dışarıya bağlantı gibi işlemler yoktur, yalnızca hücrelerde bul-değiştir yapılır.
Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir. Makrolarda dosya silme veya dışarıya bağlantı gibi işlemler yoktur, yalnızca hücrelerde bul-değiştir yapılır.
Dosyanın içeriği
- data: A sütununda bozuk karakterler (Bul), yanlarında doğru karşılıkları yer alır. Sayfada ayrıca hava durumu tablosu bulunur: tarih, sıcaklık, nem, rüzgar yönü ve uç sıcaklık değerleri. Bu tablo düzeltilmiş halde görünür.
- test: Aynı hava durumu tablosunun bozuk karakterli hali yer alır (ör. Eylül, Salı, KuzeydoÄŸudan). Makroları denemek için kullanılır.
Makrolar
Makrolar Module1 modülündedir. Tamamı seçili sütunlarda Replace ile bozuk karakter çiftlerini düzeltir (ş, ı, Ç, İ, Ş, ü, Ö, Ü, Ğ, ğ, ö, ç).- BulDegistir1: Scripting.Dictionary yöntemi. Bulunacak ve değiştirilecek karakterler kodun içine yazılıdır; C:AA sütunlarına uygulanır.
- BulDegistir2: Aynı yöntem; karakter çiftleri A2:B13 hücrelerinden alınır.
- BulDegistir3: Array yöntemi. Değerler kodda yazılıdır; düzeltilecek sütunları bir pencereden seçersiniz.
- BulDegistir4: Array yöntemi. Çiftler A2:B13 hücrelerinden alınır; sütunlar pencereden seçilir.
- BulDegistir5: Döngü yöntemi. A1:A14 satırlarını sondan başa tarar, B sütunundaki karşılığı C:AA sütunlarında uygular.
- BulDegistir6: Döngü yöntemi. A sütununun son dolu satırına kadar çalışır.
- BulDegistir7: Range yöntemi. A2:B13 aralığındaki çiftleri kullanır; kod "Örnek" adlı sayfaya başvurur, bu nedenle dosyadaki sayfa adlarına göre (data) kodda sayfa adının uyarlanması gerekir.
Nasıl kullanılır
- Dosyayı açıp makroları etkinleştirin.
- Bozuk verinizi C:AA sütunlarına yapıştırın; bul-değiştir çiftleri A ve B sütunlarında olmalıdır.
- Alt+F8 ile istediğiniz makroyu seçip çalıştırın.
- BulDegistir3 ve BulDegistir4 için açılan pencerede düzeltilecek sütunları seçin.
- Önce test sayfasındaki örnek veriyle deneyip sonucu kontrol edin; makro işlemleri geri alınamaz, bu yüzden gerçek verinin yedeğini alın.