farklı sayfalardaki mükerrerlik

[goodjoint]

mükerrer sayma konusunda çok örnek var fakat farklı sayfalardaki mükerrerlik konusunda pek fazla birşey bulamadım. örnek dosyadaki gibi 18 sayfada ingilizce kelimeler var.aynı kelimeleri tekrar yazmak istemiyorum.örneğin 1.sayfada yazdığım bir kelimeyi unutup 14.sayfada da yazmak istemiyorum.bunun için nasıl bir şey yapmam lazım

 

[İhsan Tank]

mükerrer sayma konusunda çok örnek var fakat farklı sayfalardaki mükerrerlik konusunda pek fazla birşey bulamadım. örnek dosyadaki gibi 18 sayfada ingilizce kelimeler var.aynı kelimeleri tekrar yazmak istemiyorum.örneğin 1.sayfada yazdığım bir kelimeyi unutup 14.sayfada da yazmak istemiyorum.bunun için nasıl bir şey yapmam lazım

Merhaba
Bu kod kitabın A sütununa bakar mükerrer varsa uyarı verir ve siler
Kitabın Thisworkbook bölümüne kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A1:A" & Rows.Count)) Is Nothing Or Target = "" Then Exit Sub
For x = 1 To Sheets.Count
Say = WorksheetFunction.CountIf(Sheets(x).Range("A1:A" & Rows.Count), Target)
knt = knt + Say
Next
If knt > 1 Then
MsgBox "Bu veri daha önce girilmiş.", vbCritical, "UYARI"
Target = ""
End If
End Sub

 

[goodjoint]

Merhaba
Bu kod kitabın A sütununa bakar mükerrer varsa uyarı verir ve siler
Kitabın Thisworkbook bölümüne kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A1:A" & Rows.Count)) Is Nothing Or Target = "" Then Exit Sub
For x = 1 To Sheets.Count
Say = WorksheetFunction.CountIf(Sheets(x).Range("A1:A" & Rows.Count), Target)
knt = knt + Say
Next
If knt > 1 Then
MsgBox "Bu veri daha önce girilmiş.", vbCritical, "UYARI"
Target = ""
End If
End Sub

B sütunu olacak koddaki A'ları B yapayım. bu kodu araçlar/Makro/Visual Basic Editor tıklayıp çıkan yere yapıştıracam değil mi?

 

[İhsan Tank]

B sütunu olacak koddaki A'ları B yapayım. bu kodu araçlar/Makro/Visual Basic Editor tıklayıp çıkan yere yapıştıracam değil mi?

Hayır Sol taraftaki Thisworbook bölümüne kopyalayacaksınız

 

[goodjoint]

Hayır Sol taraftaki Thisworbook bölümüne kopyalayacaksınız

teşekkür ederim.mükerrer yazışta uyarı veriyor yani izin veriyor.fakat bir isteğim daha olacak.daha önce yazdığım yaklaşık 15 sayfada mükerrer yazılanları nasıl tespit edeceğim.