AccessTr.neT
isme ve bölüme göre sıralama yapmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: isme ve bölüme göre sıralama yapmak (/konu-isme-ve-bolume-gore-siralama-yapmak.html)

Sayfalar: 1 2 3


isme ve bölüme göre sıralama yapmak - diablo0019 - 29/07/2013

herekese merhaba;
excel de adı soyadı/unvanı/görevi/bölümü/ kısımlarından oluşan bir sayfam mevcut. bu sayfamda kişileri bir butonla isme göre sıralamak bir başka bir butonda ise bölümlerine sıralamak istiyorum. bunu yapacak modüller oluşturmak istiyorum. bu konuda yardımlarınızı bekliyorum


Cvp: isme ve bölüme göre sıralama yapmak - benremix - 29/07/2013

Örneğinizi eklerseniz yardım alabilirsiniz.

Saygılar...


Cvp: isme ve bölüme göre sıralama yapmak - diablo0019 - 30/07/2013

bir örnek ekledim yardım ederseniz sevinirim.


Cvp: isme ve bölüme göre sıralama yapmak - maytas - 30/07/2013

(30/07/2013, 11:23)diablo0019 yazdı: bir örnek ekledim yardım ederseniz sevinirim.

Bu tür basit işlemleri Makro Kaydet yoluyla da yapabilirsiniz.


Cvp: isme ve bölüme göre sıralama yapmak - diablo0019 - 30/07/2013

ilk önce cevabınıza teşekkürler.
ben bir örnekte görmüştüm şöyle yapılmış. aşağıdaki şekilde yapılma imkanım nedir? sizin verdiğiniz ile aşağıdaki kod arasında bir fark var mıdır? umarım açıklayıcı olmuşumdur.
kod aşağıda:
On Error Resume Next 'sıralama giriş
Worksheets("KAYIT").Range("B2:R502").Sort _
Key1:=Worksheets("KAYIT").Range("B2"), Order1:=xlAscending, Header:=xlGuess 'sıralama bitiş


Sheets("KAYIT").Range("A2:A502").SpecialCells(xlCellTypeConstants, 23).ClearContents
For i = 2 To Sheets("KAYIT").Range("B65530").End(3).Row 'sıra numarası verme başlangıç
If Sheets("KAYIT").Range("B" & i).Value <> "" Then
Sheets("KAYIT").Range("A" & i) = i - 1 'Sıra numarasını 2. satırda 1 den başlatıyoruz
End If
Next i 'sıra numarası verme bitiş
end sub


Cvp: isme ve bölüme göre sıralama yapmak - maytas - 30/07/2013

(30/07/2013, 12:39)diablo0019 yazdı: ilk önce cevabınıza teşekkürler.
ben bir örnekte görmüştüm şöyle yapılmış. aşağıdaki şekilde yapılma imkanım nedir? sizin verdiğiniz ile aşağıdaki kod arasında bir fark var mıdır? umarım açıklayıcı olmuşumdur.
kod aşağıda:
On Error Resume Next 'sıralama giriş
Worksheets("KAYIT").Range("B2:R502").Sort _
Key1:=Worksheets("KAYIT").Range("B2"), Order1:=xlAscending, Header:=xlGuess 'sıralama bitiş


Sheets("KAYIT").Range("A2:A502").SpecialCells(xlCellTypeConstants, 23).ClearContents
For i = 2 To Sheets("KAYIT").Range("B65530").End(3).Row 'sıra numarası verme başlangıç
If Sheets("KAYIT").Range("B" & i).Value <> "" Then
Sheets("KAYIT").Range("A" & i) = i - 1 'Sıra numarasını 2. satırda 1 den başlatıyoruz
End If
Next i 'sıra numarası verme bitiş
end sub

Sayın diablo0019, düznlediğim örnek işinizi görmüyor mu ki ince teferuatlara girmişsiniz.

Verdiğiniz üstteki örnek benim verdiğim örnek gibi sıralama yapar. Yalnız orada aralık A2:R502 olarak sınırlandırılmış. Kayıt sayısı bu aralığın dışına çıkarsa sıralama doğru çalışmaz.
Aşağıdaki kodlarınız ise sıra numarası veriyor.
Siz rahatlıkla benim örneği kullanabilirsiniz.