Aşı Takvimi yeniden

[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.
Konu cevaplandırıldığı kanısıyla son sorulara cevap gelmedi, dolayısıyla konuyu yeniden açmak zorunda kaldım.

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.
Dosya ektedir.
Yardımlarınız için teşekkür ederim.

 

[Mx@Raid]

Arkadaşlar, henüz cevap alamadım yardımcı olursanız sevinirim.
birde
For g = 5 To 10
s1.Range("A" & g).Copy s3.Range("A" & g)
s1.Range("B" & g).Copy s3.Range("B" & g)
s1.Range("C" & g).Copy s3.Range("C" & g)
s1.Range("D" & g).Copy s3.Range("D" & g)
s1.Range("E" & g).Copy s3.Range("E" & g)
s1.Range("I" & g).Copy s3.Range("F" & g)
s1.Range("M" & g).Copy s3.Range("G" & g)
s1.Range("Q" & g).Copy s3.Range("H" & g)
s1.Range("U" & g).Copy s3.Range("I" & g)
Next g

bu işlemi nasıl kısa şekilde formüle ederim.

 

[Mx@Raid]

Çözüm önerisi ola yok mu arkadaşlar.

 

[Mx@Raid]

Arkadaşlar şuna bir yardım eli uzatırsanız sevineceğim. kimse nedense cevap vermiyor.

Tekrar ifade etmek istiyorum;

For t = 5 To 20
'1. Doz
tpl1 = s1.Range("E" & t) + s2.Range("A2")
tpl2 = s1.Range("E" & t) + s2.Range("B2")
'2. Doz
tpl3 = s1.Range("E" & t) + s2.Range("C2")
tpl4 = s1.Range("E" & t) + s2.Range("D2")
'3. Doz
tpl5 = s1.Range("E" & t) + s2.Range("E2")
tpl6 = s1.Range("E" & t) + s2.Range("F2")
'4. Doz
tpl7 = s1.Range("E" & t) + s2.Range("G2")
tpl8 = s1.Range("E" & t) + s2.Range("H2")
s1.Range("F" & t) = tpl1
s1.Range("G" & t) = tpl2
s1.Range("J" & t) = tpl3
s1.Range("K" & t) = tpl4
s1.Range("N" & t) = tpl5
s1.Range("O" & t) = tpl6
s1.Range("R" & t) = tpl7
s1.Range("S" & t) = tpl8
Next t

Burada işlevde döngünün boş olan hücrede durmasını nasıl sağlarım.
Yardımlarınız için teşekkürler.

 

[Mx@Raid]

Arkadaşlar Sonuçlanmıştır. İhtiyacı olan arkadaşlara dosyayı ekliyorum. Yardımı ve emeği geçen herkese teşekkürler.