• DİKKAT

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

Hücre biçimi ve aynı olanların renklenmesi

F

firefox_37

Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Arkadaşlar iki sorum olacak..
Öncelikle cep tel no sütunumda 1500 satır telefon numarası var.Ama biçim olarak hepsi değişik neredeyse.

Yani ;

5301235678
05301235678
0530 123 56 78
530 123 56 78 gibi..

Bunların hepsini aynı formata çevirme şansım varmıdır ??

İkincisi de mükerrer telefon numaralarını nasıl tespit edebilirim?

İyi çalışmalar ..
Kolay gelsin..
 
Format önemli değil...
Tek bir biçimde olsun yeterli

ÖRN: 530 123 45 67 gibi
Dosyayı ekliyorum hemen..
 

Ekli dosyalar

Bu şekilde deneyin.

Kod: 
Option Explicit
 
Sub FormtBul()
Dim i As Long, son As Long
Application.ScreenUpdating = False
son = [A65536].End(3).Row
Range("C2:D" & son).Interior.ColorIndex = xlNone
Range("C2:D" & son).Replace " ", ""
Range("C2:D" & son).NumberFormat = "0000 000 00 00"
    For i = 2 To son
        If WorksheetFunction.CountIf(Range("C2:C" & son), _
            Cells(i, "C").Value) > 1 Then
            Cells(i, "C").Interior.ColorIndex = 34
        End If
        If WorksheetFunction.CountIf(Range("D2:D" & son), _
            Cells(i, "D").Value) > 1 Then
            Cells(i, "D").Interior.ColorIndex = 34
        End If
    Next i
Application.ScreenUpdating = True
End Sub

.
 
Belirttiğiniz kodu "Kod Görüntüle" dedikten sonra gelen sayfaya kaydettim fakat bir değişiklik olmadı..
Exceldeki kod mantığıdan tamamen uzağım...Nasıl çalıştıracağımı bilmiyorum.
 
Linki inceleyiniz.

Modül Ekleme (Resimli Anlatım)

Modul ekledikten sonra sayfaya bir buton çizerek sağ cilik yapın makro ata diyerek kodları işaretleyin ve tamama basın.

.
 
2007 kullanmadığım için formlar menüsü hangi seçenekte bilmiyorum. Araştırırsanız bulursunuz. Bu yüzden buton çizmeyi sizin araştırmanıza bırakıyorum.

Resim, şekil...çizerekte aynı işlemi yapabilirsiniz.

Sayfa üzerine bir diktörgen çizin çizdikten sonra sağ cilik yapıp makro ata bölümünü seçin açılan ekrandan makronun adını seçin ve tamam butonuna basın.

Dosyada artık makro olduğu için 2007 sürümde bu dosyayı farklı kaydetmek gerekecektir. Yukarıdaki işlemleri bitirdikten sonra,

Farklı Kaydet seçeneğinden,


"Excel Makro Etkin Çalışma Kitabı" seçeneğini seçerek kaydedin.

Eğer güvenlik ayarları yüksekse seçeneklerden güvenliğe gelerek düşük(önerilmezi) işaretleyin.

Eğer dosyanızda makro kullanmak istemiyorsanız sorunuzu koşullu biçimlendirme ilede yapabilirim. Fakat veri aralığınız geniş olduğu için dosya boyutu oldukça artar.

Tercih sizin.

.
 
Tamam yaptım bir çoğunu düzeltti.
Çok sağolun..


Mükerrer kayıtlarıda vermiş olduğunuz dosya örneklerinden yapabilirsem ne mutlu bana :)
 
Verdiğim kod hem biçimi düzeltiyor hem de benzer olanları renklendiriyor. Sizin istediğiniz bu değil mi?.

.
 
Ben vermiş olduğunuz kodun Format düzelltiğini gördüm daha çok..

Yani 5301234567 olan rakamları 0530 123 45 67 olarak düzeltti.
Renklendirilen hücrelerde aynı olanları mı gösteriyor ???
 
Farkında değilim ..

Eğer verdiğiniz kod hem format düzeltip hemde aynı numaraları renklendiriyorsa harika.
 
Evet o şekilde yapıyor. Örnek C5 hücresine 1 yazın C10 hücresine de 1 yazın ve kodları çalıştırın. Bu iki hücrenin renklendiğini görebilirsiniz.

.
 
Anladım..
Çok sağolun gerçekten büyük yardımınız dokundu bu konuda da .

Ama CTRL+F ile renklenen hücre içerisinde yazan bir numarayı arattığımda hücreyi bulmuyor..

Daha doğrusu hangi telefon numarasını yazarsam yazayım bulamıyor..
Kod yazıldığı için mi ?
 
Arama yaparken arada boşluk kullanmayın ve numaranın başına 0 yazmayın.

5617896545

bu şekilde yazıp arama yapın.

.
 
Anladım..

Yine sağolun...Bu şekilde boyalı hücrelerdeki numaraları aratıp mükerrerlerden birini sileceğim..
 
Bunuda koda ilave edebiliriz. C sütununda 5 tane aynı numara bulusa 4 ünü silecek 1 tanesi mi kalacak ve silme işlemini tüm satır için mi yapacak yoksa sadece hücre içeriğini mi silecek.

.
 
Ya gerçekten süper olur..

Aynen dediğiniz gibi olacak..

Yani bir numaradan 4 tane varsa 3 satır tamemen silinecek diğer satır kalacak..

Hücre içeriği değil satırın tamamı silinsin..

Süpersiniz..
 
Son düzenleme:
Bu şekilde deneyin.

Kod: 
Option Explicit
 
Sub FormtBul()
Dim i As Long, son As Long
Application.ScreenUpdating = False
son = [A65536].End(3).Row
Range("C2:D" & son).Replace " ", ""
Range("C2:D" & son).NumberFormat = "0000 000 00 00"
    For i = son To 2 Step -1
        If WorksheetFunction.CountIf(Range("C2:C" & i), _
            Cells(i, "C").Value) > 1 Then
            Rows(i).Delete
        End If
        If WorksheetFunction.CountIf(Range("D2:D" & i), _
            Cells(i, "D").Value) > 1 Then
            Rows(i).Delete
        End If
    Next i
Application.ScreenUpdating = True
End Sub

Detaylı deneme yapmadığım için önce doğruluğunu kontrol edin.Kodları çalıştırmadan önce dosyanızın yedeğini alın. Yanlış bir işlem varsa belirtirsiniz ona göre tekrar düzenlemeye çalışırım.
.
 
Yedeğimi aldım..
Denem dosyasında kodları uyguladım..
Kontrolümü yaptım..

Sonuç = %100 BAŞARILI :)

Büyük bir zaman kaybından kurtardınız beni çok sağolun..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst