Sayfa Rengine Gore Siralama

Bircok calismamizda birbirin benzeyen calismalari ayirabilmek icin sayfa renklerini ayni yapariz, en azindan ben bu sekilde yapiyorum. Peki bu sayfalari yanyana tasiyabilmek icin nasil bir dongu kullanarabiliriz?

Renge Gore Siralamadan once

 

Renge Gore Siralama Sonrasi

Ornek resimde de gordugunuz gibi ayni renkte olan sayfalar yanyana geldi. Asagida bunu yapailmeniz icin gerekli kodlari goreceksiniz.bu kodlari Alt + F11 kombinasyonu ile VB editorunu actiktan sonra bir modul ekleyerek calistirabilirsiniz.

VBA Kodlari;

Sub Renge_Gore_Sirala()
    Dim Gecerli_Sayfa As Integer
    Dim Onceki_Sayfa As Integer
'Baslangic sayilarini ayarlayin ve döngüyu baslatin
    For Gecerli_Sayfa = 1 To Sheets.count
    For Onceki_Sayfa = 1 To Gecerli_Sayfa - 1
'Gecerli sayfanin bir onceki ile eslesip eslenmedigini kontrol edin
    If Sheets(Onceki_Sayfa).Tab.ColorIndex = _
    Sheets(Gecerli_Sayfa).Tab.ColorIndex Then
'Eger öyleyse, Gecerli sayfayi Onceki sayfanin yanina tasiyoruz
    Sheets(Onceki_Sayfa).move _
    sooner than:=Sheets(Gecerli_Sayfa)
    finish If
'Geri Dongu ile yeniliyoruz.
    subsequent Onceki_Sayfa
    next Gecerli_Sayfa
finish Sub

Renge Gore Siralama calismasi icin kodlar uzerinde gerekli aciklamalari yaptim, ornek dosyayi da inceleyebilirsiniz, iyi calismalar.

[obtain identification=”4499″]

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 2 =