Tarih hesaplama

berkbaba · 8 Eyl 2019

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("N3:N100, O3:O100")) Is Nothing Then
        Application.EnableEvents = False
        If Not IsEmpty(Cells(Target.Row, "A")) Then
            Cells(Target.Row, "P") = DateDiff("d", Cells(Target.Row, "N"), Cells(Target.Row, "O"))
        End If
        Application.EnableEvents = True
    End If
End Sub

N3 - N100 ve O3 - O100 arasına tarih girdiğim zaman P sütununa gün sayısını veriyor.

Yukarıda ki makroya
Q sütununa YIl
R sütununa AY
S sütununa GÜN
T sütununa da GÜN / AY / YIl olarak eklemesi için yardımcı olabilir misiniz?

Feyzullah · 8 Eyl 2019

Mobilden ezber yazdım, deneyin bir.

VBA:

Cells(Target.Row, "T") = DateSerial(Cells(Target.Row, "O"),Cells(Target.Row, "R"),Cells(Target.Row, "S"))

berkbaba · 9 Eyl 2019

Feyzullah abi
hata verdi (DEBUG)
ilk önce yıl ay gün olarak ayırsa sonra da yıl olarak hesaplasa mümkün mü?

Ömer BARAN · 9 Eyl 2019

Aşağıdaki gibi dener misiniz?

VBA:

    Cells(Target.Row, "Q") = Evaluate("=DATEDIF(N" & Target.Row & ",O" & Target.Row & ",""Y"")")
    Cells(Target.Row, "R") = Evaluate("=DATEDIF(N" & Target.Row & ",O" & Target.Row & ",""YM"")")
    Cells(Target.Row, "S") = Evaluate("=DATEDIF(N" & Target.Row & ",O" & Target.Row & ",""MD"")")
    Cells(Target.Row, "T") = Cells(Target.Row, "S") & " / " & Cells(Target.Row, "R") & " / " & Cells(Target.Row, "Q")

berkbaba · 9 Eyl 2019

Ömer Abi
Ellerinden Öper, saygılarımı sunarım.
Konu Çözüldü

	Sözleşme Başlangıç Tarihi Hesaplama berkbaba 27 Eyl 2024 Makro Soruları
	User form arkaplanda tarih hesaplama okutkan 27 Şub 2022 Makro Soruları
	Textbox Üzerinde Tarih Hesaplamaları Yapma ssavas 15 Mar 2023 Makro Soruları
	İşe Başlama Tarihini Hesaplama ssavas 19 Nis 2023 Makro Soruları
	Tarihe Göre Tcmb Döviz Kuru Alma Ömer BARAN 6 May 2024 Makro Soruları