Skip to main content

AccessTr.neT


isme ve bölüme göre sıralama yapmak

isme ve bölüme göre sıralama yapmak

Çözüldü #1
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
.rar deneme.rar (Dosya Boyutu: 16,09 KB | İndirme Sayısı: 7)
Son Düzenleme: 30/07/2013, 11:06, Düzenleyen: diablo0019.
Cevapla
Çözüldü #2
Örneğinizi eklerseniz yardım alabilirsiniz.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
Çözüldü #3
bir örnek ekledim yardım ederseniz sevinirim.
Cevapla
Çözüldü #4
(30/07/2013 11:23)diablo0019 Adlı Kullanıcıdan Alıntı: bir örnek ekledim yardım ederseniz sevinirim.

Bu tür basit işlemleri Makro Kaydet yoluyla da yapabilirsiniz.
.rar deneme.maytas.rar (Dosya Boyutu: 22,49 KB | İndirme Sayısı: 25)
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
Çözüldü #5
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
Cevapla
Çözüldü #6
(30/07/2013 12:39)diablo0019 Adlı Kullanıcıdan Alıntı: 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.
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da