Boş satır ve sütunları gizleme

Akif59 · 19 Ara 2021

Merhaba
Dosya Tek sayfada iki tablodan oluşuyor. tablolar arası geçişi B6 B14 Konumundaki iki buto ile sağlanıyor.
butonlara bağlı kodlar
Sub AFTER_WASH_TABLO1()
Sub BEFORE_WASH_TABLO2()

Tablolar arası geçiş esnasında C Sütununu 18 117 aralığındaki son dolu satırdan sonrasını gizlenmeli her iki tabloya geçişte her iki kodda düzgün çalışıyor

sorun her iki kod içinde
Tablolar arası geçiş esnasında 17 satır gözetilerek 11ci sütun ve 40 sütun arasında son dolu sütundan sonrasını gizlenmeli

17 satırda 11 ve 40 sütunların hepsi dolu olduolduğu halde 2 sütunu gizliyor.

TABLO1 Açıkken 11 ve 40 sütunlar arasında boşlar gizlenmeli 41 sütun açık olmalı
TABLO2 Açıkken 42 ve 71 sütunlar arasında boşlar gizlenmeli 72 sütun açık olmalı

Ömer BARAN · 19 Ara 2021

@Akif59
Önce şu KYUVARLA mevzuuna değineyim.
Öyle karmaşık bir şey yok.
=KYUVARLA( yuvarlanacak sayı ; katsayı ) şeklinde.
Sizin örnek olayınızda katsayı 0,125.
İşlem özetle şöyle; tamsayı kısmı zaten aynı, sayının virgülden sonraki kısmı 0,125'in katları olarak ifade edilmiş oluyor.
Burada da klasik yuvarlama mantığı geçerli. Virgülden sonraki kısmın 0,125'e bölündüğünü düşünün,
bölüm sonucunda kalan sayı 0,125'in bir alttaki katına yakınsa aşağı, bir üstteki katına yakınsa yukarı yuvarlama yapılıyor.
Sonuç, 0,125'in kaç katı ise kesrin PAY kısmı bu sayı, PAYDA ise zaten 8.
Buna göre diyelim kat kısmı 5 ise sonuç ...,625 oluyor. Bu sayı da kesir olarak biçimlendirildiğinde sonuç ... 5/8 .
Sonuç kat kısmı diyelim 4 ise sonuç ...,5 oluyor ve excel 4/8 olan kesiri 1/2 olarak gösteriyor.

Gelelim bu konu sayfasındaki sorunuza; aşağıdaki değişiklikleri yaptıktan sonra farklı durumlara göre test edin.
AFTER_WASH kodunda birinci satırdaki yeşil kısmı, BEFORE_WASH kodunda da ikinci satırdaki yeşil kısmı ekleyin.
Mantık hatası yapmıyorsam istenilen sonuç bu şekilde elde ediliyor.

VBA:

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

.

Akif59 · 19 Ara 2021

Ömer BARAN' Alıntı:
@Akif59
Önce şu KYUVARLA mevzuuna değineyim.
Öyle karmaşık bir şey yok.
=KYUVARLA( yuvarlanacak sayı ; katsayı ) şeklinde.
Sizin örnek olayınızda katsayı 0,125.
İşlem özetle şöyle; tamsayı kısmı zaten aynı, sayının virgülden sonraki kısmı 0,125'in katları olarak ifade edilmiş oluyor.
Burada da klasik yuvarlama mantığı geçerli. Virgülden sonraki kısmın 0,125'e bölündüğünü düşünün,
bölüm sonucunda kalan sayı 0,125'in bir alttaki katına yakınsa aşağı, bir üstteki katına yakınsa yukarı yuvarlama yapılıyor.
Sonuç, 0,125'in kaç katı ise kesrin PAY kısmı bu sayı, PAYDA ise zaten 8.
Buna göre diyelim kat kısmı 5 ise sonuç ...,625 oluyor. Bu sayı da kesir olarak biçimlendirildiğinde sonuç ... 5/8 .
Sonuç kat kısmı diyelim 4 ise sonuç ...,5 oluyor ve excel 4/8 olan kesiri 1/2 olarak gösteriyor.

Gelelim bu konu sayfasındaki sorunuza; aşağıdaki değişiklikleri yaptıktan sonra farklı durumlara göre test edin.
AFTER_WASH kodunda birinci satırdaki yeşil kısmı, BEFORE_WASH kodunda da ikinci satırdaki yeşil kısmı ekleyin.
Mantık hatası yapmıyorsam istenilen sonuç bu şekilde elde ediliyor.

VBA:

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

.

Sayın BARAN
Teşekkür ederim Elinize sağlık

	Aralıktaki Boş Satır ve Sütunları Silmek Believing 18 Kas 2021 Makro Soruları
	Satır ve Sütun Bilgilerine Göre Düzenleme tInkelbel 12 Mar 2024 Makro Soruları
	Son Dolu Satır ve Sütuna Kadar Kaydetme okan32 25 Haz 2024 Makro Soruları
	Aktif satır ve sütun vurgulama Akif59 19 Ocak 2021 Makro Soruları
	Seçili Hücrenin Satır ve Sütun Numarasını Hücreye Yazdırma İşlemi AhmetRasim 24 Mar 2020 Makro Soruları