Alt Alta Birden Fazla Kayıt için Kod'a ilave...

[sabri şirin]

Aşşağıda ki kod'a nasıl bir ilave yapmam lazım ki, Sözleşme sayfası D9 Hücresinde yazılı olanı, Ödeme Sayfası B Sütununun en altına 15 defa kayıt edebilsin.
Saygılarımla...

Sub Ödemeyeniliste()
Call KALDIR
Call ÖDEMEFILTREKOY
say = Worksheets("Ödeme Sayfası").Range("B65530").End(3).Row + 1
Worksheets("Ödeme Sayfası").Range("B" & say) = Worksheets("Sözleşme").Range("D9")
Call KORU
End Sub

 

[turk-x]

Merhaba Sabri Bey;

Kodunuzu Aşağıdaki Kodla değiştirin

Sub Ödemeyeniliste()
Call KALDIR
Call ÖDEMEFILTREKOY
say = Worksheets("Ödeme Sayfası").Range("B65530").End(3).Row + 1
for i= Say to Say+14
Worksheets("Ödeme Sayfası").Range("B" & i) = Worksheets("Sözleşme").Range("D9")
Next i
Call KORU
End Sub

 

[sabri şirin]

Merhaba Sabri Bey;

Kodunuzu Aşağıdaki Kodla değiştirin

Teşekkür ederim. Ellerinize sağlık,
Saygılarımla...

 

[assenucler]

Sayın Sabri Şirin,

İyi akşamlar. Sizin çalışmalarınızı çok beğeniyorum. Paylaştığınız dosyalara ilişkin link verebilir misiniz?

Sevgi ve saygılar.

 

[sabri şirin]

Sayın Sabri Şirin,

İyi akşamlar. Sizin çalışmalarınızı çok beğeniyorum. Paylaştığınız dosyalara ilişkin link verebilir misiniz?

Sevgi ve saygılar.

Sayın assenucler,
Bir zamanlar Site Başkanı iken, Site için yapmış olduğum çalışma proğramını http://www.downloadarsivi.com/detay/11472/Is---Sektorel/Sektorel/Cesitli-Sektorler/Apartman-yonetimi.html yayınlamış ve Binlerce kişi bundan istifade etmişti. Fakat Bunun haricinde yayınlanmış bir çalışmam yok. Fakat, isterseniz Apartman ve Site Yöneticilerin işini kolaylaştıran "Apartman yönetimi" nin son hali ile içindeki özel bilgileri boşaltarak size gönderebilirim. Ayrıca işyeri için bir çalışmam var.Tabi bu Kömürcülerin kullanabileceği bir çalışma... bazı şeyler için fikir verebilir.Saygılarımla.