İki Tarih Arasındaki Günleri Hücrelere Yazma

[hakbay]

Merhaba, iki tarih arasındaki günleri liste halinde hücrelere dökecek bir formül var mıdır?

Ekli örnekte sarı ile işaretledğim tarihleri formülle oluşturabilir miyim?

 

[Necdet]

Merhaba,

D2

=A2

E2

=EĞER($A$2+SÜTUN(A1)>$B$2;"";$A$2+SÜTUN(A1))

Ve E2 deki formülü sağa doğru kopyalayın.

 

[hakbay]

Teşekkür ederim Necdet Bey, ben eksik anlattım sanırım. Bu tür formülleri yazabiliyorum. Aslında iki tarih arası biraz daha uzun ve sürükleyerek yapmak istemiyorum, mümkünse ben formülü yazayım gerisi Excel halletsin istiyorum. VBA ile yazarak v.b. yapabilir miyiz acaba?

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne koplayayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

    If IsDate(Range("A2")) = False Or IsDate(Range("B2")) = False Or Intersect(Target, [B2]) Is Nothing Then Exit Sub
    If Not [B2] > [A2] Then
        MsgBox "Son tarih İlk Tarihten Küçük....", vbCritical, "Hatalı Durum"
        Exit Sub
    End If
    
    Application.EnableEvents = False
    
    Dim i As Integer
    Range("D2", Cells(2, Columns.Count)).ClearContents
    
    For i = 0 To Range("B2") - Range("A2")
        Cells(2, i + 4) = [A2] + i
    Next i
    
    Application.EnableEvents = True
        
End Sub

 

[teyadih]

Merhaba Necdet Bey A1 ve A2 hücresindeki 2 tarih arasındaki iş günü tarihlerini alt alta yazdırabilir miyiz