• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

farklı sayfalardaki mükerrerlik

Katılım
18 Aralık 2010
Mesajlar
28
Excel Vers. ve Dili
office2007 türkçe
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
 

Ekli dosyalar

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.
Kod:
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
 
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.
Kod:
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?
 
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.
 
Geri
Üst