• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Boş kalan hücreler içi format

Katılım
2 Mayıs 2006
Mesajlar
237
Arkadaşlar yaptığım userformda yeni kayıt yapıldığında ve düzletme işlemi yaptığım da hücreler formatını "********" ile dolmasını istiyorum.Örnek dosyam aşağıda.
 

Ekli dosyalar

Merhaba,

Sorunuzda ne yapmak istediğiniz tam olarak anlaşılmıyor. Eğer amacınız bahsettiğiniz hücrelere yıldız simgesi eklemekse aşağıdaki kod satırını kullanabilirsiniz.

Kod:
Range("G13:N19") = "***************"
 
İstediğim yeni kayıt yaptığımda veya düzeltme işlemi yaptığımda boş kalan comboboxların ****** işaretiyle dolması.
 
Bu işlemdeki amaç nedir?
 
Amacım boş kalan Comboboxların ****** şeklinde dolması ve yazdırma sırasında bunun gözükmesi.Tabi amaç boş kalan hücrelerin boş kaldığını belirtek sonradan kağıda elle bir şey yazılmaması
 
Aşağıdaki kod bloğunu ilgili butonlara ekleyip deneyiniz.

Kod:
Dim Nesne As Control

For Each Nesne In Me.Controls
    If TypeName(Nesne) = "ComboBox" Then
        If Nesne.Value = "" Then
            Nesne.Value = "***************"
        End If
    End If
Next
 
Geri
Üst