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) |
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. 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. |