veri tekrarlama

[canaz64]

iyi günler

örnekte verdiğim B sütunundaki DT ye A sütünuna girilen verilerin B sütünundaki veriden daha fazla tekrarlamısnı istemiyorum.örneğin B Sütunundaki veri 2 ise A sutununa yazılan veri 2 den fazla tekrarlamsın

yardımlar için şimdiden teşekkürler

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Empty Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    For Each hcr In Range("a2:a" & [a65536].End(3).Row - 1)
       If Target.Text = hcr.Text Then Sayi = Cells(hcr.Row, 2): GoTo 10
    Next
10
        If WorksheetFunction.CountIf(Columns(1), Target.Text) > Sayi Then
            MsgBox "Bu Koda Giriş  Yapamazsınız":  Target.Select: Target.Clear: Exit Sub
        End If
End Sub

 

[canaz64]

hamitcan kod icin teşekkürler ama bu kodda bi eksiklik var kodu excele girdiğimde sıfırdan veri girişi yapamıyorum.Bana sıfırdan veri girerken lazım olcak bi kod lazım.

 

[hamitcan]

En az bir (1) girmelisiniz. Bir(1) değeri alt limit olarak tanımlanmıştır.

 

[ayhan09]

daha önceden girilen verilerde kod sorunsuz çalışmakta fakat a ve b sütunlarına yeni bir veri girmek istediğimizdede aynı şekilde bu koda giriş yapamazsınız uyarısı vermekte.

 

[hamitcan]

    For Each hcr In Range("a2:a" & [a65536].End(3).Row - 1)

    For Each hcr In Range("a2:a" & [a65536].End(3).Row )

satırı bu şekilde değiştirip dener misiniz ?