mükerrer kayıt uyarısı

[ayemenici]

hazırladığım exell sayfasında aktif sayfanın a sutununa aşağıya doğru user form aracılığı ile rakam girildikçe girilen rakam ismi ile yeni sayfa açılmaktayım ve b sutununa isim eklemekteyim. aşağıda verdiğim kodda mevcut sayfa ismi var ise uyarı geliyor ve eklemeyi durduruyor

ben bu uyarıyı aktif sayfadaki b sutunundaki aynı değerler için yapmasını istiyorum ne yapmam gerekiyor.


Application.EnableEvents = True
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
On Error GoTo Devam
Sheets(Target.Text).Select


MsgBox "BU İSİMDE BİR SAYFA MEVCUTTUR.", vbCritical
Sheets("bayi").Select
Target.Select
Application.ScreenUpdating = True

 

[ayemenici]

bu konuda yardım edebilecek biri yokmu en azından alup olmayacağı hakkında bir bilgi

 

[ayemenici]

olayı pek anlatamadım herhalde
şöylede diyebiliriz combobox ile aktif sayfadaki b10 sutunundan itibaren firma giriyorum
eğer conbobox ta seçili firma b10 sutununda girdiğim firmalardan biri ile aynı ise kayıdı durdursun istiyorum bu konu için bir kod verecek arkadaş varsa çok memnun olurum.

 

[Orion1]

Dim k As Range
Set k = Range("B10:B65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "Bu veri B sütununda vardır.."
    Exit Sub
End If

 

[ayemenici]

evren arkadaşım öncelikle ilgine teşekkür ederim,
bu kodu çalıştıramadım kullandığım combabox1 user form üzerinde ve başka bir sayfadan aldığı firma isimlerini aktif "bayi" adlı sayfanın b sutununa ilave ediyor.
aslında bu kodu nereye yazacağımı bulamadım. açıklarsan sevinirim

 

[Orion1]

evren arkadaşım öncelikle ilgine teşekkür ederim,
bu kodu çalıştıramadım kullandığım combabox1 user form üzerinde ve başka bir sayfadan aldığı firma isimlerini aktif "bayi" adlı sayfanın b sutununa ilave ediyor.
aslında bu kodu nereye yazacağımı bulamadım. açıklarsan sevinirim

Siz bu kodu nereye yazacağınızı bilemezseniz,ben hiç bilemem.

 

[ayemenici]

evren arkadaşım verdiğin kodda "set k " satırı hata veriyor çalışmadı

bir de şöyle anlatayım benim user form üzerinde bulunan combobox' a seçmiş olduğum değer eğer "Bayi" isimli sayfanın b sutununda mevcut ise uyarı versin.

hepsi bu eminim bu konuda yardım edecek birileri vardır.

 

[Orion1]

Ekli doayayı inceleyiniz.

 

[ayemenici]

saolasın evren kardeş budosya üzerinde ufak tefek değişiklik yaparak istediğim sonucu aldım

 

[Orion1]

saolasın evren kardeş budosya üzerinde ufak tefek değişiklik yaparak istediğim sonucu aldım

Rica ederim.
İyi çalışmalar.