Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
29/07/2013 15:29
Konu Sahibi
diablo0019
Yorumlar
12
Okunma
4821
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,20:34
Çözüldü 
Ö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
16/10/2017,12:01
Çözüldü 
(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
16/10/2017,12:01
Çözüldü 
(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
Çözüldü Hücredeki Değere Göre Tutarı Eksi Değer Yapmak? derzulya 4 357 29/05/2017, 08:18 derzulya
Çözüldü İlk Açılışta Uyarı Penceresine Kalibrasyon Cihazlarını Sıralama yoguz 4 303 06/03/2017, 21:57 yoguz
Çözüldü sütundaki Değere göre veri saydırma hegu 8 508 30/01/2017, 16:25 hegu
Çözüldü Ödeme durumuna göre Hücre renklendirme (Koşullu Biçimlendirme) omerozel25 8 1.160 20/08/2016, 18:11 atoz112
Çözüldü Aylara göre saatlik izin toplama hegu 8 999 13/08/2016, 20:08 hegu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.