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.