InputBox ile Boş Hücrelere Otomatik Veri Girişi Yapma

Bu dosya, seçilen hücre aralığındaki boş hücreleri tek seferde aynı değerle doldurmak için hazırlanmış bir makro örneğidir. Doldurulacak değer bir InputBox penceresinden girilir; dolu hücrelere dokunulmaz.

Dosyanın içeriği​

• Sayfa1: A1:E19 aralığında, makroyu denemek için kullanılan örnek veri alanı bulunur. Sayfada formül, tablo, grafik veya doğrulama kuralı yoktur.
• Module1: FillEmptyBlankCellWithValue adlı makroyu içeren VBA modülüdür (12 satır).

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod dosya silme veya dış bağlantı gibi işlemler yapmaz; yalnızca seçili hücrelerin değerini değiştirir.

• FillEmptyBlankCellWithValue: Çalıştırıldığında "Boş Hücreleri Doldurun" başlıklı bir InputBox açar ve boş hücreleri dolduracak değer istenir. Ardından seçimdeki her hücre kontrol edilir; IsEmpty ile boş olduğu belirlenen hücrelere girilen değer yazılır. Dolu hücreler olduğu gibi kalır.
• Kodda On Error Resume Next kullanıldığından pencere iptal edilirse veya hata oluşursa makro hata mesajı vermeden devam eder.
• Girilen değer metin olarak alınır (String); rakam girilse bile hücreye metin olarak yazılabilir.
• IsEmpty yalnızca gerçekten boş hücreleri yakalar; içinde boşluk karakteri bulunan hücreler dolu sayılır.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1'de doldurmak istediğiniz aralığı seçin (örneğin A1:E19).
3. Alt+F8 tuşlarıyla makro listesini açın, FillEmptyBlankCellWithValue makrosunu seçip Çalıştır'a tıklayın.
4. Açılan pencereye boş hücrelere yazılacak değeri girip Tamam'a basın.
5. Seçimdeki boş hücreler girilen değerle dolar.
6. Makroyu kendi dosyanızda kullanmak için Alt+F11 ile VBA düzenleyicisini açıp modülü kopyalayabilirsiniz.