Veri yoksa Satırı birleştir

[ormann]

Sayın arkadaşlar ekteki örnek dosyamda üc adet birleşrtirilmiş a,b,c satırları var .Bunlardan b satırında veri olmadığı zaman A ile C satırı otamatik olarak birleşebilirmi ?

 

[leumruk]

Merhaba,
Sayfanızın kod bölümüne ekleyin. Eğer istediğiniz bu değilse, kod çalıştığında olmasını istediğiniz durumu ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("c9:c11")) Is Nothing Then Exit Sub
If [c10] = "" Then
[c10].EntireRow.Hidden = True
End If
Son:
End Sub

 

[ormann]

Merhaba,
Sayın Hocam özür dilerim ben yanlış izah ettim .b satırında veri olmadığı zaman b satırı gizlenecek

 

[leumruk]

2 nolu mesajımdaki kodu güncelledim.

 

[ormann]

Merhaba,
Sayfanızın kod bölümüne ekleyin. Eğer istediğiniz bu değilse, kod çalıştığında olmasını istediğiniz durumu ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("c9:c11")) Is Nothing Then Exit Sub
If [c10] = "" Then
[c10].EntireRow.Hidden = True
End If
Son:
End Sub

Sayın Leumruk acaba bu kodu başka sayfadan çalıştırabilirmiyiz (Örnek dosyada veri girişi sayfasında a2 hücresine veri girmediğim zaman kayıt sayfasında c10 satırı gizlenecek)

 

[leumruk]

Merhaba,
Diğer kod ile bu isteğiniz kullanışlı olmaz. Bunun için aşağıdaki kodu kullanın. Eklediğim kodu "kayıt" sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Activate()
If Sheets("veri girişi").[a2] = 0 Then
[c10].EntireRow.Hidden = True
Else
[c10].EntireRow.Hidden = False
End If
End Sub

 

[ormann]

Sayın Lemruk kod çalışıyo fakat veriyi veri girişi sayfasında a1 hücresindeki veriyi sildiğim zaman satır gizleniyo ama veriyi tekrar girdiğimde satır açılmıyo

 

[leumruk]

Eklediğim kod sayfa aktif olduğunda çalışır. Bende sorunsuz çalışıyor. Ama daha garanti sonuç almak için aşağıdaki kodu da "veri girişi" sayfanıza kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
If Sheets("veri girişi").[a2] = 0 Then
[kayıt!c10].EntireRow.Hidden = True
Else
[kayıt!c10].EntireRow.Hidden = False
End If
End Sub

 

[ormann]

Teşekkür ederim .Ellerinize sağlık