Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Haziran 2005 Pazartesi

To Prevent Duplicates To Enter

'Module1

Option Explicit
Dim i As Single
Dim Durdur As Boolean

Sub EngellemeyiBaşlat() '[to block start]
On Error Resume Next
Durdur = False
Call ÇiftKayıtGirmeyiEngelle
End Sub
Sub ÇiftKayıtGirmeyiEngelle() '[To prevent duplicates to enter]
On Error Resume Next
For i = [A65536].End(3).Row To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A")) > 1 Then Rows(i).ClearContents
Next
Application.OnTime (VBA.Now + TimeSerial(0, 0, 1)), "ÇiftKayıtGirmeyiEngelle"
End Sub
Sub EngellemeyiDurdur() '[to block stop]
On Error Resume Next
Durdur = True
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul