İstenen aralık dışındaki sütunları gizlemek (Çoklu seçim)

[adigeturklim]

Merhaba,

Daha önce kullandığım koda göre ilgili hücrede bir ay seçtiğimde karşıma ilgili ayın stünları geliyordu. Fakat bu kısıtlı çalışma imkanı sağlıyor. Ekteki dosyada belirttiğim üzere; seçim alanından birden fazla ay seçimi yaparak seçilen aylara ait stünların karşıma gelmesi şeklinde bir kod mevcutmudur

Sayg.

 

[dEdE]

Sorunuzdan bunu anladım.

 

[adigeturklim]

Sayın dEdE evet ama seçim kısmındaki ayları altalta değil de çoklu liste gibi bir yerden seçtiğim ayları işaretlediğimde işaretlediğim ayların gelmesini istiyorum. Öteki türlü 12 ayı alt alta koymak gerekecek gibi. Yani bu veri doğrlama yönteminden seçim yapılarak olmayabilir bilemiyorum. Belki ayların yanına işaretlenecek kutular olursa ona göre ayları çağırabilir.

 

[dEdE]

Merhaba,
Çoklu seçimde aylar,
- Mart, Nisan, Mayıs... gibi sıralı mı olacak? Bunun için veri doğrulamalı 2 hücre yeterli.
- Mart, Mayıs, Eylül gibi düzensiz mı olacak? Bunun için ise farklı çözümler üretilebilir.
Yanıtınıza göre kod yazmak lazım.

 

[adigeturklim]

hangi ayı çağırsak o ayların gelmesi iyi olur sayın dEdE. Örnek: Ocak, Mart, Mayıs gibi.

Ayları sıralı olarak çağırmak istesek bile veri doğrulamalı 2 hücrede sadece iki ayı görebiliyorum 3 veya fazlasını göremiyorum malesef.

 

[adigeturklim]

Ya da şöyle olabilir; Başlangıç ve Bitiş ayları seçilebilir. Örnek: Başlangıç ayı : Ocak Bitiş Ayı: Temmuz
Bu aralık seçildiğinde Ocak tan Temmuz a kadar olan ayları getirir. Bu şekilde olursa yine çözüm olabilir. Teşkkürler

 

[dEdE]

İstediğiniz ayı/ayları seçebilirsiniz.

 

[adigeturklim]

Sayın dEdE elinize sağlık harika olmuş. Yalnız küçü bir sorum var;
1- Bunu asıl dosyama nasıl taşırım
2- Asıl dosyamda ayların sonunda yıl toplamı var. Yıl toplamları da aynı başlıkları içeriyor ve kısıtlamaya dahil etmememiz lazım.

 

[dEdE]

Merhaba,
Hayali cevap yazmayayım. Siz konuyu biliyorsunuz ama ben anlayamıyorum. " ...Yıl toplamları da aynı başlıkları içeriyor ..." ifadesini nasıl yorumlayıp, kısıtlamaya dahil etmeyeceğimi bilmiyorum. Lütfen örnek dosya paylaşınız.
Eğer asıl dosyanızın yapısını birebir yansıtan örnek dosya paylaşsaydınız, bu sorulara gerek kalmayacak, kodu kopyalayıp asıl dosyanıza yapıştırmanız yeterli olacaktı.

 

[adigeturklim]

Merhabalar, tabi ki haklısınız. Dosyayı ekledim. Gizlemeyi "CI" stünuna kadar yapmamız gerkecek sayın dEdE. Toplam yazan "CJ;CO" stünları görünecek şekilde.
sayg.

 

[dEdE]

Merhaba,
Kodun For i = 4 To 93 satırındaki 93 sayısını 87 olarak değiştirtip dener misiniz?

 

[adigeturklim]

Sayın dEdE bu şekilde oldu teşekkür ederim.
Kodu asıl dosyayakopyalarım fakat User Form ,checkbox vs nasıl taşıyabilirm onu bilemiyorum

 

[dEdE]

UserForm için; UserFormun üzerine sağ tıklayıp Export File... seçeneğine tıklayınız. Açılan pencereden kayıt yerini seçiniz. Kaydet tuşuna basınız. Asıl dosyanızda VBA editörüne geçip, VBAProject penceresinde (sol üst) sağ tıklayarak İmport File... seçeneğine tıklayıp kaydettiğiniz yeri seçip yükleyiniz.
UserFormu açan kodu Kopyala/Yapıştır yöntemiyle taşıyabilirsiniz. Kodun sayfanın kod kısmında olduğuna dikkat ediniz.

 

[adigeturklim]

Sayın dEdE hepsini yaptım sadece sayfaya koyduğunuz butonu asıl dosyada yapamadım. Form denetimlerinden buton koydum fakat butonu aktif hale getiremedim.

 

[dEdE]

Merhaba,
Ben ActiveX denetimlerinden buton eklemiştim. Bunu yapamazsanız;
* VBA editöründe İnsert/Module seçelim.
* Açılan sayfaya aşağıdaki kodu yapıştıralım.
* Form Denetiminden eklediğiniz butonun üzerine sağ tıklayıp/Makro Ata seçerek açılan pencereden aşağıdaki kodu seçelim.
* İşlem tamam.

Sub Form_Ac()
    UserForm1.Show 0
End Sub

 

[adigeturklim]

Merhaba sayın dEdE, çok teşekkür ederim yardımlarınız için. Bu şekilde oldu.

amiyane tabirle söyliyeyim ; Adamsınız