ödenen aidatın ilgili aylara yansıtılması.

[mehmetkocacik]

Arkadaşlar benım sorunum şöyle:
Site aidatı olarak ödenen tutarın her ay için 40 tl ilgili aya yazması. Diyelimki 240 tl dairenin borcu var 100 tl ödemiş bu 100 tl yi ilgili aylara yazsın istiyorum.
Yardımcı olursanız sevinirim.
Saygılar.

 

[fedeal]

dosyanız ekte (aylık eksik ödemeleri kırmızı renk uyarıyor).

 

[Orion1]

Kodlar çalışma sayfasının kod bölümünde.:cool
Dosya ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ay As Byte
If Intersect(Target, Range("E4:E65536")) Is Nothing Then Exit Sub
On Error Resume Next
ay = Month(Date)
If Target.Value > 40 Then
    Target.Offset(0, ay).Value = 40
    Else
    Target.Offset(0, ay).Value = Target.Value
End If
End Sub

 

[mehmetkocacik]

Teşekkür

dosyanız ekte (aylık eksik ödemeleri kırmızı renk uyarıyor).

arkadaşım çok teşekkür ederim. Bu işimi gördü. Sağolasın.

 

[mehmetkocacik]

Ocak şubat mart ... Aylara da 40 tl yazması gerekiyor.

kodlar çalışma sayfasının kod bölümünde.:cool
dosya ekte.

private sub worksheet_change(byval target as range)
dim ay as byte
ıf ıntersect(target, range("e4:e65536")) ıs nothing then exit sub
on error resume next
ay = month(date)
ıf target.value > 40 then
    target.offset(0, ay).value = 40
    else
    target.offset(0, ay).value = target.value
end ıf
end sub

evren kardeş;
ocak-şubat mart aylarınada 40 tl yazması gerekiyor onu nasıl yapacağım??

 

[Orion1]

Arkadaşlar benım sorunum şöyle:
Site aidatı olarak ödenen tutarın her ay için 40 tl ilgili aya yazması. Diyelimki 240 tl dairenin borcu var 100 tl ödemiş bu 100 tl yi ilgili aylara yazsın istiyorum.
Yardımcı olursanız sevinirim.
Saygılar.

evren kardeş;
ocak-şubat mart aylarınada 40 tl yazması gerekiyor onu nasıl yapacağım?

Bu önermeden ilgili ay kelimelerinin içinde bulunduğumuz ay olduğunu çıkardım.
Her içinde bulunduğumuz ayda ilgili aya verileri siz meblağı yazdıça atar.
Bunun dışında sanırım fedeal beyin cevabı işinizi görüyor unu kullanabilirsiniz.

 

[fedeal]

arkadaşım çok teşekkür ederim. Bu işimi gördü. Sağolasın.

ricaederim,iyi çalışmalar.

 

[mehmetkocacik]

Teşekkür.

Arkadaşlar ilgilenen herkese teşekkür ederim. Sorunum çözüldü. Herkese iyi çalışmalar..