Gizli Sütunları İhtiyaç Kadar Tek Tek Açma

  • Konuyu başlatan Konuyu başlatan Akif59
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Akif59

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
450
_sürekli gizli tutulan sütun aralığı AI : DI Aralığıdır ihtiyaç halinde aj ak al gibi butonla tek tek ihtiyacım kadar açmak istiyorum

_Açılan sütunları tekrar tek tek gizler iken de sadece o sütunun verilen satır aralıkları silinsin

13 satırdan 15 satıra kadar sadece gizlenen sütunun içeriği silinsin
21 satırdan 119 satıra kadar sadece gizlenen sütunun içeriği silinsin
130 satırdan 144 satıra kadar sadece gizlenen sütunun içeriği silinsin
148 satırdan 162 satıra kadar sadece gizlenen sütunun içeriği silinsin
166 satırdan 180 satıra kadar sadece gizlenen sütunun içeriği silinsin
184 satırdan 198 satıra kadar sadece gizlenen sütunun içeriği silinsin
 
UserForm Silme Yazdırma Kaydetme Düzenleme
Koşullu Veri Çekme Hk.
Tarihe göre sırala Oylamaya göre sırala
Merhaba Akif Bey.

Aşağıdaki kodlar işinizi görecektir.
Şayet, içeriği silinenecek hücrelerin silinmesiyle tetiklenecek başka kodlarınızda var ve
bu başka kodun tetiklenmesini istemiyorsanız kırmızı renklendirdiğim satırlar kalsın,
bu tetiklenmenin gereği yapılacaksa kırmızı satırları silin.

Kodların, ilgili sayfanın kod bölümüne uygulanacağı varsayıldı.
Başka sayfa aktif iken de işlem yapılmasını istiyorsanız, koddaki herbir
Columns, Cells, Range ibaresinin önüne Sheets("XXX"). (sonda nokta var) kısmını ekleyin.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(21 satır)

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Merhaba Akif Bey.

Aşağıdaki kodlar işinizi görecektir.
Şayet, içeriği silinenecek hücrelerin silinmesiyle tetiklenecek başka kodlarınızda var ve
bu başka kodun tetiklenmesini istemiyorsanız kırmızı renklendirdiğim satırlar kalsın,
bu tetiklenmenin gereği yapılacaksa kırmızı satırları silin.

Kodların, ilgili sayfanın kod bölümüne uygulanacağı varsayıldı.
Başka sayfa aktif iken de işlem yapılmasını istiyorsanız, koddaki herbir
Columns, Cells, Range ibaresinin önüne Sheets("XXX"). (sonda nokta var) kısmını ekleyin.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(21 satır)

.
Genişletmek için tıklayın ...
Merhaba Sayın @Ömer BARAN
Dosyaya Benden daha çok hakimsiniz Elinize sağlık problemsiz işlem yapıyor
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt