Kod Düzeltme

[dragon44760]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For c = [C65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("C2:C" & c), Cells(c, "C")) > 1 Then Rows(c).ClearContents
Next
End Sub


yukarıdaki kod veri girişinde(kopyala-yapıştırda dahil) gayet güzel çalışmakta. lakin örneğin c sutununda ilgili kodu kullandığımızı düşünürsek, c4 hücresine mükerrer veri girilince a4:ıv4(tüm satırı) arasındaki tüm verileri silmekte. Ama sayfanın çoğu yerinde koruma kullanacağım için kod çalışmıyor. c4 hücresine mükerrer veri girilince c4:k4 arasını silmesi sağlanabilir mi_?
yardımlarınız için şimdiden teşekkürler...

 

[leumruk]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Unprotect 12345
For c = [C65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("C2:C" & c), Cells(c, "C")) > 1 Then Rows(c).ClearContents
Next
Protect 12345
End Sub

Belitilen şifre yerine kendi koruma şifrenizi yazabilirsiniz.

 

[dragon44760]

Ilgili hücrenin tüm satırını silmesini istemiyorum. Girilecek verilerin kullanıldığı formulerin olduğu yerler korumalı. Eğer formüller silinirse veri girmeninde mantığı yok. Yani silinecek aralık tüm sartır değil sınırlamak istiyorum. Kod gayet güzel çalışmakta. Clear için aralık tanımlanması mükemmel olur.

 

[dragon44760]

Lütfen...

Arkadaşalar bu konuda yok mu yardımcı olacak birileri. Programın en önemli ve son ayağı kaldı. Kod girilen veri mükerrer olunca silerken belirli bir aralığı silsin.
Bu kodu sn. Ali hocam bir soruya yanıt olarak vermişti. Kodun veri girişin dışında kopya-yapıştırla girilen mükerrer verileri de bulmasın süper. Lütfen yardım ediniz...
İyi çalışmalar...

 

[leumruk]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For c = [C65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("C2:C" & c), Cells(c, "C")) > 1 Then
Set a = Cells(c, "c")
Set b = Cells(c, "c").Offset(0, 2)
Range(a, b).ClearContents
End If
Next
End Sub

Selamlar, silme aralığını kendinize göre düzenleyiniz; ya da hangi aralığı silmesini istiyorsanız belirtin, ben düzenleyeyim.

 

[dragon44760]

C sutunu ile W sutunu arasında silme yapsın. Ben kendimce uyguladım ama hata verdi. sarı dolgu renginin olduğu sutunlarda silme yapsın

 

[leumruk]

Merhaba,
Dosyanız ekte.

 

[dragon44760]

Sn. leumruk kod tam istediğim gibi olmuş. Eline, yüreğine ve bilgine sağlık...
Aşağıdaki linktede benzer bir sorum vardı. Kopyala yapıştırda mükerrerleri bulamamaktaydı. Bakarsanız sevinirim.
Kolay gelsin.
http://www.excel.web.tr/f48/mukerrer-veri-girisinde-kopyala-yap-st-rda-kodun-t61549.html

 

[leumruk]

Sn. leumruk kod tam istediğim gibi olmuş. Eline, yüreğine ve bilgine sağlık...
Kolay gelsin.

:hey:Rica ederim.