Sutundaki Benzersiz Kayıtları Sırala ama yatay olarak

[modoste]

Merhaba Sayın Hocalarım Dosya eklemeden bi soru sormak istiyorum
belirlenen bir sutundaki benzersiz kayıtları başka biryerde sıralamayı formüllerle siz hocalarımdan öğrendim sayfa yada şekil değişitkçe sayıları değişip bunu becerebiliyorum
peki acaba benzersiz kayıtları düşey değilde yanyana(yatay) sutunlara sıralanabiliyomu
Ha çözüm olarak önce düşey sıralarsın sonra başka bi formüller yanyana hale getirirsin ama (dosya eklemeyecektim ama ekleyerek) bu soruma cevap verirmisiniz.
dosyada sarı renklerle belirttiğim şekilde olmasını istiyorum.

 

[Ali]

SATIRSAY olan kısımı SÜTUNSAY olarak değiştirin.

 

[Tarkan VURAL]

Merhaba,

Aşağıdaki kodlamayı deneyiniz.

Sub yanyana_cancana()
Dim con As Object, rs As Object, a As Long
a = Sheets("Rize-2009").Range("b65536").End(3).Row
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=no"""
Set rs = CreateObject("adodb.recordset")
With rs
    .Open ("select distinct(f1) from [Rize-2009$b6:b" & a & "]"), con, 1, 1
Do While Not .EOF
Sheets("Rize-2009").Range("a6").End(2)(1, 2).Value = rs.fields(0).Value
    .movenext
Loop
    .Close
End With
con.Close
a = Empty
Set con = Nothing: Set rs = Nothing
End Sub

 

[modoste]

ali hocam formülü ilk yazdığımız hücrede dediklerinizi yapmaya çalıştım CTRL+ALT+ENTER la mama rağmen hata yapıyom galiba siz örnek dosyada yaparmısınız

 

[Ali]

Örnek dosyaya gerek yok.

C6 hücresine

=EĞER(SÜTUNSAY($C$6:C6)<=$C$5;İNDİS($B$6:$B$300;KÜÇÜK(EĞER(SIKLIK(EĞER($B$6:$B$300<>"";KAÇINCI("~"&$B$6:$B$300;$B$6:$B$300&"";0));SATIR($B$6:$B$300)-SATIR($B$6)+1);SATIR($B$6:$B$300)-SATIR($B$6)+1);SÜTUNSAY($C$6:C6)));"")

yazıp CTRL+SHIFT+ENTER ile girdikten sonra sağa doğru çekiniz.

 

[modoste]

Çok Teşekkür ettim Sayın Ali Hocam

 

[modoste]

Sayın Tarkan Vural Kodlama ile olanı tam olarak nasıl yapacağımı yazarak anlatabilrmisiniz
formülasyonlu şeyleri sevdiğimden kod ile olanı henüz tam kavrayamadım.

 

[Tarkan VURAL]

• Excel'i açın, Araçlar - Makro - Güvenlik Sekmesini kontrol edin. Eğer güvenlik seviyesi Yüksek ise Orta ya da Düşük seçin
• Eğer bahsettiğim güvenlik ayarlarında değişiklik yaptıysanız Excel'i kapatın ve açın
• ALT + F11 tuşlarına birlikte basın ( yada sayfa isminin üzerinde iken sağ clik ile Kod Görüntüle seçin ) ve VBE penceresini aktif etmiş olun.
• Size yazdığm kodlamayı kopyalayın ve bu açtığınız sayfaya yapıştırın.
• VBE penceresini kapatıp Excel' e işlem yapmak istediğiniz sayfanıza geçin.
• ALT + F8 tuşlarına basarak makrolar penceresinin açılmasını sağlayın.
• Ekranda çıkacak olan yanyana isimli makroyu seçin ve çalıştırın.

İşlem tamamlanmıştır.

 

[modoste]

teşekkür ettim anlatmınız için