Çözüldü Tarihleri Küçükten Büyüğe Sıralama

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 9 Ağu 2019

• #2

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

VBA:

You must log in to view content
(7 satır)

 

Oyla 0 Olumsuz oyla

Y

YasarPiskin

Yıllık Forum Üyesi

• 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

Forum Kurucusu

Yönetici

• 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:

You must log in to view content
(24 satır)

 

Oyla 0 Olumsuz oyla

Y

YasarPiskin

Yıllık Forum Üyesi

• 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

Forum Kurucusu

Yönetici

• 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:

You must log in to view content
(8 satır)

 

Oyla 0 Olumsuz oyla

Y

YasarPiskin

Yıllık Forum Üyesi

• 10 Ağu 2019

• #7

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

 

Oyla 0 Olumsuz oyla

Ö

Ömer BARAN

Forum Kurucusu

Yönetici

• 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

Y

YasarPiskin

Yıllık Forum Üyesi

• 10 Ağu 2019

• #9

Teşekkür ederim.

 

Oyla 0 Olumsuz oyla

G

gicimi

Normal Üye

• 10 Ağu 2019

• #10

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

VBA:

You must log in to view content
(16 satır)

 

Oyla 0 Olumsuz oyla

Ö

Ömer BARAN

Forum Kurucusu

Yönetici

• 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