Sayı sıralama

Excel harici diğer konuları burada paylaşabilirsiniz.

Sayı sıralama

İleti#1)  engkpc » 09 Eyl 2019 12:32

Merhaba yapmak istediğimi resimde anlatmaya çalıştım inşallah anlatabilmişimdir yardımcı olursanız sevinirim.

Gönderilmiş resmi tam boy görmek istiyorsanız, eklentinin üzerini tıklayınız.


Kullanıcı avatarı
engkpc
 
Kayıt: 17 May 2017 18:03
Meslek: esnaf
Yaş: 42
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bolu

Cevap: Sayı sıralama

İleti#2)  Mesut Topal » 09 Eyl 2019 16:28

Buyrun.
Bir modüle yapıştırıp çalıştırmanız yeterli.

Kod: Tümünü seç
Option Base 1
Sub ÖlçüAdet()
On Error Resume Next
Set s = Sheets("Sayfa1")
Dim son(1 To 6)
For i = 1 To 6
    son(i) = s.Cells(Rows.Count, i).End(3).Row
Next
    SonSatır = Application.WorksheetFunction.Large(son, 1)
ReDim Ölçü(1 To 6 * SonSatır, 1 To 2)
    Liste = s.Cells(1, 1).Resize(SonSatır, 6)
For i = 1 To 6 * SonSatır
    Ölçü(i, 1) = Application.WorksheetFunction.Large(Liste, i)
    Ölçü(i, 2) = Application.WorksheetFunction.CountIf(s.Cells(1, 1).Resize(SonSatır, 6), Ölçü(i, 1))
    If Ölçü(i, 1) = Application.WorksheetFunction.Small(Liste, 1) Then Exit For
Next
s.Cells(2, 10).Resize(6 * SonSatır, 2) = Ölçü
End Sub
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 32
İleti: 425
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik


Forum Diğer Konular

Online Kullanıcılar

Bu forumu görüntüleyenler: Sogou ve 0 misafir

Bumerang - Yazarkafe