Boş hücrelere otomatik "x" yazılsın, rengini beyaz yapsın

[girdap]

Merhaba,

Bir excel tablosu doldurulmaktadır. Tabloda 21 adet sütun vardır.Satır sayısı ise girilen verilere göre aşağıya doğru devam edecektir. Bu arada boş bırakılacak herhangibir hücre otomatik x değeri alarak rengi beyaz olması istenmektedir. Bu durumu nasıl kodlayabiliriz?

Teşekkür ediyor saygılar sunuyorum.

 

[Necdet]

Merhaba,

Örnek olarak [A:G] sütun için geçerlidir, siz bunu kendinize göre güncelleyiniz.

Liste oluşturulmuştur, onu da inceleyebilirsiniz. Veri - Liste

Boş hücrelerde otomatik X koyuyor, hemen değiştirebilirsiniz.

İlgili sayfadaki kodlar :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A2:G100]) Is Nothing Then Exit Sub
    If Target.Value = "" Then Target.Value = "X"
Son:
End Sub

 

[Necdet]

Makrosuz ve Fonksiyonsuz Çözüm :

X dolduracağınız alanı seçiniz (aralarında dolu hücrelerde olabilir)

• F5
• Özel
• Boşluklar
• İlk gösterdiği hücreye X yazıp Ctrl+Enter

 

[girdap]

Merhaba

Sizlere çok teşekkür ediyorum. Ancak bir şey daha sormuştum. Boş hücrelere kodlu çözümle x koydurduk diyelim. Bu işleme rengini beyaz yaptırmayı da eklersek koddaki değişiklik ne olacaktır.


Saygılarımla

 

[Orion1]

Bence en iyisi bir buton koyup butonla yapmak olacaktır.Sayfanın change olayında bu işlemleri yapmak sayfa doldukça ağırlaşacaktır.
Ekli dosyayı inceleyiniz.

 

[girdap]

Sayın Orion2 gösterdiğiniz yol için size ne kadar teşekkür etsem azdır. elinize sağlık.

İyi çalışmalar.


Saygılarımla