takip programında izin toplama sorunu hakkında

[favarotti]

Arkadaşlar yapmaya çalıştığım programda bir toplama konusunda takıldım. Yapmaya çalıştığım şey mümkünmüdür bilmiyorum. Yardımcı olursanız sevinirim. Açıklamayı dosyanın içinde ayrıntılı olarak yaptım. Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

İZİN KAĞIDI sayfasının kod bölümüne kopyalayınız. M22 hücresindeki izin gün sayısını değiştirdiğinizde toplama işlemi gerçekleşecektir..

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s1 As Worksheet
Set s1 = Sheets("YILLIK İZİN TAKİP")
If Intersect(Target, [M22]) Is Nothing Then Exit Sub
Set c = s1.Range("D:D").Find(Target.Offset(-2, 0), LookIn:=xlValues)
If Not c Is Nothing Then
    s1.Range("G" & c.Row) = s1.Range("G" & c.Row) + Target
End If
[COLOR=red]MsgBox " İşlem Tamam...!"[/COLOR]
End Sub

Mesaj vermesini istemezseniz, kırmızı işaretli bölümü silersiniz..

.