• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

çift kayıt engelleme

Katılım
20 Ekim 2005
Mesajlar
301
Excel Vers. ve Dili
excel 2010 Türkçe
Sitede mükerrer kayıtla ilgili o kadar çok örenk var ki ama hiç biri benim soruma çözüm olamadı .Bende burada sorayım dedim
Kayıt sayfasından kaydet makrosuyla veri sayfasına kayıt yapıyorum. örneğin Öğrenci matematik kursuna ali öğretmene kayıt olmuşsa, aynı kurs ama farklı öğretmen kayıt yapılamasın ali öğretmen kayıtlı gibi uyarı versin .
Dosyanın kullanıcı adı:DEMİR Şifresi 12345 tir YArdımlarınızı bekliyorum
 

Ekli dosyalar

  • KURS.rar
    KURS.rar
    215.4 KB · Görüntüleme: 62
Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Kod:
Sub kaydet()
Dim kayit As Integer
Dim xKontrol As String
Dim BUL As Range, ADRES As String
sat = Sheets(2).[a65536].End(3).Row
xKontrol = "boş"
kayit = 0
 
Set BUL = Sheets("VERİ").Range("C:C").Find(Range("D3"))
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
If Sheets("VERİ").Cells(BUL.Row, "I") = Range("D9") And _
Sheets("VERİ").Cells(BUL.Row, "K") <> Range("D11") Then
MsgBox "MÜKERRER KAYIT !" & Chr(10) & _
Sheets("VERİ").Cells(BUL.Row, "K") & " öğretmen kayıtlı !", vbCritical, "DİKKAT !"
Exit Sub
End If
Set BUL = Sheets("VERİ").Range("C:C").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
 
For i = 2 To sat
If Trim(Sayfa2.Cells(i, 1).Text) = Trim(Sayfa6.Range("D1").Text) And Trim(Sayfa2.Cells(i, 11).Text) = Trim(Sayfa6.Range("D11").Text) Then
xKontrol = "bulundu"
kayit = i
Exit For
End If
Next i
 
If xKontrol = "boş" Then
kayit = sat + 1
End If
For ix = 1 To 27
Sheets(2).Cells(kayit, ix) = Range("d" & ix)
Next
Call Sayfa2.Birles
End Sub
 
Sayın Korhan AYhan Bey çok teşekkür ederim yardımlarınız için bu site sayesinde yaptım bu çalışmayı sağlıcakla kalın
 
Çift kayıt engelleme

Korhan Bey kayıtda güncelleme yapamıyorum KAyıtlı veride 2 ve ya 3 taksit gibi veriler girdiğimde mükerrer kayıt uyarısı alıyorum. Benim söylemek istediğim aynı kurs adı aynı olup öğretmen farklı kayıt yapmasın sadece (matematik ali öğretmeninin 2,3 takistlerde gibi mükerrer kayıt uyarısı vermesin )
 
Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.
 
benim için çok büyük sorun gibi olan şey size çok basit geliyor ve hemen çözüm üretebiliyorsunuz tek kelimeyle harikasınız emeğinize sağlık sonsuz teşekkürler
 
Geri
Üst