Makro ile kıdem günü hatası

[mukoli]

Merhaba üstadlar ekteki dosyada personel giriş tarihinden kıdem günü bulunuyor . Fakat yanlış hesaplama yapıyor yardımcı olursanız sevinirim

 

[mukoli]

yardımcı olucak olan varmıdır

 

[mukoli]

ustalar bakarsanız sevinirim

 

[mukoli]

?

 

[Necdet]

Merhaba,
Aşağıdaki kodları kendi kodlarınıza uyarlayınız.

Public Sub Kidem()

    Dim i As Long
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "G") = Evaluate("=DATEDIF(" & CLng(Cells(i, "F")) & "," & CLng(Date) & ",""Y"")") & " YIL " & _
                        Evaluate("=DATEDIF(" & CLng(Cells(i, "F")) & "," & CLng(Date) & ",""YM"")") & " AY " & _
                        Evaluate("=DATEDIF(" & CLng(Cells(i, "F")) & "," & CLng(Date) & ",""MD"")") & " GÜN"
    Next i
    
End Sub

 

[assenucler]

Sn. Mukali,

Dosyanın son halini ekleyebilir misiniz?

 

[mukoli]

Merhaba orjinal dosyam budur

 

[mukoli]

Merhaba,
Aşağıdaki kodları kendi kodlarınıza uyarlayınız.

Public Sub Kidem()

    Dim i As Long
   
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "G") = Evaluate("=DATEDIF(" & CLng(Cells(i, "F")) & "," & CLng(Date) & ",""Y"")") & " YIL " & _
                        Evaluate("=DATEDIF(" & CLng(Cells(i, "F")) & "," & CLng(Date) & ",""YM"")") & " AY " & _
                        Evaluate("=DATEDIF(" & CLng(Cells(i, "F")) & "," & CLng(Date) & ",""MD"")") & " GÜN"
    Next i
   
End Sub

Hocam bu hata verdi yada ben uyarlayamadım

 

[mukoli]

yil = Year(bg - a(i, 5)) - 1900 & " YIL "
ay = Month(bg - a(i, 5)) & " AY "
gun = Day(bg - a(i, 5)) & " GÜN"

For x = 1 To 5: b(say, x) = a(i, x): Next x
b(say, 6) = yil & ay & gun

Burdaki kısımda yanlışlık var

 

[Necdet]

Dosyanızdaki giriş tarihi bugünün tarihinden büyük, bu durumda datedif çalışmaz, ya bunu kontrol edeceksiniz ya da ağustos ayında giriş eylül nasıl olur, veriyi düzelteceksiniz.

 

[mukoli]

Necdet hocam en üstteki dosyama göre uyarlama şansınız varmıdır

 

[Necdet]

Sayın mukoli,

ben sizin kodlarınızda kaybolduğum için size bıraktım uyarlamayı.
Yaş 65 olunca insan sıkıntıya gelemiyor

veriyi diziye almışsınız ama veri 2. satırdan başlıyor, siz veriyi de 2. satırdan alıyorsunuz, dolayısıyla döngüyü de 2. satırdan itibaren başlatınca başlıkları hesaplamaya kalkıyorsunuz.
Onlara dikkat ediniz.
Ayrıca işe başlama tarihini de kontrol etmelisiniz, bugünün tarihinden ileri tarihli girişler yazılmış. Oradaki hesaplamayı atlamanız gerekir.