ö(ödendi) harfi yazıldığında -5000 tl düşmesi

[kErTmEyEn_KeLe]

Merhaba Arkadaşlar bir konuda bana yardımcı olabilirseniz sevinirim.

Şimdi A5 sutununda 5000 TL VAR
B5 sutununda ise Ö(Ödendi) harfi, yazdığımda -5000 TL(A5 sutunu) yapmasını istiyorum.yani eğer Ö yazıldığı takdirde ''ödemeler toplamı'' A10 sutunundan 5000 TL düşmesini istiyorum.

 

[hamitcan]

İlgili sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Cells(Target.Row, 2) = "Ö" Then
        Cells(Target.Row, 1) = Cells(Target.Row, 1) * -1
    ElseIf Cells(Target.Row, 2) <> "Ö" And Cells(Target.Row, 1) < 0 Then
        Cells(Target.Row, 1) = Cells(Target.Row, 1) * -1
    End If
End Sub

 

[adsoft]

alternatif olarak

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If Target = "Ö" Then
Target.Offset(0, -1) = "0"

End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[kErTmEyEn_KeLe]

ilgili sayfanın kod kısmı derken anlyamadım kusura bakmayın. excel görüntüsünü görmeniz açısından buraya ekledim.

D5 sutununa E yazıldığında C12 sutunundan -500,00 TL düşmesini istiyorum.
D6 sutununa E yazıldığında C12 sutunundan -1000,00 TL düşmesini istiyorum.

 

[adsoft]

sayfa 1 yazan yerin üzerini sağ tıkla ve "kod görüntüle" de sonra açılan pencerede boş sayfa olacak yukarıda yazılan kodu oraya yapıştır hepsi bu kadar

 

[kErTmEyEn_KeLe]

Yapıştırdım ama olmadı

 

[hamitcan]

4 nolu mesaj ile 1 nolu mesaj birbirinden farklı.

 

[adsoft]

birde bunu denermisin

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = "E" Then
Target.Offset(0, -1) = "0"

End If



End Sub

 

[suatbayhan]

Merhaba,

TOPLA(C5:C11)-EĞERSAY(D5:D11;"E")*500

ya da

TOPLA.ÇARPIM((C5:C11)-(D5:D11="E")*500)

formülü işinizi görür mü?
Selamlar...

 

[kErTmEyEn_KeLe]

C5 - C6 - C7 vs. sutununa farklı rakamlar girsemde bu sefer hep -500 yapıyor. E yazdığım zaman yandaki tutarı çıkarması için nasıl bir işlem yapmam gerekiyor

 

[suatbayhan]

Merhaba,

TOPLA.ÇARPIM((D5:D7="")*(C5:C7))

formülü işinizi görür mü?
Selamlar...

 

[numan şamil]

ilgili sayfanın kod kısmı derken anlyamadım kusura bakmayın. excel görüntüsünü görmeniz açısından buraya ekledim.

D5 sutununa E yazıldığında C12 sutunundan -500,00 TL düşmesini istiyorum.
D6 sutununa E yazıldığında C12 sutunundan -1000,00 TL düşmesini istiyorum.

Merhaba
C12 hücresine formülü yapıştırın

=TOPLA.ÇARPIM((D5:D11<>"E")*(C5:C11))

 

[kErTmEyEn_KeLe]

çok teşekkür ederim yardımlarınız için süpersiniz.

 

[kErTmEyEn_KeLe]

Merhaba Numan Şamil Bey;

E harfinin yerine örnek olarak 01 ocak 2014 veya 18 Mart 2014 yazdığımda eksi olması için nasıl bir formül yazmam gerekir.

 

[adsoft]

merhaba numan şamil bey;

e harfinin yerine örnek olarak 01 ocak 2014 veya 18 mart 2014 yazdığımda eksi olması için nasıl bir formül yazmam gerekir.

=topla.çarpım((d5:d11>"01.01.1900")*(c5:c11))

 

[kErTmEyEn_KeLe]

01 OCAK 2014 - 15 ŞUBAT 2014 - 26 MART 2014 - 30 NİSAN 2014 ve diğer aylarda dahil olsa
yani tarihin içinde ocağı gördüğü zaman düşecek ya da aralık'ı gördüğü zaman düşücek ben yine 01 OCAK 2014 yazacağım burda ocağı baz alacak sonra düşecek ordaki tutarı

 

[adsoft]

01 OCAK 2014 - 15 ŞUBAT 2014 - 26 MART 2014 - 30 NİSAN 2014 ve diğer aylarda dahil olsa
yani tarihin içinde ocağı gördüğü zaman düşecek ya da aralık'ı gördüğü zaman düşücek ben yine 01 OCAK 2014 yazacağım burda ocağı baz alacak sonra düşecek ordaki tutarı

zaten o şekilde yaptım yalnız sizin tarih yazdığınız sutunlara
hücre biçimlendir kısmında isteğe uyarlanmış bölüünde aşağıdaki kodu kullanmaınız gerek

gg aaaa yyyy

 

[adsoft]

siz bana dosya gönderirseniz yardımcı olurum

 

[Mahir64]

01 OCAK 2014 - 15 ŞUBAT 2014 - 26 MART 2014 - 30 NİSAN 2014 ve diğer aylarda dahil olsa
yani tarihin içinde ocağı gördüğü zaman düşecek ya da aralık'ı gördüğü zaman düşücek ben yine 01 OCAK 2014 yazacağım burda ocağı baz alacak sonra düşecek ordaki tutarı

Forum genele hitap ettiği için kullanıcı adınız biraz kaba düşmüş. Hüseyin Bey'den rica edip değiştirebilirsiniz.

--

 

[kErTmEyEn_KeLe]

kaba neden olsun ki kertenkele bende işin espirisi olarak kertmeyen kele yaptım