Çözüldü Birleştirilmemiş hücrelerin sıralanması

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.


.

Ömer BARAN' Alıntı:

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.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

.

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

Çok teşekkür ediyorum,

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

Saygılar.

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.

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

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.

.

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

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

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


.

Ömer BARAN' Alıntı:

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

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

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

.

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

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