UserFormdaki ComBoxta Aynı Veri ENGELLEME

[Ömer BARAN]

Herkese merhabalar !... ---- Örnek dosya 2. mesajın ekinde ----

UserForm üzerindeki;
-- Veri kaynağı belgemin " U " sayfası A sütununda 2-51'inci satırları
(Properties kısmından ayarlanmış) olan 1 adet Comboboxtan ürün seçip,
-- 3 adet TextBoxla da miktar, tarih ve saat verisi yazıyorum.

-- 1 adet KAYDET CommandButtonu
-- 1 Adet DEĞİŞTİR CommandButtonu

vasıtasıyla belgemin " üretim " sayfasına ilk boş satıra veri kaydı yapmaktayım.

Halledemediğim konu şöyle; (UserFormun kod sayfasına kodlar yazarak)

Bu ComboBoxta bir verinin sadece 1 kez seçilebilmesini nasıl sağlarım?
Yani kayıt yaptığım sayfadan kontrol mekanizması oluşturmam ve daha
evvel ComboBoxtan seçerek üretim sayfasına kaydettiğim bir ürün adının
ikinci kez seçilmesini (veya kaydedilmesini) nasıl engellerim?

(Sonuçta verileri kaydettiğim üretim sayfasında en fazla 50 satırlık bilgi
girilebilmiş olacak ( Çünkü Combobox'un veri kaynağı 50 satır ) .

---- Örnek dosya 2. mesajın ekinde ----

İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Ömer BARAN]

Örnek dosya ekte

Sanırım dosya eklemedim diye kimse ilgi göstermiyor.
Dosya ekte.

Ayrıca şu anda UserForm üzerindeki ListBox aktif, Listview ise kodsuz durumdadır, onu becerebilseydim, ListBox yerine Listview nesnesini kullanacaktım.

Eğer bu konuda da yardım olursa sevinirim.

Form üzerine SİL düğmesi de eklememişim, aslında o da lazım neticede.

 

[Ömer BARAN]

Örnek dosya yukarıdaki eklenmiştir.
İlgilenecek arkadaşlara teşekkürler.

Öncelikli sorunum, bir üstteki mesajda yer alan Listview veya SİL butonu değil,

ComboBox ile ilgili olandır.

 

[Korhan Ayhan]

Merhaba,

Bu konular forumda defalarca işlendi. Arama yaparak isteklerinize çözümler bulabilirsiniz.

 

[Ömer BARAN]

Sitede yaptığım aramada sonuç alamadım (YOK demiyorum).

Sitedeki aramada sonuç alamadım maalesef.

Becerebildiğim, sadece veri kaynağı olarak comboboxtan seçilerek sayfaya kaydedilenleri

=EĞER(EĞERSAY(üretim!A:A;U!A2)=0;A2;"")

formülüyle, listeden çıkartan yeni kolonu veri kaynağı olarak belirlemek oldu.

Böyle olunca sadece userform açılmadan önceki durum itibariyle işlem tamam ama yeni veri girişi yapılıp excele aktarıldığında, bu kayıt esnasında veri kaynağı olan yeni kolon güncelleniyor ama userform kapatılıp açılmadan combobox açılır listesine yeni durum yansımıyor maalesef.

Sitede yaptığım aramada benim durumuma uygun bulabildiğim bir konu;
http://www.excel.web.tr/f48/combobox-taki-veriyi-sayfayy-kapatmadan-usermenu-aktifken-guncelleme-t55682.html
Ama bu konuda da cevap sayısı sıfır.

 

[Korhan Ayhan]

Kaydet tuşu işlemlerinde sayfada ComboBox nesnesindeki veriyi saydırabilirsiniz. Sayım sonucu sıfırdan büyükse işlemi durdur diyebilirsiniz. Ya da mesaj ile kullanıcıyı uyarabilirsiniz.

Örnek;

Private Sub CommandButton1_Click()
    Say = WorksheetFunction.CountIf(Sheets("Sayfa1").Range("A1:A1000"), ComboBox1.Text)
    
    If Say > 0 And ComboBox1.Text <> "" Then MsgBox "Bu kayıt daha önce işlendi !" & Chr(10) & _
                                                    "İşleminiz iptal edilmiştir.", vbCritical: Exit Sub
    
    'Buradan itibaren sayfaya kayıt yapan kodlarınızı yazınız...
End Sub

 

[Ömer BARAN]

Teşekkürler Sayın AYHAN !...

Comboboxta aynı veri girişi engellenmiştir, artık formdaki diğer nesnelere bakayım.

Zahmet verdim kusura bakmayınız. İyi günler dilerim.

 

[Ömer BARAN]

Bu arada bir şey sorabilir miyim?
Benim imza olarak kullandığım metindeki AY-YILDIZın sağdakini nasıl ters çevirebilirim, bilginiz var mıdır?

 

[Ömer BARAN]

AY-YILDIZı sola bakacak şekilde nasıl düzeltebilirim acaba?

☾✭ ☾✭ ☾✭ ☾✭