AccessTr.neT

Tam Versiyon: Birleştirilmiş Hücrede Satır Gizleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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("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