hucre ıcerısıne - ekleme

[ozgeci]

merhaba
yapmak ıstedegım kırmızı olarak yazılmıs olan sayıların basına eksı ısaretı koymak
fakat bunları hucre ıcene gırerek teker teker yapmak cok zor
bunun kolay yolunu bana soylermısınız
tesekkurler

 

[hamitcan]

Sub eksi()
For Each hucre In [a1:a50] ' aralığı siz tekrar belirlersiniz
If hucre.Font.Color = vbRed Then hucre.Value = hucre * -1
Next

End Sub

 

[ozgeci]

cok ozur dılerım vede tesekkur ederım
fakat ben bu ıslemı uygulayamadım
yardımcı olurmusunuz
tesekkurler

 

[BAŞAK1]

Ekli dosyayı iyi bir şekilde inceleyiniz. İki farklı yöntem göreceksiniz. Eğer çok sayıda kırmızı fontlu verileriniz varsa ve tek hamlede başlarına tire koymak isteniyorsa :
Tire koymak istediğiniz verileri seçili yapın > Hücre Biçimlendir > Genel > İsteğe Uyarlanmış > Tür kutucuğunun içindekini silip -0(eksi sıfır) yazıp enterleyin.

 

[hamitcan]

Sayın ozgeci,

Araçlar-Makro-Visual basic düzenleyicisi-Insert-module içine yerleştirin ve çalıştırın.