tarihleri gün sayısına göre dağıtma

[Erdem Akdemir]

Merhaba,

Ekteki excel'e göre iki tarih arasındaki günleri aylara nasıl dağıtabilirim. (Formül ile olursa daha iyi olur.)

 

[suatbayhan]

Daha önce bana da lazım olmuştu. Üstatlarımızın yardımı ile çözülmüştü.
Umarım işinizi görür.
(Ay isimlerinde düzeltme yapmak gerekti.)

 

[Erdem Akdemir]

Makro ile çözdüm bende.

Sub tarihh2()

Range("A2:E10").ClearContents

son = Cells(Rows.Count, "f").End(3).Row

For deg = 2 To son


bas = VBA.Month(Range("F" & deg))
bit = VBA.Month(Range("G" & deg))
say = bit - bas + 1
gun = Range("G" & deg).Value - Range("F" & deg).Value

x = bas - 1

For i = 1 To say - 1

    If i = 1 Then
    
        a = VBA.DateSerial(2023, (i + x) + 1, 1) - 1
    
        Cells(deg, i + x) = a - Range("F" & deg)
    
        gun = gun - Cells(deg, i + x)
        
        x = x + 1
    End If
    
    If i = say - 1 Then
    
        Cells(deg, i + x) = gun
            Else
        
        a = VBA.DateSerial(2023, (i + x) + 1, 1) - 1
        Cells(deg, i + x) = VBA.Day(a)
        gun = gun - Cells(deg, i + x)
            
    End If
    
Next i


Next deg

End Sub

 

[Erdem Akdemir]

Daha önce bana da lazım olmuştu. Üstatlarımızın yardımı ile çözülmüştü.
Umarım işinizi görür.
(Ay isimlerinde düzeltme yapmak gerekti.)

Teşekkür ederim.

 

[Erdem Akdemir]

Çalışmanın formül ve makrolu halini ekliyorum.