sütünlar ben yazı yazdıkça nasıl genişler??

[eseslican]

arkadaşlar ben sütunlara yazı yazıyorum otomatik olarak yazının uzunluğuna göre genişlmesini istiyorum böyle bişey olurmu

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne yapıştırıp istediğiniz sütunları siz belirleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("A").AutoFit
End Sub

 

[eseslican]

sayfa kod nedir ben biraz acemiyimde

 

[Aktolgali]

Sayfa kod biraz utangaç bir arkadaştır. Hep gizli saklı çalışır. )
Excel açıkken "Alt+F11" tuş kombinasyonunu kullan o kendini gösterir.

 

[Ferhat Pazarçevirdi]

Hangi sayfada kodun çalışmasını istiyorsanız, altta sayfa isimlerinin olduğu tab üzerindeyken sağ mouse tuşuna basın ve "Kod Görüntüle" deyin ve yukarıdaki kodları açılan beyaz sayfaya yapıştırın

 

[eseslican]

bi sorum daha olacak

peki 1 den fazla sütun yazcaksam nasıl olcak

 

[Ferhat Pazarçevirdi]

Aşağıdakini deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Target.Column).AutoFit
End Sub

 

[eseslican]

run-time error '1004':
range sınıfının auto fit yönetimi başarısız diyor

ben tüm sütunları seçemiyormuyum hepsi genişlesin yazdıkça a sütunu b sütunu diye isim yazmayayım.

 

[Ferhat Pazarçevirdi]

Ekteki örneği inceleyiniz.

 

[eseslican]

Pekİ Bunda Yaparmisin

Senİnkİnde Oluyor Ama Bende Olmuyor Bakarmisin

 

[Ferhat Pazarçevirdi]

9 nolu mesajdaki dosya sizinki ile değiştirilmiştir. Bakınız

 

[eseslican]

10 Nolu Mesajda Bİr Dosya Var Orda BİrtÜrlÜ Olmuyor 3m BÖlÜmÜnde Mlz.adina Uzun BİŞeyler Yaziyom Entera Basiyom Hata Verİyor

 

[eseslican]

fpc arkadaşım çok teşekkür ederimsayfada koruma olduğu iiçin olmuomuş.
bilgi paylaştıkça güzeldir çok teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Korumayı gene yapın ama "Sayfayı Koru" iletişim kutusunda, "Sütunları biçimle" yazan yerin karşısını işaretleyin. Bu şekilde korumaya alın

Kolay gelsin.