• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Aynı değer varsa uyarı ver hk.

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Çözümler
90
Aldığı beğeni
761
Excel Versiyonu
Office 2016 TR
Konuyu Başlatan
Ustalar merhaba hayırlı günler,

Aşağıdaki kod ile sayfanın c sütununda userformdan ürün eklerken mükerrer kayıtları kontrol ettirip aynı değer varsa hata ver diyorum.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Eğer ki sayfaya elle giriş yaptıktan sonra aynı değeri userformdan girersem mükerrer kayıt yapıyor ve hata vermiyor. Bütün kayıtları userformdan girersem mükerrer kayıt yapamıyorum.

Sayfanın c sütununa elle "elma" yazarsam userformdan da "elma" yazabiliyorum hata vermiyor.
Userformdan "elma"yazarsam ikinci defa "elma" yazdığımda "Eklemek istediğiniz ürün listede var." olarak hata alıyorum.
 
Çözüm
aeGNoR
Dosya ektedir.
Farklı bir yöntem ile yapmayı denedim, kontrol eder misiniz?

Kod satırlarımız biraz gereksiz uzuyor ama diğeri gibi hata vermedi.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Sadece eklediğim alanı burada paylaşıyorum uzun olmasın diye.
Tarihe göre sırala Oylara göre sırala
İlgili sayfaya elle veri girildiği zaman işlem yapması için ilgili sayfanın kod bölümüne şu kodları ekleyiniz.

Set sh = Sheets("Sayfa1") satırındaki tırnak içinde yazılı olan Sayfa1 ismini, kodu eklediniz sayfa ismi ile değiştiriniz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Alparslan' Alıntı:
İlgili sayfaya elle veri girildiği zaman işlem yapması için ilgili sayfanın kod bölümüne şu kodları ekleyiniz.

Set sh = Sheets("Sayfa1") satırındaki tırnak içinde yazılı olan Sayfa1 ismini, kodu eklediniz sayfa ismi ile değiştiriniz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Burada ki

> 0 Then
> 1 Then

tam anlamı nedir?
 
Olumlu oy 0 Negatif oyla
himmgarip' Alıntı:
Burada ki

> 0 Then
> 1 Then

tam anlamı nedir?
Genişletmek için tıkla...
Merhaba,
Arkadaş CountIf ile aralıktaki değerleri saydırmış, C sütununa girilen değer birden fazla kez ( >1) kullanılmış ise mesaj ver demiş...
 
Olumlu oy 0 Negatif oyla
himmgarip' Alıntı:
Burada ki

> 0 Then
> 1 Then

tam anlamı nedir?
Genişletmek için tıkla...
İlk mesajda paylaştığınız kodu kullandım.

CountIf 'in karşılığı Eğersay.

WorksheetFunction.CountIf(sh.Range("C:C"), Target.Value) > 1 satırının karşılığı ise
EĞERSAY(C:C;"Aktif Hücre Değeri")>1

Yazdığınız değeri C sütununda sayar, 1 den büyük ise mesaj çıkar.
İlk mesajda paylaştığınız kod da ise 0 dan büyük ise mesaj çıkar
 
Olumlu oy 0 Negatif oyla
Sanırım 0 ile kayıt yok yeni kayıt işlemi yapıyor, 1 Yaparsan kayıt var. tekrar girmeyi engelle olarak düzelir.
 
Olumlu oy 0 Negatif oyla
Suskun' Alıntı:
Sanırım 0 ile kayıt yok yeni kayıt işlemi yapıyor, 1 Yaparsan kayıt var. tekrar girmeyi engelle olarak düzelir.
Genişletmek için tıkla...
@Suskun hocam,

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Me.txt_Product_Name.Value ile eşleşiyorsa kayıt oluşturma diyor zannedersem.

Buradaki 0 tam eşleşme olarak galiba.

Bunu 1 yaparsam hata vermeden aynı isimli kayıt yapıyor.
 
Olumlu oy 0 Negatif oyla
Alparslan' Alıntı:
İlk mesajda paylaştığınız kodu kullandım.

CountIf 'in karşılığı Eğersay.

WorksheetFunction.CountIf(sh.Range("C:C"), Target.Value) > 1 satırının karşılığı ise
EĞERSAY(C:C;"Aktif Hücre Değeri")>1

Yazdığınız değeri C sütununda sayar, 1 den büyük ise mesaj çıkar.
İlk mesajda paylaştığınız kod da ise 0 dan büyük ise mesaj çıkar
Genişletmek için tıkla...

Buradan şunu anlıyorum.

>0 ise mesaj çıkar;
c sütunundaki hücrelerde "elma" 1 defa kullanılmışsa 2."elma" yazılışında hata verir.

>1 ise mesaj çıkar;
c sütunundaki hücrelerde "elma" 2 defa kullanılabilir 3. "elma" yazılışında hata verir.

Doğru mudur?
 
Olumlu oy 0 Negatif oyla
>1 ile aynı değer ikinci kez yazıldığında mesaj çıkar.
>0 da ise ilk yazıldığında mesaj çıkar.
 
Olumlu oy 0 Negatif oyla
Siz en iyisi dosyayı gönderin bir de biz deneyelim. Böyle sıfır mıydı, bir miydi çok sonuca varabilecek gibi değiliz. Anlaşılıyor ki hata koddan değil farklı bir şeyden kaynaklanıyor.
 
Olumlu oy 0 Negatif oyla
aeGNoR' Alıntı:
Siz en iyisi dosyayı gönderin bir de biz deneyelim. Böyle sıfır mıydı, bir miydi çok sonuca varabilecek gibi değiliz. Anlaşılıyor ki hata koddan değil farklı bir şeyden kaynaklanıyor.
Genişletmek için tıkla...
Yeni Ürün Girişi düğmesine basınca açılan ekranda ekle tuşunda kod.
 

Ekli dosyalar

  • STOK TAKİP YENİ.xlsm
    321.6 KB · Gösterim: 10
Olumlu oy 0 Negatif oyla
If Application.WorksheetFunction.CountIf(sh.Range("C:C"), Me.txt_Product_Name.Value) >=1 Then şeklinde kullanabilirsiniz.

Me.txt_Product_Name.Value değerini C sütununda sayar, 1 den Büyük ya da 1 e Eşit ise mesaj kısmı çıkar.
 
Olumlu oy 0 Negatif oyla
İlgili bölümü şu kodlar ile değiştirirseniz, listede ismi olan değerin satır numarası da mesaj içerisine yazdırabilirsiniz.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Hocalarım konu dağıldı bende sorduğumu unutum başka şeylere odaklandım.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Bu kod çalışıyor problem yok.

Userfordan "Product_Master" sayfasına yapılan kayıtlarda mükerrer kayıt varsa "Eklemek istediğiniz ürün listede var" uyarısını alıp işlem iptal oluyor bunda problem yok.

Problemim şu.
"Product_Master" sayfasına ürünleri elle giriş yaparsam. tekrardan userformdan aynı kaydı girmeyi denersem hata vermeden kayıt ediyor. Halbuki kayıt sütünda zaten var ve hata vermesi lazım.
 
Olumlu oy 0 Negatif oyla
Dosya ektedir.
Farklı bir yöntem ile yapmayı denedim, kontrol eder misiniz?

Kod satırlarımız biraz gereksiz uzuyor ama diğeri gibi hata vermedi.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Sadece eklediğim alanı burada paylaşıyorum uzun olmasın diye.
 

Ekli dosyalar

  • STOK TAKİP YENİ.xlsm
    283.6 KB · Gösterim: 26
Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst