A=>z siralamayi eklİ dosyada neden yanliŞ yapiyor?

[sonka]

Merhaba

1- eklİ excel dosyamda İnternet den aktardiĞim 7.000 cİvari html

konu baŞliĞi lİnklerİ var. A => z ye siralama yapiyorum fakat yanliŞ

yapiyor neden kaynaklaniyor.?

2- konu baŞliklarinin yaninda sira numaralari var.sira numara larini bİr defada kaldirmak İstİyorum. Nasil yapabİlİrİm.?

Yardimci olursaniz sevİnİrİm

selamlar saygilar

 

[Korhan Ayhan]

Ekte dosyanız yok. Dosyanızı paylaşım sitelerine ekleyip linki forumda paylaşabilirsiniz.

 

[sonka]

A=>z siralamayi eklİ dosyada neden yanliŞ yapiyor?

Dosyamı ekleyecek Attachment yeri yok gönderemiyorum bulamadım.
Ama Excele aktarıp göndereceğim dosyanın ilgili web link adresini veriyorum siz excele kopyalayıp uygulamayı denerseniz memnun olurum.

http://forum.alomaliye.com/sitemap/f-9-p-14.html

selamlar saygılar

 

[halit3]

İlgili web sitesindeki veriyi dosyanızın B sütünuna yapıştırın
A1 hücresine şu formülü ekleyin ve aşağıya kadar sürükleyin

=PARÇAAL(B1;7;100)

Sonra A ve B sütunun birlikte tutun Sıralama simgesine tıklayın.

 

[Korhan Ayhan]

Verdiğiniz linkteki verileri excele kopyalayın ve sonra aşağıdaki makroyu bir defa çalıştırın.

Son olarak sıralama işlemini yapın.

Sub LİNKLERİ_DÜZELT()
    Dim Veri As Range, Son As Long, Bul As Integer
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For Each Veri In Range("A1:A" & Son)
        If Veri.Hyperlinks.Count > 0 Then
            Bul = InStr(1, Veri.Hyperlinks.Item(1).TextToDisplay, ". ")
            If Bul > 0 Then
                Veri.Hyperlinks.Item(1).TextToDisplay = Mid(Veri.Hyperlinks.Item(1).TextToDisplay, Bul + 2, 1024)
            End If
        End If
    Next

    MsgBox "İşleminiz tamamnlanmıştır.", vbInformation
End Sub

 

[sonka]

Konu: A=>z siralamayi eklİ dosyada neden yanliŞ yapiyor

Teşekkür ederim. Çok güzel oldu Selamlar

 

[sonka]

Korhan Bey Merhaba Yukarıdaki konuya ilişkin 3 ay önce verdiğiniz makroyu kopyalayıp çalıştırmış ve sonuç başarılı olmuştu. Şimdi yine aynı benzer işi yapmak istiyorum. Fakat bu sefer makro çalıştır işlemini beceremiyorum.

 

[sonka]

excel yardım menüsüde çok güzel açıklamış makro çalıştırı ama yinede nerde hata yapıyor olabilirim yapamadım.