Mesai takibi

[fatih34]

herkeze iyi akşamlar ve iyi çalışmalar dilerim
önceden mesai çizelgesi ile ilgili yardım istemiştim sayın hocalarım sağolsunlar yardım etmişlerdi fedeal hocam bir örnek gönderdi ama örnek dosyada hata veriyor yardım ederseniz sevinirim

 

[halit3]

Referanslardan MISSING ile başlıyanları sil kayıt et kapat yeniden aç düzelecektir

 

[fatih34]

Referanslardan MISSING ile başlıyanları sil kayıt et kapat yeniden aç düzelecektir

sayın hocam özür dilerim ama yeni olduğumdan tam olarak anlayamadım neyi sileceğimi baktım ama çözemedim

 

[halit3]

sayın hocam özür dilerim ama yeni olduğumdan tam olarak anlayamadım neyi sileceğimi baktım ama çözemedim

ekli resime bir bak

 

[fatih34]

ekli resime bir bak

hocam teşekkür ederim sizlerin sayesinde birşeyleR öğrenmeye çalışıyoruz bundan dolayı minnettarız
sayın hocam örnek dosyayı bir inceleyip yol gösterirseniz sevinirim
önceden bu konuyu sormuştum
sayın feeal hocamda örnek dosyayı göndermişti incelemem için

 

[halit3]

hocam teşekkür ederim sizlerin sayesinde birşeyleR öğrenmeye çalışıyoruz bundan dolayı minnettarız
sayın hocam örnek dosyayı bir inceleyip yol gösterirseniz sevinirim
önceden bu konuyu sormuştum
sayın feeal hocamda örnek dosyayı göndermişti incelemem için

ekli dosyaya bakarmısınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AI:AI")) Is Nothing Then Exit Sub
a = Target.Row
b = Target.Column
Range("D" & a & ":AH" & a).ClearContents
For i = 4 To Worksheets(ActiveSheet.Name).Cells(a, Target.Column).Value
Cells(a, i).Value = "X"
Next
End Sub

 

[fatih34]

ekli dosyaya bakarmısınız.

private sub worksheet_change(byval target as range)
ıf ıntersect(target, range("aı:aı")) ıs nothing then exit sub
a = target.row
b = target.column
range("d" & a & ":ah" & a).clearcontents
for i = 4 to worksheets(activesheet.name).cells(a, target.column).value
cells(a, i).value = "x"
next
end sub

hocam inceledim benim istediğim gibi elinize ve bilginize sağlık
ancak 15 yazdığım zaman 12 tane x işareti koyuyor
neden dolayı 15 ( x ) işareti koymuyor ( x işaretinin anlamıda çalıştığı gün sayısıdır )
hocam ayrıca verdiğiniz kodlarında açıklaması mümkünmüdür
en azından hazırcılığa alışmamış oluruz ve bir bilgi öğreniriz sayenizde bizim gibi acemi ve çaylak öğrenciler

 

[halit3]

tamam bu dosyaya bak

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AI:AI")) Is Nothing Then Exit Sub
a = Target.Row
b = Target.Column
Range("D" & a & ":AH" & a).ClearContents
For i = 4 To Worksheets(ActiveSheet.Name).Cells(a, b).Value + 3
Cells(a, i).Value = "X"
Next
End Sub

 

[halit3]

31 den fazla sayı giremezsiniz uyarısı koydum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AI:AI")) Is Nothing Then Exit Sub
a = Target.Row
b = Target.Column
If IsNumeric(Cells(a, b).Value) = True Then
If Cells(a, b).Value <= 31 Then
Range("D" & a & ":AH" & a).ClearContents
For i = 4 To Worksheets(ActiveSheet.Name).Cells(a, b).Value + 3
Cells(a, i).Value = "X"
Next
Else
MsgBox "31 den büyük sayı giremezsiniz."
End If
End If
End Sub

 

[fatih34]

31 den fazla sayı giremezsiniz uyarısı koydum.

hocam sizi yordum kusura bakmayın çok hızlısınız maşallah
inşallah bir gün sizler gibi oluruz ama her halde zor daha bu kodları çözemeiyoruz bilgisayar bize biz bilgisayara bakıyoruz )
teşekkür ederim hocam
artık yavaş yavaş kodların anlamını çözmeye çalışayım