Satır Yüksekliklerini Eşitleme Kodlarda Revize

[YasarPiskin]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

C4 hücresine girilen veri ile B4: S4 arasına kenarlık oluşturan ve B4: S4 arsındaki formül içeren hücrelerdeki formülleri aşağı satıra ekleyen mevcut kodu satır yükseklikleri de ( C sütununa veri girildiğinde satır yüksekliği ekran görüntüsünde paylaştığım gibi diğerlerinden çok farklı oluyor. Çalışmayı kapatıp açtığımda eşit oluyor. ) eşit olacak şekilde revize edilmesi hususunda yardımlarınızı rica ediyorum.

 

Excel word arası link oluşturma

Google Edefter API İle Ver Çekme

[Ömer BARAN]

Mevcut kodun son kısmındaki Application.ScreenUpdating = True: Application....
satırının hemen üstüne Rows("4:" & Son + 1).AutoFit şeklinde bir satır ekleyin bakalım.

 

[YasarPiskin]

Sorun aynen devam ediyor.

 

[Ömer BARAN]

Telefondan yazıyorum.
Örnek durumu ben hiç görmedim, sadece akıl yürüterek böyle olmalı dedim.
Sonucu uzun metin olan formüllü sütun veya elle yazılan değerin uzunluğu fazla olan sütun varsa, o sütun için METNİ KAYDIR özelliğinin PASİF olmasını sağlayarak tekrar deneyin.

 

[okutkan]

Kodunuzu adımlayarak çalıştırdığımda aşağıdaki ekran görüntüsündeki gibi K sütununa uzun bir metin yazma gerçekleşiyor. Bu yazma sonucunda satır genişliği yükseliyor. Daha sonra "Application.Calculation = xlCalculationAutomatic" satırı çalıştığında da K* hücresinede yazılan uzun metin otomatik hesaplama sonucunda hücreden siliniyor; sizde satırda uzun bir metin görmediğiniz için bu işe bir anlam veremiyorsunuz

 

[Ömer BARAN]

O halde sonuç olarak;
2 numaralı cevapta belirttiğim satır ilavesini, önceki cevapta belirttiğim yere değil de
End Sub satırının hemen üstüne yaparsanız sorunun çözülmesi gerekir.

 

[YasarPiskin]

Arkadaşlar çok teşekkür ederim. Sorunu uzun metin içeren hücrelerin puntolarını küçülterek çözdüm.