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
Örneğinizi eklerseniz yardım alabilirsiniz.
Saygılar...
bir örnek ekledim yardım ederseniz sevinirim.
(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.
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
(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.