Şarta bağlı olarak kayıt yapmak

[KONYA42]

Günaydın arkadaşlar,ekteki excel kitabımda özet yapmasını istediğim kod var.Yazdığım kod modül 3'te.Kodlardaki yeşil yazıları (mesaj kutusuyla onay)aktif yaparsam,sorunsuz çalışıyor.Ama ben mesj kutusuyla onay istemiyorum.Doğrudan aynı ay daha önce kayıt olduysa,2. kez kayıt yapmayacak.Yani mesaj kutusu çıkmasını istemiyorum.

Ve bu kod "ANA_SAYFA" daki ilk satır için geçerli.Ben bazı aylar kitabımdaki gibi 3 satır,bazı aylar 4-5 satır yazabiliyorum.Dolu olan bütün satırları hepsini "ARŞİV"E aktaramaz mı?
Teşekür ederim.

 

[Necdet]

Merhaba,

Sorunuzda 2 yeri anlamadım onu siz tamamlayınız.

Sub ArsiveAktar()
    Dim s1  As Worksheet
    Dim s2  As Worksheet
    Dim i   As Long
    Dim Son As Long
 
    Set s1 = Sheets("ANA SAYFA")
    Set s2 = Sheets("ARŞİV")
 
    'ANA SAYFA 7. satırdan itibaren dolu satırları okur ve aktarır
    'B sütununda değer varsa dolu olarak düşünülmüştür.
 
    For i = 7 To s1.[A65536].End(3).Row
        Son = s2.[A65536].End(3).Row + 1
        s2.Cells(Son, "A") = s1.Cells(i, "A")   'Sıra No
        s2.Cells(Son, "B") = s1.Cells(i, "I")   'Başlama Tarihi
        s2.Cells(Son, "C") = s1.Cells(i, "J")   'Bitiş Tarihi
        s2.Cells(Son, "D") = s1.Cells(i, "H")   'Gün Sayısı
        's2.Cells(Son, "E") =    'Aile Hekimliği
        s2.Cells(Son, "F") = s1.Cells(i, "M")   'Görevlendirilecek Kişi
        's2.Cells(Son, "G") =    'Düzenleme Tarihi
    Next i
End Sub

 

[KONYA42]

Tamam teşekür ederim hocam.Tekrar kayıtları önlemek için biraz kendim uğraşayım.Yapamazsam sizlerden yardım isteyeceğim artık.Tekrar teşekürler.

 

[KONYA42]

Mükerrer kaydı önlemek için uğraşım boşa çıkmadı.Belki birilerinin işine yarar diyerek dosyayı ekliyorum.Özetle; ANA_SAYFA'ya yazdığım bilgileri ARŞİV sayfasına aktarıyorum.Aynı kayıt varsa aktarma yapmıyor.Tabi bu işlemleri kitap kapanırken otomatik olarak yapıyor.

 

[KONYA42]

Maalesef mükerrer kayıtta sorun çıktı.Formda aynı tarih varsa kayıt yapmıyordu ama "ARŞİV"de daha önce kayıt varsa,tarih değiştirip yeni kayıt ekleneceğinde 2şer,3er katlayarak fazla isim yazıyor.Lütfen ekteki dosyama bakabilirmisiniz.Ne demek istediğimi daha iyi anlayacaksınız.