ayrı sayfalara aynı verileri girmeyi engelleme

[etalayhan]

Selamlar,
Değerli arkadaşlar; Ek'li dosyada bulunan tabloda: 4 tane sayfa bulunmaktadır. İstediğim şudur ki; herhangi bir sayfaya yazılan değer (öğrenci numarası- adı soyadı) diğer sayfalara yazıldığında uyarı versin veya hiç yazılmasın.
Derlemek gerekirse; "Solfej-11.00" sayfasına yazılan üye, "Konser-14.00" sayfasına yazılmasın.
Yardımlarınızdan dolayı şimidden çok teşekkür eder, saygı ve sevgilerimi sunarım.
Selam ve Dua ile ..

 

[Ömer]

Merhaba,

Konu balığınızı sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim.

Forum Kurallarina Uymayan Basliklar Hakkinda

Açılan Konu Başlığını Düzeltmek

 

[etalayhan]

yardımcı olabilecek bir arkadaşımız yok mu ?

 

[Ömer]

VBA ekranında, ThisWorkbook sayfasına kopyalayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    Dim i As Integer, c As Range, Adr As String, say As Long, syf As String
 
    If Intersect(Target, Range("B7:B" & Rows.Count)) Is Nothing Then Exit Sub
    
    On Error Resume Next
    If ActiveSheet.Name = "YEDEK ÜYELER" Then Exit Sub
    If Target = "" Then Exit Sub
 
    For i = 1 To Sheets.Count
        With Sheets(i)
            If .Name <> "YEDEK ÜYELER" Then
                Set c = .[B:B].Find(Target, , xlValues, xlWhole)
                If Not c Is Nothing Then
                    Adr = c.Address
                    Do
                        say = say + 1: If say = 1 Then syf = .Name
                        If .Name <> ActiveSheet.Name Then Exit Do
                        Set c = .[B:B].FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            End If
        End With
    Next i
    
    If say > 1 Then
        MsgBox "Girilen Değer " & syf & " Sayfasında Var"
        Target.ClearContents
        Exit Sub
    End If
 
End Sub

 

[etalayhan]

değerli üstadım, excelde klasik formüller dışında pek bir bilgim yok. Bu yaptığınızı nasıl uygulayacağım. lütfen yardımcı olur musunuz?

 

[etalayhan]

bu kodu excell'de uygulayacak bir arkadaşımız var mı ?

 

[Ömer]

Dosyanız ektedir.

.

 

[etalayhan]

üstadım, baktım ama b ve c sütunlarına ( öğrenci numarası ve adı-soyadı) farklı sayfalara aynı veriler halen yazılabiliyor. aynı veri diğer sayfalara yazıldığında uyarı versin veya hiç yazılmasın istiyorum

 

[Ömer]

Ben sadece öğrenci numarasını kontrol ettirmiştim. Bu yeterli değil mi?

Örnek olarak B sütununun farklı satırlarını 2 aynı numarayı germeyi denediğinizde mesaj vererek son veri silinir.

 

[etalayhan]

evet ellerine sağlık, güzel olmuş ancak bir konuda yanlış bilgi alıyorum. "Solfej-11.00" tablosuna yazılan herhangi bir öğrenci numarası "Solfej-13.00" a yazıldığında "Girilen Değer SOLFEJ-13.00 sayfasında var" uyarısı veriyor. Yani yazılan veri hangi sayfada öncesinde yazılmışsa o sayfanın adını versin. Bunun gibi 15-20 sayfa oluşturacağım için en son yazdığım sayfanın adını veriyor.

 

[Ömer]

#7 numaralı mesajdaki dosyayı yeniledim, tekrar deneyiniz.

 

[etalayhan]

işte budur ya! Ellerine kollarına sağlık üstadım. Helal et hakkını

 

[Ömer]

Rica ederim işinize yaradığına sevindim. Hakkım varsa helal olsun.