Makro Çalışınca, Gizlenemeyen Sütun

[EKREM1661]

Saygıdeğer Arkadaşlar..Selamlar..! Sayın Levent hocamızdan; (ilk üyeliğim senesinde) aşağıdaki örnek dosya çalışmasını almıştım.. Bu bize çok kolaylık sağladı..

Konunun özü ise; birleştirilmiş bir hücreye alınan verinin, satır yüksekliğini, otomatik olarak ayarlamak..idi.

Çözüm mantığı şu; Verinin bulunduğu(A11:J11) aralık, başka bir tek hücreye(HZ11) alınıyor ve bu hücre, birleştirilmiş olmadığı için satır yüksekliği otomatik olarak ayarlanıyor.. Otomatik ayarlanan bu yükseklik, verinin bulunduğu hedef hücreye uyarlanıyor..ve eşitleniyor.. Fakat;

Soru: Eğer; (K sütunundan itibaren) kullanılmayan sütunlar gizlenirse, makronun çalışması ile birlikte "HZ" sütunu açılıyor. Bu sütunun açığa çıkmasını nasıl önleyebiliriz veya nasıl bir alternatif düşünebiliriz..

Not: Bu konu zaruri olmayıp, sadece estetik görünümü açısından sormuş oldum…

 

[Ayhan Ercan]

kodunuza aşağıda en son satırı (kırmızı yazıl&#305 ekleyerek denermisiniz...

[hz11].ColumnWidth = [a11].ColumnWidth + [b11].ColumnWidth + [c11].ColumnWidth + _
[d11].ColumnWidth + [e11].ColumnWidth + [f11].ColumnWidth + _
[g11].ColumnWidth + [h11].ColumnWidth + [I11].ColumnWidth + [J11].ColumnWidth + 10
[hz11] = [a11].Value
[hz11].WrapText = True
[hz11].EntireRow.AutoFit
[B][COLOR=red][hz:hz].EntireColumn.Hidden = True[/COLOR][/B]

 

[EKREM1661]

Sayın Ayhan Ercan..! ilginize ve çözüm teklifinize teşekkür ederim.. Her makro çalışma sonrası sütunu gizlemek, bir çözüm yolu.. Her halde, sütun gizleme metodundan başka yol da gözükmüyor.. Bizde bu şekil kullanırız..
Hayırlı çalışmalar..

 

[EKREM1661]

Acaba bu ölçüyü, ("HZ" sütununu) başka sayfaya atamaz mıyız..?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub dene()
Application.ScreenUpdating = False
[hz11].ColumnWidth = [a11].ColumnWidth + [b11].ColumnWidth + [c11].ColumnWidth + _
[d11].ColumnWidth + [e11].ColumnWidth + [f11].ColumnWidth + _
[g11].ColumnWidth + [h11].ColumnWidth + [I11].ColumnWidth + [J11].ColumnWidth + 10
[hz11] = [a11].Value
[hz11].WrapText = True
[hz11].EntireRow.AutoFit
yuk = [hz11].Height
[hz:hz].Delete
Rows(11).RowHeight = yuk
End Sub

 

[EKREM1661]

Çok değerli hocam Levent bey..! İstenilen tamam..Ancak makronun çalışm süresi biraz fazla sürüyor. fare ok'u 20.sn kadar kum saati halinde bekliyor, sonra işlem gerçekleşiyor.. Acaba bu sadece bende mi..

 

[Levent Menteşoğlu]

Kodu direk açılan kutuya bağlayın ve sayfanın modülündeki kodları silin.

 

[EKREM1661]

Sn.Levent hocam..! Çok harikulade ve kullanışlı olmuş, Ellerine ve bilgine sağlık, Bundan daha ötesi olamazdı.. Hayırlı çalışmalar diliyorum..