tarih sıralamak

[dadashiko]

merhaba arkadaşlar sizden isteğim ekteki dosyada göreceginiz gibi dogum günleri cizelgemde girdigim isim ve tarihi sıralamak otomaik şekilde

 

[Ömer]

Merhaba,

Sıralama fonksiyonlarıyla ilgili detaylı bilgiye aşağıdaki linkten ulaşabilirsiniz..

Sıralama Fonksiyonu Uygulamaları

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
SonSat = [C65536].End(3).Row
If SonSat < 3 Then Exit Sub
Range("B3:C" & SonSat).Sort Key1:=[C3]
Son:
End Sub

 

[dadashiko]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
SonSat = [C65536].End(3).Row
If SonSat < 3 Then Exit Sub
Range("B3:C" & SonSat).Sort Key1:=[C3]
Son:
End Sub

NECDET BEY EXCEL KOD EKLEMEYİ TAM BİLMİYORUM YARDIMCI OLURMUSUNUZ

 

[Necdet]

Merhaba,

Ekli dosyayı inceleyiniz.

Sayfa1 sekmesine Sağ Klik ve Kod Görüntüleyi seçtiğinizde kodları göreceksiniz.

 

[dadashiko]

Merhaba,

Ekli dosyayı inceleyiniz.

Sayfa1 sekmesine Sağ Klik ve Kod Görüntüleyi seçtiğinizde kodları göreceksiniz.

NECDET BEY KODLARI ORAYA KOPYALADIM NASIL KAYDETCEM

 

[Necdet]

Kopyaladıysanız işlem tamamdır. Ekranın sağ üstteki X den kapatıp excele dönebilirsiniz.

C sütununda bir değişiklik olduğunda otomatik olarak sıralanacaktır. Yalnız tarihi virgüllü yazmayınız.

En kısa tarih girişi şöyle olabilir. Örneğin 01.01.1972 tarihini 1-1-72 olarak girerseniz excel bunu noktalı tarih olarak gösterir.

 

[Necdet]

Tekrar merhaba,

Aşağıdaki linklerini verdiğim Excel Dersanesi bölümünü incelersiniz çok yararlanacağınızdan eminim.

Kod Yazmayı Öğreniyorum

Excelde Makro (Kaydetmek, Düzenlemek (Macro))1

 

[dadashiko]

Necdet Bey Bİr Sorum Daha Olacak Ayni Sutun Ve Satirda Bu Kodlari Kullanabİlİrmİyİm

 

[Necdet]

Ayni Sutun Ve Satirda

Sorunuzu tam olarak anlamadım. Verdiğim örnekte sadece C sütununda değişiklik olduğunda devreye giren makro vardı.

Bunu da

If Intersect(Target, [B][SIZE=4][COLOR=red][C:C[/COLOR][/SIZE][/B]]) Is Nothing Then Exit Sub

kodu sağlıyor.

 

[dadashiko]

Çok TeŞÜkkÜr Ederİm Necdet Bey

 

[dadashiko]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
SonSat = [C65536].End(3).Row
If SonSat < 3 Then Exit Sub
Range("B3:C" & SonSat).Sort Key1:=[C3]
Son:
End Sub

BU KODLARI YAPTIGIMDA TARİHİNLERİ GÜNE GÖRE(01)
SIRALIYOR BEN YILA GÖRE SIRALAMAK İSTİYORUM NEREDEN AYARLAYA BİLİRİM