Sayı Sütununu Belli Karakter Sayısına Düzenleme ?

[bugsaka]

Merhabalar sorunum şu elimde sayıların oluşturduğu bir stun var ve ben bu stun içindeki sayılardan 10 rakam bulundurmayan tüm satırların silinmesini istiyorum yani 10 rakamı bulunan satırlar kalacak diğerleri silinecek bunu nasıl yapabilirim?

Şimdiden ilgilenen herkese teşekkür ederim.

 

[İhsan Tank]

biraz daha açıklama ve dosya ekleseniz

 

[İhsan Tank]

merhaba
umarım bu kod işinizi görür

Option Explicit
Sub düşük_sil()
Dim ts, kaplan, trabzonspor
kaplan = MsgBox("10'dan Küçükleri Siliyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
trabzonspor = Cells(65536, "B").End(xlUp).Row
For ts = trabzonspor To 2 Step -1
If Len(Range("B" & ts)) < 10 Then
Range("B" & ts).ClearContents
Range("B2:B" & trabzonspor).Sort key1:=Range("B2"), ORDER1:=xlAscending
End If
Next
MsgBox "10'dan Düşükleri Sildim", vbInformation, "Bitiş"
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu işlemi filtreleme yöntemi ile rahatlıkla yapabilirsiniz.

İlk olarak ilgili sütunu seçin.
Veri-Filtre-Otomatik Filtre menüsünü çalıştırın.
Sütunun ilk hücresinde aşağı ok oluşacaktır.
Bu oka tıklayın. Açılan menüden "ÖZEL" seçeneğini seçin.
Açılan penceredeki ilk kutucuktan "EŞİT DEĞİL" seçeneği seçin. Yanındaki kutucuğa 10 yazıp tamam tuşuna basın.

Bu şekilde 10 değerine eşit olmayan verilere filtre uygulamış oldunuz. Şimdi görünen satırları seçip seçili alan üzerinde sağ klik yapın. Açılan menüden "SİL" komutunu çalıştırın.

Böylece 10 değeri dışındaki tüm verileri silmiş olacaksınız.

 

[bugsaka]

Yardımlarınız ve alakanız için teşekkür ederim .Ekle birlikte örnek dosyayı yolluyorum. Burada gördüğünüz 10 rakama sahip veriler aynen kalacak daha fazlası yada daha azı olanlar silinecek ancak herhangi bir kayma olmadan olmalı bu umarım anlatabilmişimdir bu kez

 

[Korhan Ayhan]

Selamlar,

B1 hücresine aşağıdaki formülü uygulayın ve alt hücrelere sürükleyin.

=UZUNLUK(A1)

Daha sonra "B" sütununu seçin.
Veri-Filtre-Otomatik Filtre-Özel seçeneğini seçin.

İlk kutucuktan "EŞİT DEĞİL" seçeneğini seçin. Yandaki kutucuğa 10 yazın ve tamam tuşuna tıklayın.

Süzülen verilerden A sütunundaki hücreleri seçin ve klavyeden "DELETE" tuşuna basın. İşleminiz tamamlandığı için "B" sütununuda komple silebilirsiniz.

 

[bugsaka]

Denedim örnek dosyada sorunsuz çalışıyor. Umuyorumki datalarımdada çalışacaktır bukadar hızlı yardım ettiğiniz için çok teşekkür ederim. Sanırım bu sitenin müdavimi olacağım ben