Negatif Sayıları Vurgulama
						  27 Mayıs 2021 
												 1038
					
				Negatif Sayıları Vurgulama isimli kod, seçtiğiniz alanda yer alan sayılar içerisindeki negatif sayıların renklendirilmesini sağlar.
Sub NegatifSayılarıVurgulama()
Dim Alan As Range
For Each Alan In Selection
    If WorksheetFunction.IsNumber(Alan) Then
        If Alan.Value < 0 Then
            Alan.Font.Color = -16776961
        End If
    End If
Next
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodu çalıştırmadan önce verilerin olduğu aralığı seçiyoruz.

Kod çalıştıktan sonra alınan görüntü aşağıdaki gibidir:

Hazır Dosyayı İndir
						Dosyayı indirmek için  giriş yapmanız ve  VIP Üyelik Paketine sahip olmanız gerekir.
					
											
							| YARARLI KISAYOLLAR | |
|---|---|
| Hücreyi Kopyalama/Çoğaltma | Ctrl Sürükle | 
| Bir sonraki sonucu bulma | Shift F4 | 
| Hücreyi Alta Yaslı Hale Getirmek | Alt Ş Ğ | 
| Sayfa Sonları Ekleme | Alt P O E | 
| Satır/Sütun/Hücre Ekleme | Ctrl + | 
