uyarı mesaj

[1903emre34@gmail.com]

Merhabalar,

gün,ay,yıl girdiğimiz zaman Cumartesi ve Pazar gününe geldiği takdirde kur yok yazısı için nasıl kod oluşturabiliriz.


http://s3.dosya.tc/server10/8u4bg0/tarih_1.rar.html

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or IsDate(Target.Value) = False Then Exit Sub
 Cells(Target.Row, "D") = ""
If Weekday(DateValue(Target.Value), vbMonday) > 5 Then _
 Cells(Target.Row, "D") = "Kur Yok"
End Sub

 

[1903emre34@gmail.com]

teşekkürler, hocam
iyi günler