Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Çözümlenmiş Sorular

Kullanıcılarımızın sorularını ve sunduğumuz çözümleri inceleyin.

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

  • Web sitemizi "REKLAMSIZ" olarak ziyaret etmek ister misiniz?
    Gerek sitemize destek, gerekse de reklam görmeden sitemizde gezinmek isterseniz, HESAP YÜKSELTME sayfasından SADECE 15-TL'ye 1 yıl boyunca ÜCRETLİ ÜYELİK almanız yeterli olacaktır.
    Detaylı bilgilendirme için lütfen buraya tıklayınız!

    REKLAMSIZ FORUM KULLANMAYI TERCİH EDECEK ÜYELERİMİZE, https://www.exceldosyalari.com İSİMLİ SİTEMİZDEN 3 AYLIK ÜYELİK PAKETİ HEDİYE EDİLECEKTİR.

Makrolar Çözüldü Makro yardım - Düzenleme, sıralama, biçimlendirme

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

PriveT

İlyas
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
26 Nis 2019
Mesajlar
345
Yaş
42
Web Sitesi
www.candiyet.net
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Makro üstadlarım merhaba,
Sizden mümkünse bir makro isteğim olacak. Boş vaktinizde bakabilirseniz sevinirim.

Makro üniversal olacak. Bir kaç çeşit farklı dosya var. Sütun ve satır sayıları farklı. Fakat hepsini makronun hazırlanabilmesi için işe yarayacağını düşündüğüm ortak yanları var. Bu sebeple daha iyi anlaşılabilmesi için bu dosyalardan 2'sinin orjinal hallerini ve düzenlenmiş hallerini ekledim.
Veri-1 ve Veri-2 dosyaları tabloların işlenmemiş hali.
Örnek-1 ve Örnek-2 bu dosyaların düzenlenmiş hali.

Mümkünse sizden rica ettiğim makronun görevi;

* İlk 4 sütun gizlenecek.

* F sütunundan başlığı "01/" ile başlayan ilk sütuna kadar tüm sütunlar silinecek. (F sütunu silinecek, "01/" ile başlayan sütun ve sonrası kalacak)

* Geri kalan sütunlardan başlığı "-ORT" ile biten sütunlar kesilip F sütunu itibariyle sıralanacak. (Bazı dosyalarda 1 tane bazılarında 3-5 tane var)
Ve sütunlar kendi gurubunda “01/xx”, “02/xx” gibi sırayla gidecek.
Örnek: Sütunlar sırayla “01/EA”, “02/EA”, “01/SAY”, “02/SAY” …. gibi.
Bu sayı “02” ‘de bitmiyor. 10 küsürlere kadar çıkacak zamanla.
Bu seçenek biraz karışık olabilir. Zor ise yapılmayabilir.

* "-ORT" ile biten sütunların soluna 1'er boş sütun eklenecek. Bu sütunların başlığı "SIRALAMA" olacak.
(Mümkünse her sıralama adını sağındaki hücreden alırsa “EA-ORT” alt+enter “SIRALAMA” gibi ve satır yüksekliği ayarlanırsa harika olur)
Ve bu sütundaki hücrelerde; sağındaki hücrenin o sütunda sıralamada kaçıncı olduğu yazacak.

* G2 hücresinden son sütun son satıra kadar hücreler ("SIRALAMA" başlığı altındaki sütunlar hariç) 0,00 sayı formatıyla biçimlendirilecek.
"SIRALAMA" sütunu Genel sayı formatında kalacak ve hücreye ortalanarak hizalanacak.

* “SIRALAMA” sütunları 2. Satırdan itibaren .Interior.Color = 11389944 numralı renk koduyla renklendirilecek.

* Birinci dolu satıra (başlıklara) Cells(1, sut).Interior.Color = 14395790: Cells(1, sut).Font.Bold = True: Cells(1, sut).HorizontalAlignment = xlCenter kodu uygulanacak.

* E2:Eson satıra Range("E2:E" & sonsat).Interior.Color = 15917529 kodu uygulanacak. Ve mümkünse “-ORT” ile biten sütunlara 2. Satırdan son dolu satıra da bu renklendirme yapılacak.

* Tüm tabloyaya kenarlıklar uygulanacak.

* Soldan “01/” ile başlayan ilk sütunun 2. Satırına “bölmeleri dondur” uygulanacak.

Umarım açıklayabilmişimdir.
Şimdiden teşekkürler.
 

Ekli dosyalar

cakarem

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
724
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Ekli dosyayı inceleyiniz.
 

Ekli dosyalar

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
855
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

Merhaba.
Sayın @cakarem 'in çözümünü incelemedim, sorun çözülmüşse benim cevabım da alternatif olsun.
C#:
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.
 

PriveT

İlyas
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
26 Nis 2019
Mesajlar
345
Yaş
42
Web Sitesi
www.candiyet.net
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Ekli dosyayı inceleyiniz.
Sayın @cakarem Bey merhaba,
Öncelikle emekleriniz için teşekkür ederim.

İncelediğim kadarıyla;
- SIRALAMA sütunlarından sadece EA-ORT istediğim gibi GENEL olarak biçimlendirilmiş. Diğerleri 0,00 olarak biçimlendirilmiş.
- Sadece SIRALAMA sütunu hücrede ortaya hizalanması gerekiyordu, diğerleri de ortaya hizalanıyor.
- "01/" ile başlayan ilk sütunun 2. satırına BÖLMELERİ DONDUR uygulamıyor.

Lütfen inceleme sonuçlarımı talimat veya emirvaki olarak algılamayınız.

Bir de Makroyu bir çok dosyada kullanmak için PERSONAL.XLSB içine attığımda çalışmasını istiyorum. Bunun için oluşturduğunuz 3 makroyu da mı buraya taşımam lazım acaba?
 
Son düzenleme:

PriveT

İlyas
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
26 Nis 2019
Mesajlar
345
Yaş
42
Web Sitesi
www.candiyet.net
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Merhaba.
Sayın @cakarem 'in çözümünü incelemedim, sorun çözülmüşse benim cevabım da alternatif olsun.
Sayın @Ömer BARAN Bey merhaba,
Öncelikle emekleriniz için teşekkürler.

İncelediğim kadarıyla;
- BÖLMELERİ DONDUR AD-SOYAD'tan 1 sonraki sütuna uygulanmış,. "01/" ile başlayan ilk sütunun 2. satırına uygulayabilir misiniz?
- SIRALAMA sütunundaki başlıklar sütuna sığmıyor. İnceleyip anladığım kadarıyla bununla ilgili kod eklemişsiniz ama SIRALAMA'nin son harfi nedense üçüncü satıra kayıyor. :unsure:

Lütfen inceleme sonuçlarımı talimat veya emirvaki olarak algılamayınız.

Makroyu PERSONAL.XLSB içerisine kopyaladım ve sorunsuz bütün dosyalarımda çalışıyor.

Tekrardan teşekkürler.
 
Son düzenleme:

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
855
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

Önceki kod cevabımda düzenleme yaptım. Sayfayı yenileyerek kontrol ediniz.
Ayrıca eşit RANK değerlerini (örneğin veri1.xlsx için EA-ORT bilgisi 0 olanların RANK değeri)
engellemek için; ikincil kriter olarak listede daha üstte olma durumunu kullanmak isterseniz, koddaki ilgili satırı aşağıdakiyle değiştirin.
C#:
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.
 

PriveT

İlyas
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
26 Nis 2019
Mesajlar
345
Yaş
42
Web Sitesi
www.candiyet.net
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Önceki kod cevabımda düzenleme yaptım. Sayfayı yenileyerek kontrol ediniz.
Ayrıca eşit RANK değerlerini (örneğin veri1.xlsx için EA-ORT bilgisi 0 olanların RANK değeri)
engellemek için; ikincil kriter olarak listede daha üstte olma durumunu kullanmak isterseniz, koddaki ilgili satırı aşağıdakiyle değiştirin.
C#:
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.
Çoook teşekkürler.
Ellerinize, emeklerinize sağlık.
 

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
855
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

Tekrar merhaba.
Yanlış anlamıyorsam; Sayın @cakarem 'in eklediği belgede,
sütunların, başlıklarına göre alfabetik sıralanması için oluşturulmuş bir KTF mevcut.
Yine yanlış düşünmüyorsam; Sütunları başlıklarına göre alfabetik sıralama için
KTF kullanmak yerine, aşağıdaki gibi bir yapı da kullanılabilir.
Gizlenmiş içerik
Bu içeriği görebilmek için bu yazıya tepki vermeniz gerekir.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst