Yinelenen değer uyarısı verme

[stranger48]

Arkadaşlar merhaba.
Ekte örnek bi dosya hazırlıyorum.
Sorum şu
Yni bir kayıt yaparken aynı telefon numarasından daha önce kayıt yapılmış
ise beni uyarıp,önceki kaydın olduğu hücreye götürmesini istiyorum.
Yardımcı olursanız çok sevinirim
Yeni bir işe girdim ve işyerinde yapmam gereken bir çalışma var
onun için faydalı bişey olacak
Yardımlarınız için şimdiden teşekkürler.

 

[stranger48]

Bu konuya hakim bir kişi mutlaka vardır.Lütfen yardım edermisiniz

 

[ozgretmen]

Örnekte veri doğrulama ile bir çalışma yaptım.Umarım faydası olur.iyi çalışmalar...

 

[leumruk]

Syn. ozgretmen,
Kod kullanmadan çok güzel bir şekilde halletmiş; ben de kod kullanarak bir şeyler yapmaya çalıştım.
Alternatif olarak düşünülebilir.

 

[ozgretmen]

Sayın lemruk kod ile vermiş ama bende hazırlamıştım.Alternatif olması açısından dosya ekte.iyi çalışmalar.

 

[stranger48]

arkadaşlar yardımınız için çok teşekkür ederim.ellerinize sağlık

 

[stranger48]

leumruk ve ozgretmen yardımlarınız için tşk.sizden bi ricam daha olacak.örnek analmında bi tabloyu eklemiştim.aralara sütun eklediğimde formülleme aynı sütunda sabit kalıyor.yazmış olduğunuz kod yapısını ve excele bağlaması hakkında bilgi verirseniz beni ve benim gibi yeni başlayanları memnun etmiş olursunuz.bide girişe user ve password koyabilirsek çok sevineceğim.
tekrardan teşekkürler

 

[leumruk]

Private Sub Worksheet_Change(ByVal Target As Range)
Bul = [f65536].End(3).Row
For i = 2 To Bul - 1
If Cells(i, "f") = Cells(Bul, "f") Then
Cells(i, "f").Find(Cells(Bul, "f")).Select
MsgBox "Bu kayıt mevcut"
Exit Sub
End If
Next i
End Sub

Syn. stranger48,
Makro kodlarının yapısı fonksiyonlardan farklıdır. Fonksiyonda sütun ekledikçe yazılan işlev, bu eklemeye uyum sağlar. Makroda ise bu tür sütun eklemeler de uyum sağlama gibi bir özellik yok.
Benim verdiğim kodlarda "f" harfi f sütununu belirtiyor. Siz ekleme yaptığınız zaman kodların hangi sütunda çalışmasını istiyorsanız. "f" ler o sütunu yazacaksınız. Başka bir işlem yapmanıza gerek yok.
Şifreleme konusuna gelince: Açılışta mı şifre sormasını istiyorsunuz;yoksa diğer sayfalardan bu sayfaya ulaşmak istediklerinde mi şifre sorgusu istiyorsunuz?

 

[stranger48]

Syn,
leumruk excel sayfası açıldığında karşılama ekranıyla kullanıcı adı ve pasw sormasını istiyorum.
Örneğin ticari yada bir paket proğram girişinde olduğu gibi.
Ayrıca vermiş olduğunuz kod üzerinde düzenlemeyi nasıl yapacağım

 

[leumruk]

Örneği inceler misiniz? Böyle bir şey mi? Şifre:12345. İlk denemede yanlış girerek deneyin.
Kod üzerinde nasıl bir düzenleme istiyorsunuz?

 

[stranger48]

örneği indirdim fakat şifreleme ekranı diye bişey gelmedi.
Kodun açılımını verdiğiniz mesajda f sütunu değiştirebilirsiniz demiştiniz,işte o değişim işlemini nereden ve nasıl yapacağım.

 

[stranger48]

örneği inceledim.tşkk ederim.kod sisteminde ve şifre değiştirme işleminde değişiklik yapma işlemini nereden ve nasıl yapabilirim.
sütun ekledikçe değer kayması olacağı için kod yazılımı f sütununa göre yazıldı ben bunu ör:h sütunu olarak değiştireceğim

 

[leumruk]

örneği indirdim fakat şifreleme ekranı diye bişey gelmedi.
Kodun açılımını verdiğiniz mesajda f sütunu değiştirebilirsiniz demiştiniz,işte o değişim işlemini nereden ve nasıl yapacağım.

Alt kısımda Sayfa1 sekmesinin üzerine gelip sağ tıklayın. En altta kod görüntüleyi seçin.
Şifreleme, sayfa geçişinde oluyor. Önce sayfa2'ye gelip, tekrar Sayfa1'i seçtiğinizde şifre sorgusu gelir. Eğer, Excel dosyası açılırken şifre gelmesini istiyorsanız, kodda küçük bir değişiklik yapmam gerekir. Yalnız şunu unutmayın, bu şifre makrolar etkinken geçerlidir. Aksi takdirde kullanıcılar sayfalarınıza ulaşabilir.

 

[stranger48]

evet dediğiniz gibi şifrelemenin açılışta gelmesini istiyorum.Başka kullanıcılarında sayfaya ulaşmasını engellemek için şuanki sayfa şifreside kalabilir.
yani hem excel açılırken hemde sayfada şifreleme olmuş olur.

 

[leumruk]

O zaman koda gerek yok. Araçlar>Seçenekler>Güvenlik bölümünden istediğiniz şifreyi girin, kaydedin. Kapatıp, yeniden açtığınızda şifre ekranı gelecektir. Makro etkin olmasa bile kimse sayfalarınıza ulaşamaz.

 

[stranger48]

leumruk yardımınız için çok ama çok tşkk ederim.
bundan sonra sitenize daha çok takılıp bilgi edinmeye devam edeceğim.
Allah beyin gücünüze zeval vermesin

 

[stranger48]

son bir soru kod kısmını gizleme imkanımız varmı?

 

[leumruk]

leumruk yardımınız için çok ama çok tşkk ederim.
bundan sonra sitenize daha çok takılıp bilgi edinmeye devam edeceğim.
Allah beyin gücünüze zeval vermesin

Rica ederim. Yalnız bu site, alışkanlık yapar, sigara tiryâkilerinden beter olursun. Haberin olsun.:lol:

 

[stranger48]

olsun olsunda sigara gibi olsun ama zarar yerine faydalı bilgiler versin

 

[leumruk]

son bir soru kod kısmını gizleme imkanımız varmı?

Var tabi...
Araçlar>Makro>Visual Basic Düzenleyicisi>Tools>VbaProjectProperties>Protection kısmından şifrelersen, şifre girilmeden hiçbir kod görünmez. Yalnız tavsiyem, bütün işlerini hallettikten sonra şifrele; yoksa şifre girmekten bunalıma girersin.