Soru Birleştirilmiş Hücrede Girilen Veriye Göre Satır Genişlemesi

[Korhan Ayhan]

Tekrar revize ettim..

 

[Hsn55]

Korhan hocam çok teşekkür ederim. Emeğinize sağlık .Birşey öğrenmek istiyorum. Eğer ki A,B,C,D sayfalarında ben D7:N50 satırları arasında veri olmayan satırların gizlenmesini değiştirmek istediğimde örneğin D10:N50 arası yapmak istiyorum.Hangi makroda hangi satırda işlem yapmam gerekiyor?

 

[Korhan Ayhan]

WS.Range("D7:D50").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

 

[Hsn55]

Günaydın;
Hocam makronun C7:R50 hücre aralığında tetiklenmesi için aşağıdaki satırı değiştirdiğimde makro hata veriyor.Birde hocam D sütundaki herhangi bir satırı sildiğim zaman sıra numarasını da sildirebilir miyiz

If Not Intersect(Target, Range("C7:R50")) Is Nothing Then

Hata satırı

.Cells.Delete

 

[Hsn55]

Kodu If Not Intersect(Target, Range("D7:R50")) Is Nothing Then
Aralığında yaptığım zaman hata vermiyor. Sıra numarasını silme işlemi D sütünundaki hücreyi sildiğimizde olabilirse sorun kalmayacak görünüyor hocam

 

[Korhan Ayhan]

Kodu If Not Intersect(Target, Range("D7:R50")) Is Nothing Then
Aralığında yaptığım zaman hata vermiyor. Sıra numarasını silme işlemi D sütünundaki hücreyi sildiğimizde olabilirse sorun kalmayacak görünüyor hocam

Kodu bu talebinize göre tekrar revie ettim...

 

[Hsn55]

Korhan hocam çok teşekkür ederim. Emeğinize sağlık iyi bayramlar