Kolonları gizleme

[yaslan]

Merhaba Arkadaşlar,

Bir tabloda sadece görmek istedigim bilgilere ait kolonlar görünsün ve digerleri gizlensin istiyorum.

Detayları ekteki dosyada açıkladım.

Yardımlarınız için şimdiden teşekkürler

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Gizle butonuna bastığınızda gizliyor.
Göster butonuna bastığınızda gösteriyor.
Dosyayı güncelledim.
Dosyada Değişiklik yaptım.
Dosya güncellendi.Buton'a makro atandı.

 

[yaslan]

Sayın Sezar,
Yardımınız için çok teşekkürler
ancak;
Aşagıda da belirttigim gibi gerektiginde sadece Mayıs veya sadece Nisan Mayıs gibi görmeliyim sizin yaptıgınız örnekte içerisinde data olanlar kalıyır.

Ama elinize saglık çok güzel olmuş.
--------------------------------------------------------------------------
Seçtigim ay kadar bilgi görünsün, örnegin sağ taraftaki tabloda Mayıs ayına kadar bilgi girişi var ve Haziran dahil sonraki aylar data olmadıgı için görünmesin.
Ancak en son data olan Mayıs bilgileri incelendikten sonra geçmiş ayalara ait bilgiler için nekadar geriye gidecegimi ok ile gösterdigim yerden seçerek yapılabilirmi.
Bu örnekte 3 seçili durumda ve sarı renkte olan kolonlar hide olmalı, sadece seçildiginde unhide olmalı

 

[N.Ziya Hiçdurmaz]

Sayın sezarın kodunda küçük bir revize yaptım bir deneyiniz.
Sub sutun_gizle()
Dim sut As Byte
For Each renk In Range("c3:al3")
If renk = 0 Then
renk.Interior.ColorIndex = 5
End If
Next
For sut = 3 To 38
If Cells(3, sut).Interior.ColorIndex = 5 Then
Columns(sut).Hidden = True
End If
Next sut
End Sub

 

[emraharici]

Formul

Arkadaslar Eger Yardimci Olursaniz
Cok Sevinirim
Ama
Tesekkurler

 

[emraharici]

Arakdaslar Eger Yardimci Olursaniz
Cok Sevinirim
Ama
Tesekkurler

 

[Orion1]

Sayın,yaslan
dosyayı güncelledim.
Bir denermisiniz?
Önceki mesajımdan indirebilirsiniz

 

[N.Ziya Hiçdurmaz]

yanıt

Tarihe göre aktar.
Sub aktar()
For i = 2 To Sheets.Count
For Each bak In Range("a2:a50")
If Sheets(i).[a1] = bak Then
bak.EntireRow.Copy
say = WorksheetFunction.CountA(Sheets(i).[a1:a65000])
Sheets(i).Range("a" & say + 1).PasteSpecial
End If
Next
Next
Application.CutCopyMode = False
End Sub

 

[Orion1]

Sayın yaslan ;
Kodlarda ,dağa doğrusu formüllerde küçük bir değişkilik yaptım.
Bu şekli ile kullanmanız dağa doğru olacaktır.
Dosyaya önceki mesajımdan indirebilirsiniz.

 

[yaslan]

Sayın Sezar,

Yardımlarınız için çok teşekkür ederim, gerçekten çok güzel olmuş. Tam olarak işimi çözüyor.
Sadece küçük bir istek olmazsa da olur;

Seçtigim ayları görüntüleyebilmek için önce göster sonra gizle butonlarına basmak zorundayız. Bun işlem istenilen rakam girildikten sonra gizle butonuna basıldıgında otomatik yapabilirmi ?
Vaktinizi almak istemem sadece bir soru olarak kabul edebilirsiniz.

Tekrar herşey için teşekkürler.

 

[Orion1]

Sayın Sezar,

Yardımlarınız için çok teşekkür ederim, gerçekten çok güzel olmuş. Tam olarak işimi çözüyor.
Sadece küçük bir istek olmazsa da olur;

Seçtigim ayları görüntüleyebilmek için önce göster sonra gizle butonlarına basmak zorundayız. Bun işlem istenilen rakam girildikten sonra gizle butonuna basıldıgında otomatik yapabilirmi ?
Vaktinizi almak istemem sadece bir soru olarak kabul edebilirsiniz.

Tekrar herşey için teşekkürler.

Dosyayı istediğiniz şekilde güncelledim.
Önceki mesajımdan indirebilirsiniz.

 

[yaslan]

Sayın Sezar,
Kusursuz ve kullanışlı bir çalışma olmuş.
Çok teşekkür ederim elinize sağlık.
Çalışmanızı paylaştıgım kişiler çok begendi ve işlerimizi büyük ölçüde kolaylaştırdı.
Ancak birkaç son istek daha var, eger vakit ayırıp yardımcı olabilirseniz uzun yıllar kullanılacak bir dosyayı yapmış olacaksınız. Eger vaktiniz yok ise canınız sağolsun.
Tekrar teşekkürler.

 

[Orion1]

Merhaba.
Eğer yardımcı olabildiysem ne mutlu bana.
Elimden geldiği kadarı ile yine yardımcı olurum.Ben olamazsamda forumdaki diğer arkadaşlar ve üstadlar yardımcı olacaklardır.Siz lütfen sorunuzu sorunuz.

 

[yaslan]

Sayın Sezar,
Yardımlarınız gerçekten işlerimizin kalitesini büyük ölçüde yükseltir nitelikte.
Sizden (umarım) son istegim olan dosyayı gönderiyorum. Detay bilgiler içerisinde var.

Şimdiden yardımlarınız için ben ve çalışma arkadaşım adına teşekkür ederim.

 

[Orion1]

Merhaba.
Sorduklarınızdan anladığım kadarı ile bir şeyler yapmaya çalıştım.
Ekteki dosyayı bir inceleyin bakalım .!!İstediğiniz şekildemi olmuş?

 

[yaslan]

Sayın Sezar
İlginize gerçekten çok teşekkürler, ama ben istegimi tam anlatamadım sanırım,
size ne istedigimi yani sonucu gösteren dosyayı gönderecegim. Sizinde vaktinizi gereksiz yere almak istemem.