DOLAP LİSTESİ

[ANTALYA 01]

Sayın Formdaşlar
Ekteki dosyaya yardımınızı rica ediyorum.

 

[Abdulhey]

Kardeşim İşini görür sanırım

 

[ANTALYA 01]

Cevap için teşekkür ederim.

Fakat ben Diğer satıcılar arasındada arama yapmasını ve diğer satıcılarda örnek veriyorum 18000005 Nolu dolap seri nosu varsa Aynı mesajı verecek fakat bu dolap seri nosu A Satıcısında girlirken ve Girilen Dolap nosu B-C Veya D Satıcısında mevcutsa 2 kere girilmesini önlemek için istiyorum.Umarım anlatabilmişimdir.

 

[ANTALYA 01]

Gönderdiğiniz Kodda Tarih Örnek 05/08/2006 İki kere girilidiğinde Mesaj veriyor kayıt yapmıyor sadece Dolap numarası için mesaj vermesini diğer bölümlerin bağımsız olmasını istiyorum.

 

[mehmett]

Sn Abdulhey'in kodlarında küçük bir değişiklik yapılırsa işinizi görür sanırım.


[vb:1:83eb2635ff]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountIf(Range("f:f"), Target)
If say > 1 Then
MsgBox "Aynı dolap seri nosunu ikinci kez giremezsiniz"
Target.Select
Target = ""
End If
End Sub[/vb:1:83eb2635ff]

 

[ANTALYA 01]

Sayın Formdaşlar
Bu kodları denedim çalışıyor fakat G-H-I Satıcılarında Çalışmıyor ayrıca Seri numarası diğer satıcılarda mevcutsa aynı mesajı vermesini istiyorum.Asatıcısında yeni bir numara girerken bu kod A satıcısında mevcutsa mesajı veriyor fakat ben A Satıcısında dolap girerken aynı seri no C Satıcısında mevcutsa Bu seri no C Satıcısında mevcut giriş yapamazsınız diye mesaj vermesini istiyorum.