Overflow hatası (DateSerial)

[torqanum]

5. sütuna bir tarihin günü yazıldığında (örneğin 05.12.2019 yerine 5) ay ve seneyi bularak tarih tamamlanmak isteniyor.
yani 5 yazıp enter'a basıldığında aktif hücrenin satır numarasından yola çıkarak 1. sütunda FATURA kelimesinin olduğu hücreyi bulacak.
bu hücrenin bir sağında ay (12), iki sağında yıl (2019) değerlerini alarak 5 yazılan hücreyi 05.12.2019 haline getirecek.

11. satırda overflow hatası veriyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fatura As Range
Dim tarih As Date
If Target.Column = 5 Then
Set fatura = Range("A:A").Find("FATURA", Cells(ActiveCell.Row, 1), xlValues, xlWhole, xlByColumns, xlPrevious)
sene = fatura.Offset(0, 2).Value
ay = fatura.Offset(0, 1).Value
gun = Target.Value
tarih = DateSerial(sene, ay, gun) 'burada overflow hatası veriyor.
Target.Value = tarih
End If
End Sub

 

[Muzaffer Ali]

Merhaba.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim fatura As Range
    Dim tarih As Date
    Dim sene, ay, gun
    If Target.Column = 5 Then
        Set fatura = Range("A1") ':A").Find("FATURA", Cells(ActiveCell.Row, 1), xlValues, xlWhole, xlByColumns, xlPrevious)
        sene = fatura.Offset(0, 2).Value
        ay = fatura.Offset(0, 1).Value
        gun = Target.Value
        tarih = DateSerial(sene, ay, gun) 'burada overflow hatası veriyor.
        Application.EnableEvents = False
        Target.Value = tarih
        Application.EnableEvents = True
    End If
End Sub

 

[torqanum]

çok teşekkür ederim

 

[Muzaffer Ali]

Rica ederim kolay gelsin.