Ozan hocam çok teşekkür ederim gayet güzel oldu ekstradan tekrar toplam gün gibi bir duruma girmeye gerek varmı sizce?
peki "Y" harflerinin yani yarım günü nasıl 0,5 olarak toplatabiliriz aynı alanda
Sub Hesapla()
Dim GSayi As Integer
GSayi = 0
GSayi = 0
For ss = 1 To 31
ss = Format(ss, "00")
If Controls("G" & ss).Value = "X" Then
GSayi = GSayi + 1
ElseIf Controls("G" & ss).Value = "Y" Then
GSayi2 = GSayi2 + 0.5
End If
Next ss
Me.Gun = GSayi + GSayi2
End Sub
(25/02/2019, 13:46)ozanakkaya yazdı: [ -> ]Sub Hesapla()
Dim GSayi As Integer
GSayi = 0
GSayi = 0
For ss = 1 To 31
ss = Format(ss, "00")
If Controls("G" & ss).Value = "X" Then
GSayi = GSayi + 1
ElseIf Controls("G" & ss).Value = "Y" Then
GSayi2 = GSayi2 + 0.5
End If
Next ss
Me.Gun = GSayi + GSayi2
End Sub
Ozan abi verdiğin formüller işe yaradı baya aşama kaydettik.
Sayın çok kıymetli hocam özgür abimin de destek ve yardımlarıyla site için gayet güzel bir puantaj programı yapıyoruz.çok az kaldı.
Şimdi sizlerden bir ricam olacak ayrı konu da açacağım bunla alakalı formdaki renkli alanları aynı şekilde excele aktarma diye bir konu ile fikirlerinizi alacağım.