Metni Kaydır Özelliğini İptal Etme

Bu dosya, çalışma sayfasında Metni Kaydır (Wrap Text) seçeneği farklı hücrelerde işaretli olduğunda tek makroyla tamamını kapatmak için hazırlanmıştır. Hangi hücrelerde kaydırma açık olduğunu tek tek aramak gerekmez; makro sayfadaki tüm hücreleri kapsar.

Dosyanın içeriği​

• Sayfa1: B3:F9 aralığında örnek veriler bulunur. Makro bu sayfada denenebilir.
• Module1: MetniKaydırİptal adlı makroyu içeren VBA modülüdür.

Dosya formül içermez.

Makrolar​

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir. Makro dosya silme veya dış bağlantı gibi işlemler yapmaz; yalnızca aktif sayfanın biçimini değiştirir.

• MetniKaydırİptal: Önce aktif sayfadaki tüm hücrelerde WrapText özelliğini False yaparak Metni Kaydır ayarını kapatır. Ardından EntireRow.AutoFit ile satır yüksekliklerini, EntireColumn.AutoFit ile sütun genişliklerini içeriğe göre yeniden ayarlar.

Makro sütun genişliklerini içeriğe göre değiştirdiği için, elle ayarlanmış genişlikler işlem sonrasında farklılaşabilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Metni Kaydır ayarını kapatmak istediğiniz sayfayı etkin hale getirin.
3. Alt+F8 tuşlarıyla makro listesini açın, MetniKaydırİptal makrosunu seçip Çalıştır düğmesine tıklayın.
4. Makrolu kodu kendi dosyanıza almak için Alt+F11 ile VBA düzenleyicisini açın, Module1 içindeki kodu kendi çalışma kitabınızdaki bir modüle kopyalayın ve dosyayı .xlsm olarak kaydedin.