mükerrer plakayı uyarsın

[yesilcan]

Ayni Tarİhde Ayni Plakayi YÜklememe İzİn Vermesİn Bunu Nasil Yapabİlİrİm.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne kopyalayınız H sütunundaki mükerrer kayıtların satırını siler.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For SUT = [H65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("H1:H" & SUT), Range("H" & SUT)) > 1 Then
Rows(SUT).Delete SHIFT:=xlUp
End If
Next
End Sub

 

[yesilcan]

İlgİn İÇİ TeŞekkÜr Ederİm Fakat ;

Verİlerİ Sİlmesede Ayni Tarİhte Ayni Plakayi YÜklÜyorsunuz Dİye Bİr Uyari Verse

Çok Daha İyİ Olacak.


Sabrin İÇİn TeŞekkÜrler.