Eksi Değeri Artı Olarak Gösterme

[ccuneyt13]

Range("N3:N1048576,P31048576").Font.Bold = False
Range("N3:N1048576,P31048576").Font.Name = "Arial"
Range("N3:N1048576,P31048576").Font.Size = 9
Range("N3:N1048576,P31048576").NumberFormat = "#,##0.00"

Böyle bi makro elimde var sayfamın biçimlerini korumak için. Biraz daha uzun ama sorun olan yeri yazdım sadece. N sütününda sayı biçimini -olan değerleri kırmızı olarak artı göster yapıyorum fakat bu kod yüzünden biçimleri korumak için sahip olduğum makro gene eski haline getiriyor. burda N sütünü için güncellemeye ihtiyacım var. Yani Artı değerleri gene 0.00 şeklinde gösterip korumaya devam etsin ama eksi değerleride kırmızı artı olarak göstersin.

 

[Korhan Ayhan]

Merhaba,

Makro kaydet yöntemi ile aşağıdaki kodu elde ettim. Sizin kodlarınızın altına ekleyiniz.

Range("N3:N1048576").NumberFormat = "#,##0.00;[Red]#,##0.00"

 

[ccuneyt13]

Merhaba,

Makro kaydet yöntemi ile aşağıdaki kodu elde ettim. Sizin kodlarınızın altına ekleyiniz.

Range("N3:N1048576").NumberFormat = "#,##0.00;[Red]#,##0.00"

Çok teşekkür ederim. elinize sağlık