Karakter sayısına göre sıralama

[Spatz]

Öncelike; "aradım, mamafih bulamadım"

Şimcik;

Ekte gönderdiğim dosyada satırları ilk sütündaki karakter sayısına göre azdan çoğa doğru dizsin istiyorum. Ama tam olarak ne yazmam gerektiğini bulamadım. Forumda bulduğum sırala komutlarını uyarlamaya çalıştım ama cık, olmadı. Yardım edebilir misiniz?

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz. B sütunu boş ve gizli olduğu için yardımcı sütun olarak kullanılmıştır..

Private Sub CommandButton3_Click()
son = [A65536].End(3).Row
For i = 2 To son
    Cells(i, "b") = Len(Cells(i, "a"))
Next i
Range("A2:I" & son).Sort Range("B2")
Range("B:B").ClearContents
End Sub

.

 

[Spatz]

Teşekkürler.

 

[Spatz]

Az önce teşekkür ettim ama bu kodu kendi dosyama uygulayınca fazla karakter olan satırdan az karaktere doğru sıraladı. Diğer komutta da benzer sorun yaşıyordum.

Sizce neden olabilir?

 

[Ömer]

Sorun yaşadığınız dosyayı ekleyiniz..

.

 

[Spatz]

Ne yazık ki ekleyemiyorum. Şirket içi kullanımda olan bir dosya. Bunun için özür dilerim. Ama emin olun ki random harflerle oluşturduğum örnek dosyadan bir farkı yok.

Elinizdeki dosyada satırları yer değiştirin göreceksiniz istediğim gibi çalışmıyor.

Mesela şu ekli dosyada çalıştırın komutu 8. ve 9. satırlara bakın. Yanlışlık var.

En az karakterli olandan en çok karkaterli olana...

Teşekkürler.

 

[Spatz]

p.s: yazdığınız kod alfabetik sıralıyor. ben karakter sayısına göre sıralanmasını istiyorum.

Tekrar teşekkürler.

 

[Spatz]

p.s2: özür dilerim yazdığınız kod o dosyada düzgün çalışıyor. benimkindeki hatayı ben kendim bulucam sanırım.

tekrar kusura bakmayın. ama sizin kodunuzda len(cells) kısmında naaptığını pek anlamadım. onu açıklayabilir misiniz?

 

[Ömer]

Cells(i, "b") = Len(Cells(i, "a"))

a sütununda olan verilerin uzunluklarını b sütununa yazarız.

b sütununa verileri bu şekilde yazdıktan sonra sıralamayı b sütuna göre yaparak istediğiniz sonuca ulaşmış oluruz.

.

 

[Spatz]

Teşkkürler. Clearcontent kısmını silince naaptığını gördüm ve komut "ORDER1:=xlAscending" ekledim, sorunum şimdilik çözüldü gibi.

tekrar sağolun.

 

[Spatz]

Bir sorum daha var.

Değer 0 olursa bu makroda dikkate almasın istiyorum. Nasıl olur. Yine en altta kalsın mesela.

 

[vezirazam]

karektere göre kelimeleri azdan çoğa sıralamak

Cells(i, "b") = Len(Cells(i, "a"))

a sütununda olan verilerin uzunluklarını b sütununa yazarız.

b sütununa verileri bu şekilde yazdıktan sonra sıralamayı b sütuna göre yaparak istediğiniz sonuca ulaşmış oluruz.

.

Benzer sorunu yaşıyorum. Ancak anlatımı anlamadım. Daha ayrıntılı anlatılabilir mi? Örneğin şu kelimeleri sıralamak istiyorum:zor
zevk
zengin
zaten
zarar
zaman
yüzyıl
yüzünden
yüzden
yüzde
yüz
yürümek
yürek
yükselmek
yüksek
yumurta
yukarıda
yöntem
yönetim
yönetici
yönelik
yön
yol
yoksa
yok
yoğun
yine
yıllık
yıldız
yıl
yetmek
yeterli
yetenek
yeşil
yerine
yer
yeniden
yeni
yemek
yedi
yazmak
yazılmak
yazı
yazar
yaz
yayın
yayımlanmak
yayılmak
yavaş
yatmak
yatırım
yatak
yaşlı
yaşanmak
yaşamak
yaşam
yaş
yasa
yarı
yardımcı olmak
yardım
yaratmak
yararlanmak
yarar
yaptırmak
yaprak
yapmak
yapılmak
yapı
yanmak
YANLIŞ
yani
yanıt
yanı sıra
yan
yalnızca
yalnız
yakmak
yaklaşmak
yaklaşık
yakın
yakalamak
yağ
yabancı
ya
vücut
vurmak
vitamin
veya
vermek
verilmek
vergi
ve
vatandaş
varmak
varlık
var
vakit
üzerine
üzerinde
üzeri
üzere
üye
üstüne
üstünde
üstelik
üst
ürün
üretmek
üretim
üretilmek
ünlü
üniversite
ülke
üçüncü
üç
ücret
uzun
uzman
uzatmak
uzanmak
uzak
uyumak
uymak
uygun
uygulanmak
uygulamak
uygulama
unutmak
uluslararası
ulaşmak
uğraşmak
uğraşmak
uçak
uç
türlü
tür
tüm
tüketici
tuz
tutulmak
tutmak
trafik
toprak
toplumsal
toplum
toplantı
toplanmak
toplamak
toplam
top
tip
ticaret
tercih etmek
tepki
temiz
temel
televizyon
telefon
tekrar
teknoloji
teknik
tek
tehlike
tedavi
tavır
tatlı
taşımak
taş
tarz
tarih
taraf
Tanrı
tanımak
tane
tamamen
tamam
tam
talep
takım
takılmak
tabi
şu
şöyle
şirket
şimdi
şiir
şey
şekil
şehir
şart
şarkı
şarap
süt
sürücü
sürmek
sürekli
süreç
süre
sürdürmek
sunulmak
sunmak
suç
su
spor
sözcük
söz etmek
söz
söylenmek
söylemek
sosyal
sorun
sorumluluk
soru
sormak
sonunda
sonuç
sonra
son derece
son
sol
sokmak
sokak
soğuk
siz
site
sistem
sinema
silah
sigorta
sigara
sırt
sıra
sınır
sınıf
sıkıntı
sıcaklık
sıcak
seyretmek
sevmek
sevgili
sevgi
ses
servis
sert
sene
sen
sektör
seçmek
seçim
sebep
saymak
sayılmak
sayı
saygı
sayfa
saye
savaş
satmak
satış
satın almak
sanmak
sanki
sanayi
sanatçı
sanat
sana
salon
sahne
sahip olmak
sahip
sağlılklı
sağlık
sağlanmak
sağlamak
sağ
sadece
saç
sabah
saat
rüzgar
ruh
roman
rol
risk
resim
renk
reklam
rahat
rağmen
proje
program
problem
politika
polis
plan
piyasa
pencere
peki
pek
pazar
paylaşmak
paşa
parti
parmak
parça
para
özgürlük
özellikle
özellik
özel
öyle
öykü
öteki
öteki
öte
örnek
örneğin
örgüt
önemli
önem
önce
ön
ölüm
ölmek
öldürmek
ölçü
öğretmen
öğrenmek
öğrenci
ödemek
oyun
oysa
oynamak
oturmak
otomobil
otobüs
otel
ortam
ortak
orta
orman
organ
oran
orada
ora
onun
onlar
on
oluşturmak
oluşmak
olmak
olma
oldukça
olay
olanak
okur
okumak
okul
oğul
oda
o
numara
normal
nokta
niye
nitelik
neredeyse
nerede
neden
ne
nasıl
müzik
müşteri
mümkün
müdür
mücadele
mutlaka
mutfak
modern
model
milyon
milyar
millet
miktar
meyve
meydan
mevcut
metre
meslek
mesele
mesela
merkez
mektup
mekân
medya
meclis
masa
marka
malzeme
mal
makine
mahalle
mağaza
madde
maç
lira
lazım
laf
kültür
küçük
kurum
kuruluş
kurulmak
kurtulmak
kurtarmak
kurmak
kural
kullanmak
kullanım
kullanılmak
kulak
kriz
kredi
köy
kötü
köşe
köpek
koymak
koşul
koşmak
korumak
korku
korkmak
konuşmak
konu
kontrol
koltuk
kolay
kol
koku
koca
kitap
kişi
kimse
kimlik
kimi
kim
kilo
ki
kız
kısım
kısaca
kısa
kırmızı
kılmak
kez
kesmek
kesin
kesim
kesilmek
kere
kent
kendi
kenar
kelime
kazanmak
kaza
kaynak
kaybetmek
kavram
katkı
katılmak
kat
kas
karşılık
karşılaşmak
karşılamak
karşı
karıştırmak
karışmak
karı
kardeş
karar
karanlık
kapı
kapatmak
kapanmak
kanun
kanal
kan
kamu
kalp
kalmak
kalkmak
kalite
kaldırmak
kalan
kahve
kağıt
kafa
kadın
kadar
kaçmak
kaç
kabul etmek
izlemek
izin
iyice
iyi
işte
işletme
işlemek
işlem
işçi
iş
istenmek
istemek
istek
isim
ise
internet
insan
inmek
incelemek
ince
inanmak
inanç
imkan
ilke
ilk
ilişki
ilginç
ilgili
ilgilenmek
ilgi
iletişim
ilerlemek
ileri
ile
ilaç
ikinci
iki
ihtiyaç
ifade etmek
ifade
idi
içmek
içinde
için
içermek
içerisi
içeri
iç
ışık
hükümet
hücre
hukuk
hoş
hoca
hizmet
hissetmek
hikaye
hiçbir
hiç
hızlı
hızla
hız
hesap
herkes
herhangi bir
her zaman
her şey
her gün
her
hepsi
hep
henüz
hemen
hem
hele
hedef
hazırlanmak
hazırlamak
hazır
hayvan
hayır
hayat
hayal
hava
hatta
hatırlamak
hata
hastalık
hastahane
hasta
hareket etmek
hareket
hanım
hangi
halk
hâlâ
hâl
hakkında
hak
hafta
hafif
haber
güzel
güvenlik
güven
günlük
güneş
gün
gülmek
güçlü
güç
grup
göz
götürmek
göstermek
görüşmek
görüş
görüntü
görünmek
görülmek
görmek
görev
göre
gönül
göndermek
gizli
giymek
gitmek
girmek
giriş
giderek
gider
gibi
getirmek
getirilmek
geri
gerekmek
gerekli
gerek
gerçekten
gerçekleşmek
gerçek
geniş
genellikle
genel
gene
genç
gelmek
geliştirmek
gelişmek
gelişme
gelir
gelen
gelecek
geçmiş
geçmek
geçirmek
geçen
geç
gece
gazeteci
gazete
gaz
fotoğraf
fiyat
firma
film
fikir
fırsat
fazla
farklı
fark etmek
fark
fakat
faiz
faaliyet
eylem
evlenmek
evet
ev
etraf
etmek
etkilemek
etki
et
eşya
eş
eski
eser
erkek
enflasyon
enerji
en
eleman
elektrik
elbette
el
ekonomik
ekonomi
ekmek
eklemek
ek
eğitim
eğer
edilmek
düzey
düzenlemek
düzen
düşünülmek
düşünmek
düşünce
düşük
düşmek
dünya
dün
dükkan
duymak
duygu
duvar
durum
durmak
dört
dönüşmek
dönmek
dönem
dost
dolu
doldurmak
dolayısıyla
dolayı
dolaşmak
doktor
DOĞRU
doğmak
doğal
doğa
diye
dinlemek
din
dilemek
dil
dikkat etmek
dikkat
diğer
dışarı
dış
devlet
devam etmek
destek
ders
derin
deri
dergi
derece
denmek
deniz
denilmek
denge
demokrasi
demek
değiştirmek
değişmek
değişim
değişiklik
değişik
değil
değerlendirmek
değer
defa
dayanmak
davranmak
davranış
dakika
daire
daha
dağ
çünkü
çözüm
çok
çoğu
çocuk
çizmek
çizgi
çiçek
çıkmak
çıkarmak
çıkarılmak
çıkar
çevre
çevirmek
çeşitli
çeşit
çerçeve
çekmek
çekilmek
çay
çalmak
çalışmak
çalışma
çağ
çaba
cümle
cumhuriyet
cilt
cihaz
ciddi
ceza
cevap
cep telefonu
canlı
can
cami
cam
cadde
büyümek
büyük
bütün
burun
burada
bura
bunun
bunu
bunlar
bundan
buna
bulunmak
bulmak
bugün
bu
böylece
böyle
bölüm
bölge
bozulmak
boyut
boyunca
boyun
boy
boş
biz
bitmek
bitki
bitirmek
birlikte
birlik
birkaç
birisi
birinci
birim
biri
birey
birer
birden
birçok
birbiri
biraz
bir şey
bir
binmek
bina
bilmek
bilinmek
bilinç
bilim
bilgisayar
bilgi
bile
biçim
bırakmak
beyin
beyaz
beyan
bey
beş
besin
beri
beraber
benzer
benzemek
ben
belli
belki
belirtmek
belirtilmek
belirlenmek
belirlemek
belge
belediye
beklemek
beden
bebek
bazı
bazen
batı
başlamak
başkan
başka
başarılı
başarı
baş
basmak
baskı
basit
basın
banka
balık
bakmak
bakış
bakanlık
bakan
bahçe
bağlı
bağlanmak
bağlamak
bağırmak
bacak
baba
azalmak
az
ayrılmak
ayrıca
ayrı
aynı
ayırmak
ayak
ay
atmak
atılmak
ateş
at
aşmak
aşk
aşırı
aşama
aşağı
aslında
asla
asker
asıl
artmak
artış
artırmak
artık
art
arkadaş
arka
araştırma
aramak
araç
araba
ara
anne
anlayış
anlatmak
anlaşılmak
anlamak
anlam
ancak
ana
an
amaç
ama
altın
alt
almak
Allah
alışveriş
alınmak
alan
akşam
akmak
akıl
ait
aile
ağlamak
ağız
ağırlık
ağır
ağaç
ağabey
adres
adım
adet
aday
adam
ad
açmak
açılmak
açıklamak
açık
açı
acı
acaba
abla

 

[vezirazam]

Cells(i, "b") = Len(Cells(i, "a"))

a sütununda olan verilerin uzunluklarını b sütununa yazarız.

b sütununa verileri bu şekilde yazdıktan sonra sıralamayı b sütuna göre yaparak istediğiniz sonuca ulaşmış oluruz.

.

Bin tane kelimem var. Dediğiniz mantıklı ama her kelimenin kaç karekter olduğunu karşısına yazmak baya zaman alıyor. Bunun için bir formül var mı? O zaman dediğiniz olur.

 

[Ömer]

Sorunuzu örnek bir dosya ekleyerek, dosya içerisinde detaylı açıklar mısınız.