Bir pencere yardımıyla değişken olan aralığa veri çağırma

Son eklediğiniz dosyaya bakmadım.

Madem alt taraftaki gizli satırlara veri girişi elle yapılıyor;
gizlenen alanda konumlandıracağınız bir GÜNCELLE düğmesi ekleyin ve
Worksheet_Activate kodunu iptal edip, VD_YENILE koduyla, eklediğiniz yeni düğmeyi ilişkilendirin.

Böylece ilave seçenek satırları elle yazıldıktan sonra VD güncelle düğmesine tıklanır ve satır gizleme vs diğer işlemleri normalde nasıl yapıyorsanız o şekilde devam edersiniz. Zaten sayfaya her geçişte VD güncelleme işlemine gerek de yok idi.

Bu yeni GÜNCELLE düğmesi olarak bir ÇİZİM NESNESİ (veya metin kutusu) kullanın ve bunun özelliklerini de HÜCRELERLE TAŞI ve BOYUTLANDIR şeklinde ayarlayın yahut da satır gizleme koduna, bu nesnenin Visible özelliğini aşağıdaki gibi False, satır açma koduna da True özelliğini atayın. Satırlar gizlenince bu düğme görünmez, açınca görünür ve kullanıma hazır olur.
ActiveSheet.Shapes.Range(Array("nesnenin adı")).Visible = False
ActiveSheet.Shapes.Range(Array("nesnenin adı"")).Visible = True

VD_GUNCELLE koduna Unprotect/protect satırları eklemeniz gerekebilir, halledersiniz.

.

Ömer BARAN' Alıntı:

Son eklediğiniz dosyaya bakmadım.

Madem alt taraftaki gizli satırlara veri girişi elle yapılıyor;
gizlenen alanda konumlandıracağınız bir GÜNCELLE düğmesi ekleyin ve
Worksheet_Activate kodunu iptal edip, VD_YENILE koduyla, eklediğiniz yeni düğmeyi ilişkilendirin.

Böylece ilave seçenek satırları elle yazıldıktan sonra VD güncelle düğmesine tıklanır ve satır gizleme vs diğer işlemleri normalde nasıl yapıyorsanız o şekilde devam edersiniz. Zaten sayfaya her geçişte VD güncelleme işlemine gerek de yok idi.

Bu yeni GÜNCELLE düğmesi olarak bir ÇİZİM NESNESİ (veya metin kutusu) kullanın ve bunun özelliklerini de HÜCRELERLE TAŞI ve BOYUTLANDIR şeklinde ayarlayın yahut da satır gizleme koduna, bu nesnenin Visible özelliğini aşağıdaki gibi False, satır açma koduna da True özelliğini atayın. Satırlar gizlenince bu düğme görünmez, açınca görünür ve kullanıma hazır olur.
ActiveSheet.Shapes.Range(Array("nesnenin adı")).Visible = False
ActiveSheet.Shapes.Range(Array("nesnenin adı"")).Visible = True

VD_GUNCELLE koduna Unprotect/protect satırları eklemeniz gerekebilir, halledersiniz.

Genişletmek için tıklayın ...

Merhaba Sayın BARAN istediğim 18 nolu mesajınızdaki önerilerinizle çözüme kavuşmuştu sadece
sayfalar arasında geçişte hata veriyordu Sub VD_YENILE() kodun sonuna Next satırı ekleyince oda düzeldi