Boş kalan hücreler içi format

[okankoc25]

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.

 

[okankoc25]

Arkadaşlar en azından bir bakın.

 

[kiziloguz]

Forum içinde mevcutt konuları inceleyiniz,

http://www.excel.web.tr/f48/vba-reference-ifreleme-t121903.html

http://www.excel.web.tr/f48/textboxa-girilen-ifrelerin-eklinde-gorunmesi-mumkunmudur-t119107.html

 

[okankoc25]

verdiğin bu sayfalarda hücre formayı ile ilgili hiçbir şey yok.

 

[Korhan Ayhan]

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.

Range("G13:N19") = "***************"

 

[okankoc25]

İstediğim yeni kayıt yaptığımda veya düzeltme işlemi yaptığımda boş kalan comboboxların ****** işaretiyle dolması.

 

[Korhan Ayhan]

Bu işlemdeki amaç nedir?

 

[okankoc25]

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ı

 

[Korhan Ayhan]

Aşağıdaki kod bloğunu ilgili butonlara ekleyip deneyiniz.

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

 

[okankoc25]

Eline koluna sağlık Allah razı olsun.