isme ve bölüme göre sıralama yapmak
Tarih
29/07/2013 15:29
Konu Sahibi
diablo0019
Yorumlar
12
Okunma
4101
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
diablo0019
Üye
Kullanici Avatari
Üye
11
3
22/07/2013
0
05/08/2013,15:54
Çözüldü 
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


Ek Dosyalar
.rar   deneme.rar (Dosya Boyutu: 16,09 KB / İndirme Sayısı: 7)
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
Dün,18:55
Çözüldü 
Sponsor Reklam
Ö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

diablo0019
Üye
Kullanici Avatari
Üye
11
3
22/07/2013
0
05/08/2013,15:54
Çözüldü 
bir örnek ekledim yardım ederseniz sevinirim.
Cevapla

maytas
Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
27/09/2015,02:03
Çözüldü 
Sponsor Reklam
(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.


Ek Dosyalar
.rar   deneme.maytas.rar (Dosya Boyutu: 22,49 KB / İndirme Sayısı: 24)
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.
resim
Cevapla

diablo0019
Üye
Kullanici Avatari
Üye
11
3
22/07/2013
0
05/08/2013,15:54
Çözüldü 
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

maytas
Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
27/09/2015,02:03
Çözüldü 
Sponsor Reklam
(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.
resim
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  İlk Açılışta Uyarı Penceresine Kalibrasyon Cihazlarını Sıralama yoguz 4 92 06/03/2017, 21:57 yoguz
  sütundaki Değere göre veri saydırma hegu 8 197 30/01/2017, 16:25 hegu
  Ödeme durumuna göre Hücre renklendirme (Koşullu Biçimlendirme) omerozel25 8 732 20/08/2016, 18:11 atoz112
  Aylara göre saatlik izin toplama hegu 8 622 13/08/2016, 20:08 hegu
  Belli Kritere Göre Tabloyu Doldurmak SCavusoglu 3 1.444 05/06/2016, 15:58 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status