otomatik(-) eksi

[dilteks]

Arkadaşlar merhaba

ekteki dosyada görüldüğü gibi benim yazdığım bölümler otomatik olarak (-) yazabilirmi yani ben 50 yazayım o -50 olabilirmi

 

[uzmanamele]

merhaba

özel hücre biçimini - 0,00 şeklinde yazabilirsiniz.
hesaplarda kullanmak içinde bu sütundaki değerleri -1 ile çarparsınız.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C,E:E,G:G,I:I]) Is Nothing Then Exit Sub
If Target.Value > 0 Then Target = Target * -1
Son:
End Sub

 

[dilteks]

Necdet arkadaşım, nereye kopyalamam gerektiğini göndermiş olduğum örnekte açıklarmısınız, teşekkür ederim.

 

[Necdet]

Necdet arkadaşım, nereye kopyalamam gerektiğini göndermiş olduğum örnekte açıklarmısınız, teşekkür ederim.

Aşağıda Sayfa1 olarak görünen sayfa adına sağ tık yapın, çıkan menüden Kod görüntüleyi seçin.

Sağdaki boş beyaz sayfaya verdiğim kodları yapıştırın.