Excel hücre sıralama

[mu-rat]

Merhabalar, benim aşağıdaki gibi kullanıcıların girdiği sitelerin raporları elimde var. Ben burada kırmızı ile belirttiğim kullanıcının ip numarasının olduğu kısımları alt alta sıralamak istiyorum yani sıralama işlemini o ip numarasına bakarak yapacak bunu nasıl yapabilirim. Yani sıralamada 10.0.0.59 varsa altında 10.0.0.197 değil yine 10.0.0.59 olacak ve bu şekilde sıralanmış olacak aynı zamanda tabi onları sıralarken yanındaki hücredekileri de beraberinde taşıyacak (Kahverengiyle belirttiğim yerler), şimdiden teşekkürler.

1 03.12.2010 08:56:50 10.0.0.59:2358 173.241.240.4:80
notice content-filter-forward WEB FORWARD
d.reklamz.com
2 03.12.2010 08:56:50 10.0.0.197:3071 68.67.185.203:80
notice content-filter-forward WEB FORWARD
ad.metanetwork.com
3 03.12.2010 08:56:50 10.0.0.197:3073 68.67.185.203:80
notice content-filter-forward WEB FORWARD
ib.adnxs.com
4 03.12.2010 08:56:50 10.0.0.20:1500 195.175.70.107:80
notice content-filter-forward WEB FORWARD
vthumb.ak.fbcdn.net [count=2]
5 03.12.2010 08:56:50 10.0.0.59:2360 173.241.240.4:80
notice content-filter-forward WEB FORWARD
d.reklamz.com
6 03.12.2010 08:56:50 10.0.0.20:1502 195.27.154.74:80
notice content-filter-forward WEB FORWARD
profile.ak.fbcdn.net [count=6]
7 03.12.2010 08:56:50 10.0.0.197:3075 217.163.21.36:80
notice content-filter-forward WEB FORWARD
ad.yieldmanager.com
8 03.12.2010 08:56:51 10.0.0.197:3077 217.163.21.37:80
notice content-filter-forward WEB FORWARD
ad.yieldmanager.com
9 03.12.2010 08:56:51 10.0.0.20:1504 195.175.68.144:80
notice content-filter-forward WEB FORWARD
photos-b.ak.fbcdn.net

 

[Ömer]

Merhaba,

Soruyu daha iyi anlamak ve üzerinde deneme yapabilmemiz için küçük bir örnek eklermisiniz..

.

 

[mu-rat]

Merhabalar dosyayı ekledim 1 sayfadaki işlenmemiş olan 2. sayfadaki işlendikten sonraki hali dikkat ederseniz 10.0.0.20 olanları bir araya 10.0.0.59 olanları alt alta toparlamış bu şekilde olmasını istiyorum ama yapamadım bir türlü, tabi bu sonundaki 20 ve 59 rakamları başka rakamlarda olabiliyor bakabilirseniz sevinirim.

 

[Ömer]

Merhaba,

Öncelikle Sayfa1 A5 hücresine;

=EĞER(B5="";"";EĞER(MOD(SATIRSAY($A$5:A5);3)=1;--YERİNEKOY(SOLDAN(
SAĞDAN(B5;UZUNLUK(B5)-BUL(":";B5)-6);BUL(":";SAĞDAN(B5;UZUNLUK(B5)-
BUL(":";B5)-6))-1);".";"");A4))

formülünü yazarak alt satırlara kopyalayınız.

Daha sonra imleç A5 hücresinde iken AZ sırala seçeneği ile sıralama işlemini gerçekleştiriniz.

Dilerseniz bu işlemi makro ile de yapabilirim.

.

 

[mu-rat]

Teşekkürler verdiğiniz formül çok işime yaradı, süper oldu. Zahmet olmazsa makro olarak ta gönderebilirseniz çok makbule geçer.

 

[Ömer]

Teşekkürler verdiğiniz formül çok işime yaradı, süper oldu. Zahmet olmazsa makro olarak ta gönderebilirseniz çok makbule geçer.

Bu şekilde deneyiniz..

Sub Sırala()
Dim i As Long, son As Long
son = Cells(Rows.Count, "B").End(xlUp).Row
Range("A5:A" & son).Replace ".", ""
For i = 5 To son
    If (i - 4) Mod 3 = 1 Then
        Cells(i, "A") = CDbl(Split(Split(Cells(i, "B"), " ")(3), ":")(0))
    Else
        Cells(i, "A") = Cells(i - 1, "A")
    End If
Next i
Range("A5:B" & son).Sort Range("A5")
Range("A5:A" & son).ClearContents
End Sub

.