Kullandığım kodu diğer sütünlarda nasıl kullanabilirim.

[ersoyalan]

Ustalar merhaba,

Buradan aldığım kod.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub

Kodu sadece A sütünunda çalıştırabiliyorum.
Aynı isim yada veri girişi yapılırsa ikincisini yazdırmıyor.

Benim sorunum şu.Bu kodu ID yazan diğer sütünlardada kullanmak istiyorum ne yapmam gerekir.

Syg,
E.ALAN

 

[Levent Menteşoğlu]

Dosyanızdaki kodu silerek aşağıdaki kodu kullanın. Change olayı isteiğinize daha uygun.

Private Sub Worksheet_Change(ByVal Target As Range)
sut = Target.Column
If WorksheetFunction.CountIf(Columns(sut), Target) > 1 Then Target.ClearContents
End Sub

 

[ersoyalan]

Hocam merhaba,

Vermiş olduğunuz kod normalde gayet güzel çalışıyor fakat farklı bir excel sayfasından veri kopyalayıp A2 stununa yapıştırdığımda yada herhangi bir stüna yapıştırdığımda aşağıdaki mesajı veriyor.

Syg.

If WorksheetFunction.CountIf(Columns(sut), Target) > 1 Then

 

[ersoyalan]

Ustalar merhaba,

Yardımcı olmanız mümkünmüdür.

Syg.

 

[Levent Menteşoğlu]

Çoklu veri kopyalarsanız kod hata verir. Kopyalama işini her seferinde tek tek yapmak gerekir. Çoklu veri kopyaladığınızda hata vermemesi sağlanır ama bu seferde nasıl kontrol yapılacak bunu netleştirmek gerekir.

 

[ersoyalan]

Hocam dediğiniz gibi tek tek yaptığım zaman problem olmuyor.Diğer türlüde hata veriyor nasıl olacak peki

Syg,