• DİKKAT

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

Aynı değerli hücreler

  • Konbuyu başlatan Konbuyu başlatan jeodezi
  • Başlangıç tarihi Başlangıç tarihi
Katılım
6 Ekim 2004
Mesajlar
8
Arkadaşlar ekte gönderdiğim dosyada B hücrelerinde aynı olan değerlerden sadece birinin kalmasını istiyorum. Dikkat edilirse B hücrelerindeki aynı olan değerlerin sıra numaraları da aynı. B hücrelerindeki aynı olan değerlerden biri kaldığı ve diğerleri silindiği anda sıra numaraları da düzene girmiş olacak.Yardımlarınız için şimdiden teşekkür ederim.
 
Sub aynisil()
For sil = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete
Next
End Sub


kodlarını deneyin.

.
 
Geri
Üst