Farklı Sayfadan Mükerrer Uyarısı Alabilme..

[EKREM1661]

Sevgili Arkadaşlar.!

Takıldığım bir noktaya bir göz atarsanız, sorunumu çözmüş olacağım. Farklı sayfaya veri aktarırken mükerrer uyarısı alabilme konusunda ön açıklama ve örnek dosya ektedir. Forumdaki örneklerden faydalandım fakat sonuca ulaşamadım..

ilgilenecek arkadaşlara şimdiden teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub Kayıt2()
    If WorksheetFunction.CountIf(Sheets("LİSTE").[B:B], Sheets("girdi").[D6]) > 0 Then
    If Onay = MsgBox("Bu İsimde Bir Kaydınız Zaten Var. Yinede Kaydedilsim mi.!", vbYesNo, "FİRMA LİSTESİ") = vbNo Then Exit Sub
    If Onay = vbYes Then
    'Kodlarınız...
    End If
    End If
End Sub

 

[EKREM1661]

Sayın Cost Control..ilginize teşekkür ediyorum, alakadar oldunuz; fakat, yukarıda verdiğiniz kodları kullandım, fakat MsgBox.. satırında hata oluşturuyor..Ayrıca MsgBox iletisinin Evet-Hayır seçenekli olması tercihimdir.
iyi çalışmalar..

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımda önerdiğim kodu düzenledim tekrar denermisiniz.

 

[EKREM1661]

selamlar..
sayın COST_CONTROL
her defasında alakadar olmanız nedeniyle minnettarım..
başınızı tekrar ağrıtmamak için kendim de kodlar üzerinde uğraştım..Fakat,
Herşey tamam, yalnız MsgBox iletisine evet tıkladığım zaman devam eden kodları çalıştırmıyor. Yani her iki halükarda da işlemi sonlandırıyor. Böyle olunca da evet'e tıklayınca veri aktarma işlemi yapmıyor.
hayırlı çalışmalar..

 

[Korhan Ayhan]

Selamlar,

Dosyanızda gerekli düzenlemeleri yaptım. LİSTE isimli sayfanızda sıra no sütunundaki formülleri sildim sıra no kayıt esnasında otomatik olarak verilecektir. Yine aynı sayfada ilk üç satırda formülleriniz vardı onlara müdahale etmedim ne amaçla kullandığınız bilmediğim için umarım bu haliyle işinize yarar.