Tarihleri Küçükten Büyüğe Sıralama

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 9 Ağu 2019

• #2

Merhabalar;
Sıralama makro kodları şu şekilde değiştirip dener misiniz?

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

 

Oyla 0 Olumsuz oyla

YasarPiskin

VIP Üye

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

2,059

• 9 Ağu 2019

• #3

Sayın Ahmet Rasim ilginize teşekkür ederim. Verdiğiniz kodu aşağıdaki gibi yapmaya çalıştım fakat kaydetme hususunda başaralı olamadım. Bu hususta yardımlarınızı rica ediyorum.

Sub SIRALA()

Sheets("ŞABLON").Sort.SortFields.Clear
Sheets("ŞABLON").Sort.SortFields.Add Key:=Range("B11")
With Sheets("ŞABLON").Sort
.SetRange Range("B11:K60")
.Orientation = xlTopToBottom
.Apply
End With
End Sub

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 10 Ağu 2019

• #4

Merhaba.
-- Önce ŞABLON ve varsa MÜŞTERİ CARİ SAYFALARInın E11 hücrelerindeki formülleri aşağıdakiyle değiştirip aşağı doğru kopyalayın.

=EĞER(YADA(B11="";BOŞLUKSAY(C11 : D11)=2);"";TOPLA($D$11 : D11)-TOPLA($C$11 : C11))

Genişletmek için tıklayın ...

-- Belgenizde TihsWorkbook (BuÇalışmaKitabı) bölümündekiler dışındaki sayfa kodlarının tümünü silin.
-- Ardından da, ThisWorkbook (BuÇalışmaKitabı) bölümünde yer alan;
Private Sub Workbook_Activate ve Private Sub Workbook_SheetBeforeDoubleClick kod bloklarının altına aşağıdaki kodu yapıştırın.
(Kod'da C7 hücresinde değişikikle tetiklenen kısımla ilgili bir değişiklik önermedim)

Kod, B sütununda tarih yazılmışsa ve C veya D sütununda sayı yazılırsa, istenilen sıralama gerçekleşir.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(24 satır)

 

Oyla 0 Olumsuz oyla

YasarPiskin

VIP Üye

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

2,059

• 10 Ağu 2019

• #5

Ömer bey ilginize teşekkür ederim. Her şey çok güzel "Kod, B sütununda tarih yazılmışsa ve C veya D sütununda sayı yazılırsa, istenilen sıralama gerçekleşir" şartını satır sonu olan J hücresi doldurulup enter yapınca olacak şekilde revize edebilir miyiz lütfen.

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 10 Ağu 2019

• #6

Kod'un ilgili satırlarını aşağıdaki şekilde değiştirirseniz;
TARİH ve J sütunu ile B veya C dolu iken sıralama gerçekleşir.
NOT: Yeşil satırların arasındaki bölüm değişti.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(8 satır)

 

Oyla 0 Olumsuz oyla

YasarPiskin

VIP Üye

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

2,059

• 10 Ağu 2019

• #7

Ömer Bey ilginize teşekkür ederim. İyi Bayramlar.

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 10 Ağu 2019

• #8

4 ve 6 numaralı cevaplardaki kodlarda isteğinize göre değişiklik yaparak cevaplarımı güncelledim.
Sayfayı yenileyerek önceki cevapları tekrar kontrol ediniz.

 

Oyla 0 Olumsuz oyla

YasarPiskin

VIP Üye

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

2,059

• 10 Ağu 2019

• #9

Teşekkür ederim.

 

Oyla 0 Olumsuz oyla

gicimi

Kullanıcı

Katılım

26 Haz 2018

Mesajlar

173

• 10 Ağu 2019

• #10

Makro kaydet yöntemi ile bu tür kodları elde edebilirsiniz.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(16 satır)

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 10 Ağu 2019

• #11

Sayın @gicimi , elbette makro kaydet yöntemi faydalıdır.
Elde ettiğiniz kod blokunun yaptığı işlemi, verdiğim koddaki aşağıdaki satır gerçekleştiriyor.
Sadece s değişkenin yerine birkaç satır üstündeki karşılığının yazılması yeterlidir.
Aşağıdaki kod satırının nemen üstündeki IF .... kısmı ise işlemin zamanlaması ile ilgilidir.
Ayrıca verdiğim kod ThisWorbook bölümüne uygulanarak, tüm CARİ sayfalarında işlem yapmaktadır.

Range("B11:J" & s).Sort [B10], 1

Genişletmek için tıklayın ...

 

Oyla 0 Olumsuz oyla