hücre değerini varsayılan olarak negatif yapmak mümkün müdür?

[igloo]

herhangi bir hücreye (+) veya (-) sayı girildiğinde, bu sayının her durumda (-) kalmasını istiyorum.

bunu mali tablolarda kullanacağım. mesela bilançoda 257 birikmiş amortismanlar hesabı negatif çalışır. elemanın bu hesap için hücreye gireceği rakamın her durumda negatif olması gerekiyor.

var mı bir yolu ???

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız A1:A500 aralığına sayı girildiğine negatife çevirir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:a500")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Target) Then
Target = Abs(Target) * (-1)
End If
Application.EnableEvents = True
End Sub

 

[Merhum İdris SERDAR]

.

1. İlgili hücreleri, -1 ile çarpın veya bölün.

2. Aşağıdaki gibi kod kullanabilirsiniz.

Sub Cevir()
Dim C As Range
For Each C In Selection
C.Value = -C.Value
Next C
End Sub

3. Amaç sadece görüntüyü kurtarmak ise; hücreyi İsteğe uyarlanmış olarak -0,00 yapın.


.

 

[igloo]

teşekkür ederim cevabınız için.

bir aralık için değilde sayfa içinde dağınık yerlerdeki farklı tekil hücreler için uygulamak istersem kodu revize edebilir miyiz?

 

[YUSUF44]

teşekkür ederim cevabınız için.

bir aralık için değilde sayfa içinde dağınık yerlerdeki farklı tekil hücreler için uygulamak istersem kodu revize edebilir miyiz?

Eğer o yerler önceden belliyse ya da belli edilmesi için bir kural varsa A1:A500 aralığı belirlendiği gibi o hücreler de belirtilebilir. Örneğin "solunda 257 birikmiş amortismanlar yazan hücrelere uygula" ya da range("a1, a5, a8") gibi

 

[igloo]

idris bey ilginiz için teşekkür ederim.

maksat görüntü değil, değerin negatif olması gerekiyor. bu nedenle özel biçimlendirme kullanamıyorum.

-1 ile çarpmak veri girişinin yapıldığı sütundan ayrı bir sütun oluşturmayı gerektirir. elbette yapılabilir... ama işi kolaylaştırmak ve arkadaşlarımın veri girişi yaparken gerçekleşebilecek muhtemel hatayı elimine etmek istiyorum.

saygılar.

 

[YUSUF44]

idris bey ilginiz için teşekkür ederim.

maksat görüntü değil, değerin negatif olması gerekiyor. bu nedenle özel biçimlendirme kullanamıyorum.

-1 ile çarpmak veri girişinin yapıldığı sütundan ayrı bir sütun oluşturmayı gerektirir. elbette yapılabilir... ama işi kolaylaştırmak ve arkadaşlarımın veri girişi yaparken gerçekleşebilecek muhtemel hatayı elimine etmek istiyorum.

saygılar.

-1 ile çarpmak ya da bölmek için ayrı bir hücreye gerek yok. Gerçi sorunuzun cevabı değil ama yeri gelmişken bu özelliği hatırlatmak istedim:

Herhangi bir boş hücreye -1 yazın
-1 ile çarpılacak/bölünecek (yani işareti değiştirilecek) hücre/hücreleri seçin
Sağ tıklayıp Özel yapıştır menüsünü açın
Çıkan seçeneklerden Çarp ya da Böl'ü seçin
bu işlem sonunda seçili hücre(ler) -1 ile çarpılmış/bölünmüş olur (işareti değişir)

Bu işlemin benzerini özellikle metin olarak biçimlenmiş hücreleri sayıya dönüştürmek için kullanırım sıklıkla.

 

[igloo]

yusuf44,

evet tüm tabloda negatif hücrelerin yerini tespit edebilirim. adet olarak çok değil.

sizden şunu isteyebilir miyim?
soldaki hücrenin sağdan üç karakteri "(-)" ise hücre negatif olsun...

bunun kodunu yazabilir misiniz?

şimdiden teşekkürler...

 

[igloo]

hatırlattığınız özellik başka durumlarda işime yarar.

sanırım siz de farkettiniz... ben ilk veri giriş anında belirlenmiş hücrelerde negatif değer istiyorum. oluşturulmuş veri aralığında sonradan düzeltme/değişiklik yapmam gerekmesin.

 

[YUSUF44]

Aşağıdaki kodlar sayfanın herhangi bir hücresine sayı girildiğinde eğer soldaki hücrenin ilk 3 karakteri - ise girilen sayıyı negatif yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If IsNumeric(Target) And Left(Target.Offset(0, -1), 3) = "---" Then
Target = Abs(Target) * (-1)
End If
Application.EnableEvents = True
End Sub

Yalnız kodları A sütununu dikkate almayacak şekilde düzenleyemedim. Kodları sayfaya yapıştırdıktan sonra A sütununa veri girerseniz kodlar doğal olarak hata veriyor ama çalışmıyor bir daha.

 

[Ömer BARAN]

soldaki hücrenin sağdan üç karakteri "(-)" ise hücre negatif olsun...

Sütunu seçip "BUL"-> "DEĞİŞTİR"-> "Aranan"-> ( -> "Tümünü Değiştir".
Aynı işlemi kapanan parantez için de yapmanız yeterli olacaktır.

 

[Merhum İdris SERDAR]

.

Bence bunu Veri Doğrulama ile yaparsanız daha iyi olur.


Örnek dosya burada.

http://s3.dosya.tc/server/6lp3vv/veridogrulama.xlsx.html


.