Makro dosyaya ekleme yapma

[mukoli]

Merhabalar ekteki dosyada personel giriş tarihine göre kıdem ve hakediş buluyor. Dogum günüde ekleyerek hakediş buldurabilirmiyiz . Teşekkürler

 

[mukoli]

yardımcı olan olursa cok sevinirim

 

[mukoli]

Bu alanda sanırım değişiklik olması gerekiyor fakat beceremedim

For x = 1 To 8: b(say, x) = a(i, x): Next x
b(say, 9) = Evaluate("=DATEDIF(" & CLng(a(i, 5)) & "," & CLng(bg) & ",""Y"")") & " YIL " & _
                        Evaluate("=DATEDIF(" & CLng(a(i, 5)) & "," & CLng(bg) & ",""YM"")") & " AY " & _
                        Evaluate("=DATEDIF(" & CLng(a(i, 5)) & "," & CLng(bg) & ",""MD"")") & " GÜN"




For j = 1 To UBound(a, 2) - 16
    trh = DateSerial(a(1, j + 16), Month(Date), Day(Date))
    If trh > bg Then
        b(say, j + 16) = Empty
    Else
        sayi = trh - CDate(a(i, 5))
        If sayi >= 0 And sayi < 364 Then
            b(say, j + 16) = 0
        ElseIf sayi >= 364 And sayi < 2189 Then
            b(say, j + 16) = 14
        ElseIf sayi >= 2189 And sayi < 5475 Then
            b(say, j + 16) = 20
        ElseIf sayi >= 5475 Then
            b(say, j + 16) = 26
        End If
    End If

 

[mukoli]

?

 

[mukoli]

yardım eden olursa çok iyi olur çıkamadım kodlardan

 

[mukoli]

?

 

[mukoli]

kimse çözemiyor sanırım