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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

hakki83

Yeni Üye
Kullanıcı

Reputation:

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.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Birleştirilmiş Hücrelerin Sıralaması.xlsm
    18.4 KB · Görüntüleme: 4
Çözüm
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...

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

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.

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm

hakki83

Yeni Üye
Kullanıcı

Reputation:

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.

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
.
Çok teşekkür ediyorum,

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

Saygılar.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

hakki83

Yeni Üye
Kullanıcı

Reputation:

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.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

hakki83

Yeni Üye
Kullanıcı

Reputation:

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

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.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

hakki83

Yeni Üye
Kullanıcı

Reputation:

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Kenarlık Oluşuyor.xls
    26.5 KB · Görüntüleme: 3

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

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

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

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

hakki83

Yeni Üye
Kullanıcı

Reputation:

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

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

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
.
Sayın Ömer Baran
İlginiz için teşekkür ederim
Sorunum sayenizde çözülmüştür
Arzu ederseniz konuyu kilitleyebiliriz.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst