Merhaba,
Evren hocamın bir dosyası idi.Office 2010 geçince açtığımda bu hatayı verip kod sayfasında aşağıda bölüme geçiyor.gün tarih satırındaki Right koyulaşıyor.Yardımınızı rica ediyorum.
Function gun_tarih(tarih As Range, olcut As Byte)
Dim ilk As Date, son As Date, trh As Date, gun As String
ilk = DateSerial(Year(tarih), Month(tarih), 1)
son = DateAdd("m", 1, ilk) - 1
For trh = ilk To son
If Weekday(trh, 2) = olcut Then
gun = gun & "-" & Day(trh)
End If
Next trh
gun_tarih = Right(gun, Len(gun) - 1)
End Function
Evren hocamın bir dosyası idi.Office 2010 geçince açtığımda bu hatayı verip kod sayfasında aşağıda bölüme geçiyor.gün tarih satırındaki Right koyulaşıyor.Yardımınızı rica ediyorum.
Function gun_tarih(tarih As Range, olcut As Byte)
Dim ilk As Date, son As Date, trh As Date, gun As String
ilk = DateSerial(Year(tarih), Month(tarih), 1)
son = DateAdd("m", 1, ilk) - 1
For trh = ilk To son
If Weekday(trh, 2) = olcut Then
gun = gun & "-" & Day(trh)
End If
Next trh
gun_tarih = Right(gun, Len(gun) - 1)
End Function