Çözüldü Mükerrer Kaydı Onayla Yaptırmak

Üstadlarım yardımlarınızı rica ediyorum.

Koruma Şifresi Sadece Genel Sayfasında var Şifre : 1

İz sayfasında bulunan tüm verilerin sadece değer olarak İz_Arşiv sayfasına aktarılmasını istiyorum.
Eğer mükerrer olarak kayıt İz_Arşiv sayfasında varsa,
D sütununa göre mükerrer kaydı bulsun, D sütunu içeriğini (Sicil Numarasını) yazsın
ve onay istesin. Her mükerrer kayıt için evet dersem aktarsın, hayır dersem aktarmasın.

Aktarınca İz_Arşiv sayfasının F sütununa da günün tarihini yazacak.

Veya toplu şekilde seçimlide olabilir. Bunlar aktarılsın, şunlar aktarılmasın gibi.

Üstadlarım yardımlarınızı rica ediyorum.

AKtarma kodunu aşağıdaki ile değiştirin.

Çok çok teşekkür ederim Feyzullah bey. Çok işime yaradı. Çok şey öğrendim. Sağolun. Varolun.

Feyzullah hocam,
Hiç başıma gelmemişti. Örneğin İz Sayfasında 1 veri var ve aktar diyorsunuz
2 adet veri aktarıldı mesajı veriyor 1 kaydı doğru aktarıyor 2. satırada sadece
tarih atıyor. Bunu nasıl düzeltebiliriz. Saygılarımla.

Hocam size zahmet olacak. Saygılarımla.

Hocam lütfen yardımınızı rica ediyorum.

Sorunumu çözdüm sonunda. Aşağıdaki şekilde değişiklik yaptım. Saygılarımla.

Haydaaa, @Feyzullah bey lütfen kusuruma bakmayın
bu defada hiç kayıt yokkan aktar dediğinizde
1 kayıt aktarıldı yazıyor ve sadece f sütununa tarih atıyor.

reosman' Alıntı:

Haydaaa, @Feyzullah bey lütfen kusuruma bakmayın
bu defada hiç kayıt yokkan aktar dediğinizde
1 kayıt aktarıldı yazıyor ve sadece f sütununa tarih atıyor.

Genişletmek için tıklayın ...

If son < 2 Then son = 2
bu satırın 1 üstüne
If son = 1 Then exit sub yazıp denermisiniz.

Yani kodun en başlarında verinin olmadığını tespit edip kodtan çıkmanız , kodun başlamaması gerekiyor.

Sayın MESKO,
Teşekkür ederim ilginiz için fakat hiç tepki vermiyor.

reosman' Alıntı:

Sayın MESKO,
Teşekkür ederim ilginiz için fakat hiç tepki vermiyor.

Genişletmek için tıklayın ...

If say > 0 Then
s2.Cells(s2.Rows.Count, 1).End(3)(2, 1).Resize(UBound(Liste, 1), UBound(Liste, 2)) = Liste
MsgBox "Veri Aktarımı Tamamlanmıştır." & vbCr & vbCr & _
Chr(10) & son - 1 & " Adet Kayıt Başarıyla Aktarıldı!", vbInformation, "Aktarım Bilgisi"
Else
MsgBox "Aktarılacak Uygun Kayıt Bulunamadı!", 16, "Mükerrer & Kayıt Yok"
end if

burayı

If say = 0 Then
MsgBox "Aktarılacak Uygun Kayıt Bulunamadı!", 16, "Mükerrer & Kayıt Yok"
exit sub
Else
s2.Cells(s2.Rows.Count, 1).End(3)(2, 1).Resize(UBound(Liste, 1), UBound(Liste, 2)) = Liste
MsgBox "Veri Aktarımı Tamamlanmıştır." & vbCr & vbCr & _
Chr(10) & son - 1 & " Adet Kayıt Başarıyla Aktarıldı!", vbInformation, "Aktarım Bilgisi"
end if

şeklinde değiştirip denermisiniz.

Bende Excel 2003 olduğu için dosyanız bazı yerlerde hata vermektedir. O yüzden deneme fırsatım ve zamanım olmadı.