[Yardım]  Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Engelleme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Engelleme

İleti#1)  bbusra630 » 08 Şub 2019 14:58

Arkadaşlar merhaba
-A sayfasında kişi kayıtları var.
-D sayfasında ise toplam ücretli-ücretsiz izin takibi bilgileri yer alıyor.

Ben userform ile D sayfasına A sayfasından isim çekerken, aynı isim daha önce kaydedilmişse bu kişi zaten kayıtlı uyarısı vermesini istiyorum. Bu kısa kod için yardımcı olabilecek arkadaş var mıdır?
Kullanıcı avatarı
bbusra630
Yeni Başlamış
 
Kayıt: 22 Kas 2018 08:41
Meslek: Endüstri ve Bilgisayar Mühendisi
Yaş: 26
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#2)  Erkan Akayay » 08 Şub 2019 15:18

Bu kısa kod defalarca yazıldı. Arama yapsanız hemen bulacaksınız.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 49
İleti: 4027
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#3)  bbusra630 » 11 Şub 2019 10:15

Örnek çalışmalar var ancak ben kendi çalışmama uyarlayabilecek bir örnek bulamadım. Çalışmamı ekte gönderiyorum, yıllık izin takibi sayfasında mükerrer kayıt olmamasını, uyarı mesajı vermesini istiyorum. Yardımcı olabilecek olan arkadaş varsa yardımlarını bekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
bbusra630
Yeni Başlamış
 
Kayıt: 22 Kas 2018 08:41
Meslek: Endüstri ve Bilgisayar Mühendisi
Yaş: 26
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#4)  tasad » 11 Şub 2019 13:14

Sicil noya göre yaptım.Çünkü isim benzerliği olabilir.Sayfa koduna kaydedin.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
For i = 9 To Sayfa3.Range("e10000").End(3).Row - 1
If Target.Text = Sayfa3.Range("e" & i).Text Then
MsgBox "Benzer Kayıt bulunmaktadır.Lütfen kontrol edin."
Target.Value = ""
Exit Sub
End If
Next
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 529
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#5)  bbusra630 » 11 Şub 2019 13:40

Cevabınız için teşekkür ederim. Benzer kayıt uyarısı veriyor ancak tamam dedikten sonra yine kayıt işlemini gerçekleştiriyor, başka değiştirmem gereken biryer var mı. Rİca etsem yüklediğim klasör üzerinden değişikliği yapar mısınız.
Kullanıcı avatarı
bbusra630
Yeni Başlamış
 
Kayıt: 22 Kas 2018 08:41
Meslek: Endüstri ve Bilgisayar Mühendisi
Yaş: 26
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#6)  tasad » 11 Şub 2019 17:27

Adı soyadı kısmında seçim yaparsanız,çalışır.Dosyayı inceleyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 529
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#7)  bbusra630 » 12 Şub 2019 08:55

Çalışma sayfası üzerinden yeni kişi eklediğimde 'benzer kayıt bulunmaktadır' uyarısı verip yeni kayıdı siliyor ancak form üzerinden isim seçip getir dediğimde uyarıyı vermesine rağmen sicil nosu yazılmış olarak kalıyor.
Kullanıcı avatarı
bbusra630
Yeni Başlamış
 
Kayıt: 22 Kas 2018 08:41
Meslek: Endüstri ve Bilgisayar Mühendisi
Yaş: 26
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#8)  bbusra630 » 12 Şub 2019 09:06

Aynı şekilde form üzerinden getir dediğimde 'benzer kayıt bulunmaktadır' uyarısını verip, arkasından kayıt işlemi başarılıdır uyarısını da veriyor. Kaydet_click olayıyla arasında bir bağlantı mı kurmak lazım ikisi farklı çalışıyor çünkü.
Kullanıcı avatarı
bbusra630
Yeni Başlamış
 
Kayıt: 22 Kas 2018 08:41
Meslek: Endüstri ve Bilgisayar Mühendisi
Yaş: 26
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#9)  tasad » 12 Şub 2019 20:26

Userformlarda hep Togglebuton kullanmışsın.Bunları commandbutonlarla değişirsen daha iyi olur.
Aşağıdaki kodları IzinTakip formundaki kodlarla değiştirin.
Kod: Tümünü seç
Private Sub Kaydet_Click()
If ComboBox1.Text <> Empty Then
bos_txt = ThisWorkbook.Worksheets("Yıllık_İzin_Takip").Range("c65536").End(3).Value + 1
Else
MsgBox "Lütfen İsim Giriniz", vbExclamation, "Kandıra Belediyesi Bilgi İşlem"
Exit Sub
End If
With ThisWorkbook.Worksheets("Yıllık_İzin_Takip")
For Each bak In .Range("d9:d" & Range("d65536").End(3).Row)
If bak.Value = ComboBox1.Value Then
MsgBox "kayıt mevcut lütfen kontrol edin."
Exit Sub
End If
Next
.Range("c65536").End(3).Offset(1, 0) = .Range("c65536").End(3) + 1
        .Range("c65536").End(3).Offset(0, 1) = ComboBox1
        .Range("c65536").End(3).Offset(0, 2) = Sicil_txt
  MsgBox "Kayıt İşlemi Başarılı", vbOKOnly + vbInformation, "Kandıra Belediyesi Bilgi İşlem"
End With
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 529
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Tabloda Kayıt Varsa form'dan Aynı Kişiyi Eklemeyi Eng

İleti#10)  bbusra630 » 13 Şub 2019 09:59

İlginiz ve yardımınız için çok teşekkür ederim, dediğiniz değişiklikleri uyguladım şuanda istediğim gibi oldu. Allah razı olsun [TESEKKÜR]
Kullanıcı avatarı
bbusra630
Yeni Başlamış
 
Kayıt: 22 Kas 2018 08:41
Meslek: Endüstri ve Bilgisayar Mühendisi
Yaş: 26
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KOCAELİ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot] ve 1 misafir

Bumerang - Yazarkafe