Birleştirilmemiş hücrelerin sıralanması

[hakki83]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhabalar iyi günler,

Ekte Sayın Ömer Baran’ın “Birleştirilmiş Hücrelerin Sıralaması” adında çok güzel bir dosyası vardır.

Aynı şekilde bildiğimiz standart birleştirilmemiş hücreleri sıralamak için de kodları oluşturabilir miyiz? Oldukça kullanışlı olacaktır.

(Birleştirilmiş hücrelerde birleştirilmiş için yapılan kodları, Birleştirilmemiş hücrelerde ise birleştirilmemiş için yapılan kodları kullanmak istiyorum)

Teşekkürler.

 

Satırı seçtiğimde mesaj çıkmasın

Word belgesinde başlıkları kontrol etmek

[Ömer BARAN]

Mevcut kodu aşağıdaki gibi değiştirirseniz (alanda birleştirilmiş hücre olmadığı varsayımıyla)
C3:J13 aralığı, C sütununa göre istenilen biçimde sıralanabilir.
Örneğin sıralama D sütununa göre yapılmak istenirse [C2] yerine [D2] yazılması yeterlidir.

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

.

 

[hakki83]

Mevcut kodu aşağıdaki gibi değiştirirseniz (alanda birleştirilmiş hücre olmadığı varsayımıyla)
C3:J13 aralığı, C sütununa göre istenilen biçimde sıralanabilir.
Örneğin sıralama D sütununa göre yapılmak istenirse [C2] yerine [D2] yazılması yeterlidir.

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

.

Çok teşekkür ediyorum,

A sütununa göre yapmaya çalışacağım.

Saygılar.

 

[hakki83]

Sayın Ömer Baran bir şeyde tereddüt ettim ve sormak istedim.

Şu satırın durması mı gerekiyor, durmaması mı?

Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual


Birleştirilmemiş standart hücrelerde verdiğiniz kodları yerine yerlerine aktarırken

If son = 2 Then Exit Sub
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
If [A1] = "ARTAN" Then yon = 1

Kalın olarak belirttiğim iki satır arasında yukarıdaki kodların arasında, bahsetmiş olduğum satırı gördüm.

Acaba silecek miyiz yoksa kalacak mı diye emin olamadım, sormak en doğrusu dedim.

 

[hakki83]

Bir şey daha sormam gerekiyor Sayın Ömer Baran

Sanıyorum kodların özelliğinden dolayı, hücreleri sıfırlamak (biçimleri temizle) istediğimde, hücrelerde kendiliğinden kenarlıklar oluşuyor.

Bunları kodlardan tamamen kaldırabilmek için hangi satırları silmeliyiz?

Hem birleştirilmiş hem de birleştirilmemiş dosyalardan bu kenarlıkları tamamen kaldıracağım

 

[Ömer BARAN]

Bahsettiğiniz
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
satırı, işlem yapılmakta iken ekranda hareket görülmemesi ve
işlem süresince varsa mevcut formül sonuçlarının tekrar hesaplanmaya çalışılmasını geçici olarak durdurmak için.
Bu satır hiç olmadan da işlem gerçekleşir.
Ancak bu satır varsa, kodun en sonunda bu işlemin tersi olan aşağıdaki satır olmalı ki,
ekran tazeleme aktif hale, hesaplama şekli de Otomatik hale geçirilsin.
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic

Eklediğim belgede veya kodlarda biçimlendirmeye yönelik hiçbir işlem yok, koşullu biçimlendirme varsa hatırlamıyorum.

.

 

[hakki83]

Sayın Ömer Baran bahsettiğim kendiliğinden oluşan kenarlıkları gösteren dosyayı ekledim.

Kodlarda belirtilen A:J aralığında oluşuyor nedense

 

[Ömer BARAN]

Kodun o kısmını fark etmemiştim.

Aşağıda kırmızı renklendirdiğim kısmı silerseniz kenarlık oluşturulmaz.

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

.

 

[hakki83]

Kodun o kısmını fark etmemiştim.

Aşağıda kırmızı renklendirdiğim kısmı silerseniz kenarlık oluşturulmaz.

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

.

Sayın Ömer Baran
İlginiz için teşekkür ederim
Sorunum sayenizde çözülmüştür
Arzu ederseniz konuyu kilitleyebiliriz.