bir hücreye veri girişi yaptığımda diger hücreye giriş yapsın yada çıkarsın.

[hostwebtasarim]

usatalarım sizden bir ricam var. ekteki dosyada yapmaya çalıştığım bir örnek dosya var bu dosyada. sarı ile işaretlediğim kısımlar var. bu kısımlara veri girişi yaptığımda. bana girdiğim veriyi onaylayıp onaylamayacağımı sorsun ben onay verdiğimde hemen solundaki sütuna + olarak eklesin yani d4 e girilen veri c4 e + olarak toplanacak ben tekrar d4 e yeni bir veri girdiğimde tekrar c4 üzerine ekleyecek.

eğer bir veri çıkartıyorsam, yani f4 e bir giriş yapıyorsam e4 ten - olarak düşecek ben tekrar f4 e yeni bir rakam girdiğimde tekrar e4 hücresindeki veri otomatik olarak onaylamamı isteyecek ve otomatik olarak düşecek yardımınızı rica eder şimdiden teşekkür ederim.

bir hücreye veri girişi yaptığımda diger hücreye giriş yapsın yada çıkarsın.

ücretli yapabilecek varsa teklifini pm de atabilir zor bişey oldugunu düşünmüyorum. belkide düşündüğüm kadar kolayda değildir.

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim SR As Variant
If Target.Column = 4 Then
If Intersect(Target, Range("D4:D19")) Is Nothing Then _
Application.EnableAnimations = True: Exit Sub
SR = MsgBox("Veri Girişi Yapıyorsunuz Emin Misiniz_?", vbYesNo, "Sor")
If SR = vbNo Then Application.EnableEvents = True: Exit Sub
Cells(Target.Row, "C") = Cells(Target.Row, "C") + Target
ElseIf Target.Column = 6 Then
If Intersect(Target, Range("F4:F19")) Is Nothing Then _
Application.EnableAnimations = True: Exit Sub
SR = MsgBox("Veri Çıkışı Yapıyorsunuz Emin Misiniz_?", vbYesNo, "Sor")
If SR = vbNo Then Application.EnableEvents = True: Exit Sub
Cells(Target.Row, "E") = Cells(Target.Row, "E") + Target
End If
Application.EnableEvents = True
End Sub

 

[hostwebtasarim]

allah razı olsun valla süper oldu çok teşşekür ederim elinize kolunuza sağlık. asi kral çalıştı sonsuz şükranlarımı sunarım.

 

[asi_kral]

allah razı olsun valla süper oldu çok teşşekür ederim elinize kolunuza sağlık. asi kral çalıştı sonsuz şükranlarımı sunarım.

Kolay Gelsin.