- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
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
* Birinci dolu satıra (başlıklara)
* E2:Eson satıra
* 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.
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.
Teşekkürler.