mükerrer kayıtları engelleme

[mtbi00]

iyi günler,

Excelda sayfadan kayıt yaparken mükerrer kayıt girişini önlemek için makroda nasıl bir giriş yapabilirim. Ekte hazırladığım örnek dosyada kayıt et butonuna bastığımda eğer kayıt mükerrer ise uyarı vermek istiyorum. Yardımlarınız için şimdiden teşekkürler.

 

[hamitcan]

http://www.excel.web.tr/forumdisplay.php?f=120 linkteki örnekleri inceleyin.

 

[mtbi00]

sn hamitcan ilginizden dolayı teşekkür ederim. Excel bilgim az olduğundan örneklerden birşey çıkaramadım. Sizden ricam makroyla bir saydaki kayıtları nasıl kontrol edebilirm. Yani bir bilgi eklemek istediğimde aynı bilginin sayfada olup olmadığını makroyla nasıl yaparım. Bu konuda yardımcı olursanız sevinirim. Teşekkürler.

 

[hamitcan]

Private Sub CommandButton1_Click()
Dim S1, S2 As Worksheet
Dim SONSAT
Set S1 = Sheets("AAAA")
Set S2 = Sheets("BBBB")
If kontrol > 0 Then MsgBox kontrol & " nolu Kayıt Daha Önce Girilmiş": Exit Sub

    S2.Select
    SONSAT = S2.[a65536].End(3).Row + 1
    S2.Cells(SONSAT, "A") = S1.Cells(1, "B")
    S2.Cells(SONSAT, "B") = S1.Cells(2, "B")
    S2.Cells(SONSAT, "C") = S1.Cells(3, "B")
    S2.Cells(SONSAT, "D") = S1.Cells(4, "B")
    S2.Cells(SONSAT, "E") = S1.Cells(5, "B")
    S1.Select
    MsgBox "Kayıt Başarıyla İşlendi..."
    
End Sub
Public Function kontrol() As Integer
    Ka = [b2] & [b3] & [b4] & [b5]
    With Sayfa2
    For i = 2 To .[c65536].End(3).Row
        Kb = .Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4) & .Cells(i, 5)
        If Kb = Ka Then kontrol = i
    Next
    End With
End Function

 

[mtbi00]

Hocam çok teşekkür ederim.zahmet oldu.aradığım buydu.sağolun..

 

[mtbi00]

hamitcan hocam son bir sorum daha olacak. bu kontrol de ka değişkenine hücreden değilde inputbox ile bilgi yükleyebilirmiyiz. Yani demek istediğim bilgileri hücreden değilde inputbox ile nasıl alabaliriz. örneğin

private sub kayit()
kod = inputbox ("Firma kodunu giriniz : ")
......
end sub

public function kontrol() as integer
ka = kod
(Böyle yaptığımda ka değer yüklenmiyor.Bunu nasıl yapabilirim. Yardımcı olursanız sevinirim)
......
end function

Çok uzamasın diye kısadan yazdım.

Teşekkürler.

 

[hamitcan]

Private Sub CommandButton1_Click()
Dim S1, S2 As Worksheet
Dim SONSAT
Set S1 = Sheets("AAAA")
Set S2 = Sheets("BBBB")
    Ad = InputBox("Adı Girin")
    Soyad = InputBox("Soyadı Girin")
    Sehir = InputBox("Şehri Girin")
    Tel = InputBox("Telefonu Girin")
    Ka = Ad & Soyad & Sehir & Tel
    With S2
    For i = 2 To .[c65536].End(3).Row
        Kb = .Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4) & .Cells(i, 5)
        If Kb = Ka Then MsgBox " Bu Kayıt Daha Önce Girilmiş": Exit Sub
    Next
             SONSAT = .[a65536].End(3).Row + 1
            .Cells(SONSAT, "A") = SONSAT-1
            .Cells(SONSAT, "B") = Ad
            .Cells(SONSAT, "C") = Soyad
            .Cells(SONSAT, "D") = Sehir
            .Cells(SONSAT, "E") = Tel
            MsgBox "Kayıt Başarıyla İşlendi..."
    End With

End Sub

şeklinde deneyin.

 

[mtbi00]

çok teşşekür ederim. çok makbule geçti.