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.
Rows("13:18").EntireRow.Hidden = True
(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.
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("D13
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