Günleri Makro ile Toplatmak

[ormann]

Günaydın ;
Ekteki örenek dosyada e10 hücresine sayıyı,e11 hücresine ise tarihi yazdığımda,e11 hücresine e10+e11 olarak günün toplamını makro ile otamatik olarak yazdırabilirmiyiz?

 

[YUSUF44]

Aşağıdaki kodları sayfanın kod bölümüne (sayfa ismine sağ tıklayıp kod görüntüle dediğinizde çıkan yere) yapıştırınız :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("e10, e11")) Is Nothing Then Exit Sub
[e12] = [e10] + [e11]
End Sub

 

[asi_kral]

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

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("E11")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Range("E12") = DateSerial(Year(Target), Month(Target), Day(Target) + Cells(Target.Row - 1, "E"))
Application.EnableEvents = True
End Sub

 

[ormann]

Çok teşekkür ederim.Aynı makroya ilave olarak şu şekilde [e10] = [e12] - [e11] yaptırabilirmiyiz?

 

[asi_kral]

Çok teşekkür ederim.Aynı makroya ilave olarak şu şekilde [e10] = [e12] - [e11] yaptırabilirmiyiz?

Merhaba
Zaten o hücrelerde işlem yapıyor siz ne istiyorsunuz.

 

[ormann]

Aynı şekilde o makroya ilave olarak e12 hücresindeki tarihten e11 hücresindeki tarihi çıkarıp e10 hücresine sayı olarak yazacak