AccessTr.neT
Birleştirilmiş Hücrede Satır Gizleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Birleştirilmiş Hücrede Satır Gizleme (/konu-birlestirilmis-hucrede-satir-gizleme.html)



Birleştirilmiş Hücrede Satır Gizleme - snrkrmz - 14/06/2019

d13 hücresi  d18 e kadar birleştirilmiş bir hücre. Hücre adı d13.  hücre boş ise satır gizle dediğimde  sadece d13 hücresini gizliyor ve birleştirilmiş hücreyi de bozuyor. Lütfen bana bir kod örneği gönderirmisiniz.


Cvp: Birleştirilmiş Hücrede Satır Gizleme - berduş - 14/06/2019

Rows("13:18").EntireRow.Hidden = True


Cvp: Birleştirilmiş Hücrede Satır Gizleme - snrkrmz - 14/06/2019

(14/06/2019, 10:34)haliliyas yazdı: Rows("13:18").EntireRow.Hidden = True

Hocam çok özür dilerim tam olarak anlayamadım,  sütünun d olduğu ve boşsa  gizle doluysa göster   formülü ile birlikte  förmüllermisin  rica etsem.

 Yada d13 ile d18 arasını ad tanımladı  adını bir koydum   bu şekilde bir makro yazmayla olabilir mi. tanımlı ad yücresi boş ise satır gizle dolu ise  göster gibi.


Cvp: Birleştirilmiş Hücrede Satır Gizleme - berduş - 14/06/2019

siz boş kontrolünü hangi kodla yapıyordunuz?
aşağıdaki kod aktif sayfanın değiştiğinde olayına ait.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

Set KeyCells = Range("D13Lol18")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If Range("d13") = "" Then Rows("13:18").EntireRow.Hidden = True Else Rows("13:18").EntireRow.Hidden = False
End If
End Sub