• DİKKAT

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

mükerrer

  • Konbuyu başlatan Konbuyu başlatan İhsan Tank
  • Başlangıç tarihi Başlangıç tarihi
İ

İhsan Tank

Misafir
selam arkadaşlar benim makro bağlantılı sayfamda aktarılan bilgilerin mükerrer kayıt yapmasını nasıl engellerim butonluda olabilir yardımlarınızı bekliyorum
 
arkadaşlar sorunumu bu makro ile çözdüm yalnız satır silmesini değil sadce içindeki bilgileri silmesini istiyorum yardımcı olur musunuz
Sub Düğme1_Tıklat()
For sil = [b65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("B1:B" & sil), Range("B" & sil)) > 1 Then Rows(sil).Delete
Next
End Sub
 
merhaba

bunu deneyiniz

Kod:
If WorksheetFunction.CountIf(Range("B1:B" & sil), Range("B" & sil)) > 1 Then Rows(sil).ClearContents
 
hocam teşekkür ederim bir sorun oluşturdu formüllü olan sutunlarıda sildi sutunlar A-H-J-K bunlar normal kalamaz mı
 
merhaba

bunu deneyiniz.

Kod:
If WorksheetFunction.CountIf(Range("B1:B" & sil), Range("B" & sil)) > 1 Then Range("B" & sil).Resize(1, 6).ClearContents
 
hocam allah sizden razı olsun 1 hafta sonra rahat bir şekilde uyuyacağım allah yardımcınız olsun
TEŞEKKÜR EDERİM SİZE VE BÜTÜN UZMAN ARKADAŞLARA
 
Geri
Üst