Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
İlk yolladığım belgedeki sıralamayı nasıl sıfırdan yapacağım siz önceden bazı işlemler yapmışsınız çözemedim. kısacası ben bir kaç belgeye nasıl yapabilirim
Sayfa Kodundaki Macro kodlarından,
Private Sub Worksheet_Activate()
kısmında yer alan kodları incelerseniz, yapılan işleri anlayabilirsiniz.
Tabii ki; bunun için Kod bilgisi de gerekir.
Özetle;
Sayfa Aktif olduğunda çalışan bir düzenleme.Herhangibir butona gerek yok.
Verilerinizin bulunduğu sayfada değişiklikler yapıp HİZ. İŞ. KABUL TEKLİF BELGESİ sayfasına geçtiğinizde kodlar aktif olur ve sonucunu sayfaya aktarır.
Kodda yer alan satırlardan örnek vermek gerekirse;
Verilerin alınacağı sayfalar ws1 ve ws2 diye yazılacağı sayfa ise ws3 diye tanımlandı.
Verileri yazılacağı hücrelere ilgili sayfalardan (SABİT BİLGİ GİRİŞİ ve AG) bilgiler getirildi.
Örnek:
ws3.Range("D6") = ws1.Range("B9")
Bu kod: HİZ. İŞ. KABUL TEKLİF BELGESİ sayfasının D6 hücresine SABİT BİLGİ GİRİŞİ sayfasındaki B9 hücresinin değerini alır.
Bunun gibi bütün diğer hücreler de bu şekilde tanımlandı.
Koyu(Bold) yazan kısımları ise;
ws3.Range("A13").Characters(ikinci, Len(ilksatır2)).Font.Bold = True
satırındaki örnekte görebilirsiniz.
Bu satırda HİZ. İŞ. KABUL TEKLİF BELGESİ sayfasının A13 hücresindeki,
"ikinci" diye tanımlanan hücresinden başlayıp "ilksatır2" diye tanımlanan değerin uzunluğu kadar KOYU(Bold) yapması yazdırıldı.
Bu satırda yer alan "ikinci" ve "ilksatır2" değerleri de kodların üstünde önceden tanımlanmıştı.
Tabii ki, bu düzenleme başka şekillerde de yapılabilir, benim yaptığım işe yarıyorsa başka bir çalışma sayfasınızda bu yazılım şeklini kullanabilirsiniz.
Kodlama bilgisi için Forumumuzu takip edin, birçok değerli uzman arkadaşımızın çok önemli ve değerli çözümlerini burada bulabilirsiniz.
İyi çalışmalar...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.