Makro İle Sütundaki Sayıların Sırasını Yazmak

[mavi.ist]

Merhaba ekteki excel dosyasında sütunlarda 18 tane verim var bunların arasında birer boşluk ekleyerek gri kolonlara sıralama yaptırmak istiyorum. Yardımlarınızı rica ediyorum.

 

[Ömer BARAN]

"Sıralama" kelimesinden maksatınız nedir hiç anlaşılmıyor.
Örneğin kendi satırında kaçıncı büyük/küçük sayı olduğu gibi bir şey mi istediğiniz?

Belgenin ham hali nasıldır, olması gereken hali nasıldır bunu netleştirin.
Boşlukları eklemiş değil misiniz? Birer boş sütun daha mı istiyorsunuz?

GRİ zeminli alanlarda olması gereken değerleri elle yazarak örneklendirip,
belgenizi yenilemeniz yerinde olur bence.

 

[mavi.ist]

Kusura bakmayın ilk defa soru sorduğum için biraz acemice olmuş yapmaya çalıştığım şekli ile düzenledim exceli istedğim şey şimdi doldurduğum grı sütunlara yanlarında yazan 18 sütundaki sayıların büyükten küçüğe göre 1'den 18'e kadar sıralamak.

 

[Ömer BARAN]

Tekrar merhaba.

-- Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılacak olan VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırın,
-- Beyaz zeminli hücrelere sayı yazarak/yazılmış sayıyı silerek sonucu gözlemleyin.

NOT:
-- Belgenizi MAKRO İÇEREBİLEN dosya türünde kaydedin.
-- Kod, 5'inci satırdan itibaren, B sütunundaki son dolu satıra kadarki alanda istenilen işlemi gerçekleştirir.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
alan = "D5:AL" & Cells(Rows.Count, 2).End(3).Row
If Intersect(Target, Range(alan)) Is Nothing Then Exit Sub
If WorksheetFunction.IsEven(Target.Column) = True Then
    For sut = 4 To 38 Step 2
        For sutt = 4 To 38 Step 2
            If sutt <> sut And Cells(Target.Row, sut) < Cells(Target.Row, sutt) Then s = s + 1
        Next: Cells(Target.Row, sut + 1) = s + 1: s = 0
        If Cells(Target.Row, sut) = "" Then Cells(Target.Row, sut + 1) = ""
    Next: End If
[B]End Sub[/B]

 

[mavi.ist]

Çok teşekkür ederim Ömer bey, diğer sorularımda daha dikkatli olacağım
Paylaştığınız kodu VBA ekranına yapıştırıp F5 tuşu ile çalıştırmaya çalıştığımda makrolarımızın isimlerinin sıralandığı veya isim ile oluşturduğumuz küçük ekran çıkıyor. Sorunu nasıl çözebilirim.

 

[Ömer BARAN]

Verdiğim kod bir düğme kullanılarak veya VBA ekranında F5 tuşuna basarak çalıştırılacak bir kod değil.
Örneğin D5, N6'daki değeri (elle veri girişi yapılacak alanlar) değiştirin/silin sonuca bakın.
.