Kullanılmayan Satırların Formülle Gizlenmesi ve Açılması

[Symetrix]

Arkadaşlar kolay gelsin.
Soru; çalışma sayfası 1'de A1 hücresinden aşağıya doğru 50 satır var ben bu satırlara veri giriyorum ve girdiğim veriler diğer çalışma sayfalarına da aktarılıyor benim veri girdiğim yere 20 maddelik veri girdiğimde aktarıldığı çalışma sayfasında 20 maddelik veriden sonraki satırları otomatik gizlemesini istiyorum sayfa 1 deki yere her veri girdiğimde (20'den sonra) diğer sayfalarda o veri eklenerek satırı otomatik açsın istiyorum. Excel konusunda pek bilgim yok buradan faydalanarak yaptığımdan bana bu konuda açıklamalı olarak yardımcı olursanız çok sevinirim. Teşekkür Ederim.

 

[Korhan Ayhan]

Merhaba,

Bu işlem için excelin kendi filtre özelliğinden faydalanabilirsiniz.

 

[Symetrix]

Hocam cevabınız için teşekkür ederim ama biraz daha açar mısınız? dediğim gibi fazla bilgim olmadığından bu kadar kısa cümle ile anlamıyorum

 

[Korhan Ayhan]

İnceleyiniz...

Bir tablo veya aralıkta veriye filtre uygulama - Microsoft Desteği

Bir hücre veya tablo aralığındaki bir veri alt kümesini bulmak ve bunlarla çalışmak için Excel'de Otomatik Filtre'yi kullanma.

support.microsoft.com

 

[Symetrix]

İnceleyiniz...

Bir tablo veya aralıkta veriye filtre uygulama - Microsoft Desteği

Bir hücre veya tablo aralığındaki bir veri alt kümesini bulmak ve bunlarla çalışmak için Excel'de Otomatik Filtre'yi kullanma.

support.microsoft.com

bunu biliyorum bu benim isteğime yanıt vermiyor teşekkür ederim benim istediğimden farklı bir durum bu

 

[Korhan Ayhan]

Bu özelliği makro ile desteklerseniz olur gibime geliyor.

 

[Symetrix]

Bu özelliği makro ile desteklerseniz olur gibime geliyor.

hocam beni yanlış anlamayın çok kısa yazıyorsunuz anlamıyorum MEB de çalışıyorum bir satın alma excel tablosu var bununla uğraşıyorum bunu yapmam lazım dosya yükleyemiyorum yüklesem de baksanız geniş kapsamlı bir açıklama ile yapabileceğimi düşünüyorum bana Şu kodu vs şuraya yapıştır veya farklı nasıl anlatılır yardımcı olursanız çok sevinirim

 

[Korhan Ayhan]

Ben örnek dosya eklenmeyen sorularla pek ilgilenmeyi sevmiyorum. Sonrasında konu gereksiz yere uzayıp gidiyor..

Malum zaman kıymetli... Boşa harcamamak lazım..

Asıl dosyanıza benzer yapıda 20-30 satırlık örnek dosya paylaşıp durumu izah ederseniz. Bilgisi olan birçok kişi destek olacaktır.

 

[Symetrix]

Ben örnek dosya eklenmeyen sorularla pek ilgilenmeyi sevmiyorum. Sonrasında konu gereksiz yere uzayıp gidiyor..

Malum zaman kıymetli... Boşa harcamamak lazım..

Asıl dosyanıza benzer yapıda 20-30 satırlık örnek dosya paylaşıp durumu izah ederseniz. Bilgisi olan birçok kişi destek olacaktır.

Hocam Altın Üyeliğim vardı bitmiş yeniledim dosyayı yükledim. Yapılacak işlem şu; Veri giriş sayfasında bulunan B sütununa girdiğim veri bazen 10 bazen 50 oluyor 10 olduğu zamanlar 2. sayfa olan Taşınır İstek Belgesine aktarılan veride 10 oluyor ya 10. veriden sonra olan kısımlar yazdırırken veri fazla olunca 2. sayfa olarak çıkıyor tek sayfa yazdırsın ve görüntü kirliliği olmasın diye otomatik gizlenmesini istiyorum. Yani ben veri sayfasına her eklediğim kalemi diğer sayfalara aktardığında satır otomatik açılsın istiyorum.

 

[Korhan Ayhan]

"VERİ GİRİŞ SAYFASI" isimli sayfanızın ismi üzerinde sağ tıklayıp "KOD GÖRÜNTÜLE" işlemini seçtikten sonra karşınıza gelen pencereye aşağıdaki kodu uygulayınız.

Bu sayfada bir değişiklik yaptığınızda girdiğiniz veri kadar satır "(1)Taşınır İstek Belgesi" isimli sayfada listede görünecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("(1)Taşınır İstek Belgesi").Range("$A$8:$I$70").AutoFilter Field:=2, Criteria1:="<>0"
End Sub

 

[Symetrix]

"VERİ GİRİŞ SAYFASI" isimli sayfanızın ismi üzerinde sağ tıklayıp "KOD GÖRÜNTÜLE" işlemini seçtikten sonra karşınıza gelen pencereye aşağıdaki kodu uygulayınız.

Bu sayfada bir değişiklik yaptığınızda girdiğiniz veri kadar satır "(1)Taşınır İstek Belgesi" isimli sayfada listede görünecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("(1)Taşınır İstek Belgesi").Range("$A$8:$I$70").AutoFilter Field:=2, Criteria1:="<>0"
End Sub

peki ben bunu diğer sayfalara da uygulamak istiyorum bu kodu kopyalayıp sadece kodda bulunan sayfa ismini değiştirirsem olur mu

 

[Korhan Ayhan]

Olur...

Filtrelenenen hücre adrelerini de revize etmeni gerekebilir..

 

[Symetrix]

Hocam sizin dediğiniz gibi yaptım ancak VERİ GİRİŞ SAYFASINDA 20 veriden sonrası diğer sayfada göstermiyor birde yanlışmı yaptım bilmiyorum o kodu diğer sayfalar içinde kopyaladım ama 2 sayfa oldu diğerleri olmadı.