Aşı takvimi

[CONANFORCE]

Bu forumda emeği geçen tüm arkadaşlara öncelikle çok teşekkür ederim.
Arkadaşlar benim bir arkadaşa yardımcı olmam gerekiyor arkadaşım sağlık grup başkanlığında personel olarak çalışmakta

Hepatit aşısı yapılacak çocukların verilerini tutacakları bir excel dosyası hazırlamaları gerekiyormuş. bunun içinde benden yardım istediler bende sizden istiyorum exceli hazırladım makro ve eğer formullerini bilmediğimden bazı noktalarda tıkanıp kaldım. ekteki dosyayı inceleyip yardımlarınızı esirgemez iseniz çok sevinirim. dosyam ekte isteklerim içinde açıklama olarak yazılı.

birde resimdeki makro olayını yaparsanız daha çok sevinicem

 

[CONANFORCE]

Arkadaşlar mesaja baktım 42 kişi incelemiş fakat hiç bir kimse ne yapılır veya yapılmaz yazmış yardımcı olacak varmı ?

 

[Erhan Köseoğlu]

Sayın CONANFORCE;
İstediğiniz formülleri ilk aşı için yazdım diğer yerler için kopyala yapıştır yapabilirsiniz, hücre değişikliğini de biçim menüsü koşullu biçimlendirme ile yapabilirsiniz.
Kolay gelsin

 

[CONANFORCE]

sayın kuluncak teşekkür ederim o gün yazamadım.

 

[Erhan Köseoğlu]

sayın kuluncak teşekkür ederim o gün yazamadım.

rica ederim, iyi günlerde kullanın

 

[Mx@Raid]

Private Sub karsilastir()
Set s1 = Sheets("ANA SAYFA")
Set s2 = Sheets("AŞI TAKVİMİ")
Set s3 = Sheets("GÖRÜNTÜLEME")
For i = 5 To 7
For k = 2 To 3
tnm1 = s1.Range(i, "L") Makro burada kalıyor nasıl düzeltebilirim.
tnm2 = s1.Range(i, "E") + s2.Range(k, "C")
If tnm1 >= tnm2 Then
s1.Range(i, "M") = "ZAMANINDA"
Else
s1.Range(i, "M") = "ERKEN"
End If
Next k
Next i
End Sub

 

[Mx@Raid]

Arkadaşlar problemimi çözdüm ancak, eklemek istediğim bir nokta var yardımcı olursanız sevinirim. Döngünün 1000'e kadar devam ettiğini varsayacak olsak; bu döngünün boş hücrede durmasını istiyorum. Yani hücrede herhangi bilgi yoksa döngü devam etmesin ve sadece yazılı kişilerin işlemlerini yapsın.
Dosya ektedir.
Yardımlarınız için teşekkür ederim.

 

[Mx@Raid]

For a =5 To 16
Toplam = Application.Sum(s1.Range("B", a))
s1.Range("B17") = Toplam
Next

Makroda işlem hatası veriyor bunu daha doğru nasıl düzenleyebilirim.