5. tekrardan sonra uyarı verme

[m.ensar]

Merhaba hocalarım; mevcut bir çalışma kitabının örneğin A sutununda 1/A adı var bu isim 5 defa tekrarlandığında 6. cı 1/A yı yazdırmasın Dosya içeriği dolu gibi bir uyarı versin istiyorum. bu liste bir klasördeki dosyaların listesi ortalama her klasöre 5 dosya konuluyor ve hangi klasörde ne kadar boş yerim var bu yöntemle takip etmek istiyorum.

 

[Ziynettin]

Çalışma sayfanızın kod sayfasına.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Row > 1 Then
        son = Cells(Rows.Count, 1).End(3).Row
        If Target <> "" Then
            a = Range("A1:A" & son).Value
            aranan = Target.Text
            For i = 1 To UBound(a)
                If aranan = a(i, 1) Then
                    say = say + 1
                End If
            Next i
            If say > 5 Then
                MsgBox "Girilen 5 den fazla.", vbCritical
                Application.Undo
            End If
        End If
    End If
End Sub

 

[m.ensar]

Çalışma sayfanızın kod sayfasına.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Row > 1 Then
        son = Cells(Rows.Count, 1).End(3).Row
        If Target <> "" Then
            a = Range("A1:A" & son).Value
            aranan = Target.Text
            For i = 1 To UBound(a)
                If aranan = a(i, 1) Then
                    say = say + 1
                End If
            Next i
            If say > 5 Then
                MsgBox "Girilen 5 den fazla.", vbCritical
                Application.Undo
            End If
        End If
    End If
End Sub

hocam emeğinize sağlık tam istediğim gibi olmuş. yalnız ben örnek olsun diye A sütununu belirtmiştim kod üzerinde C sütununa kaydırdığımda çalışmıyor. acaba nerede hata yapıyorum

 

[AdemCan]

Merhaba, alternatif olarak Veri Doğrulama ile de yapılabilir.

A sütununda veri girişi yaptığınız alanı seçip
Veri Sekmesi - Veri Doğrulamayı tıklayıp resimdeki ayarları yapınız.

Ayarlar Sekmesi

=EĞERSAY(A:A;"1/A")<6

Hata Uyarısı Sekmesi


Yukarıdaki Resimde görüldüğü gibi A sütununda 5 tane 1/A veri bulunmaktadır. 6. eklemek istediğinizde resimdeki uyarı çıkar.

 

[m.ensar]

Merhaba, alternatif olarak Veri Doğrulama ile de yapılabilir.

A sütununda veri girişi yaptığınız alanı seçip
Veri Sekmesi - Veri Doğrulamayı tıklayıp resimdeki ayarları yapınız.

Ayarlar Sekmesi
Ekli dosyayı görüntüle 233421

=EĞERSAY(A:A;"1/A")<6

Hata Uyarısı Sekmesi
Ekli dosyayı görüntüle 233422

Yukarıdaki Resimde görüldüğü gibi A sütununda 5 tane 1/A veri bulunmaktadır. 6. eklemek istediğinizde resimdeki uyarı çıkar.
Ekli dosyayı görüntüle 233423

Hocam çok teşekkür ediyorum ancak bu şekilde sadece 1/A serisini doğruluyor ancak ÖRNEĞİN 2/C 154/F gibi büyük bir arşive uygulama yapacağım ilgin çok teşekkür ediyorum.

 

[Ziynettin]

C sütunu için

If Target.Column = 1 And Target.Row > 1 Then ------> If Target.Column = 3 And Target.Row > 1 Then
son = Cells(Rows.Count, 1).End(3).Row-------------> son = Cells(Rows.Count, "C").End(3).Row

 

[m.ensar]

Teşekkürler hocam çok sağolasın

 

[alicimri]

Alternatif, 5 sabitse, A sütununa klavye ile aynı metni 5 den fazla yazılınca silip, uyarı veriyor.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
If Application.CountIf(Columns(1), Target.Value) > 5 Then
MsgBox "limit dolu"
Application.Undo
End If
End If
End Sub

Not koyala yapıştırda sorun çıkar.