hücredeki metin kutusunun arasının otomatik genişlemesi

[ASLAN7410]

hücreye kilitlenmiş metin kutusunun içerisini doldurduğumda satır ile birlikte metin kutusunun genişlemesini istiyorum.

 

[hamitcan]

Ben bir şeyler yaptım, umarım işinizi görür. Aşağıdaki kodu, sayfanın kod kısmına ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    ActiveSheet.Shapes(1).Select
    If Selection.Width > 255 Then Selection.Width = 255
    If Selection.Height > 409 Then Selection.Width = 409
    Rows(3).RowHeight = Selection.Height
    Columns(1).ColumnWidth = Selection.Width
End Sub

 

[ASLAN7410]

Hamit bey ilginize teşekkürler, bu kodu denedim ancak, hücreyi açıyor, hücre içerisine yazılan 255 karakterin üstünü yazıcı görmediği için hücreye metin kutusunu ekleyerek kilitlemiştim, bu metin kutusunun içeresi doldukça aşağıya doğru otomatik genişlemesini istiyorum. Şimdiden teşekkürler.

 

[hamitcan]

İstediğiniz bir hücreye birşey girildiğinde metin kutusunun büyümesi mi yoksa metin kutusuna birşey girildiğinde satırın yada hücrenin büyümesi mi ? Belirteyim, büyümeden kasıt hem yükseklik hem de genişliktir.

 

[ASLAN7410]

Örnek eklenti nasıl gönderebilirim?

 

[hamitcan]

Dosya paylaşım sitelerinden faydalanın.

 

[ASLAN7410]

Eklentiyi yükleyemedim Hamit Bey, yinede ilginize teşekkürler. Sizin yapmış olduğunuz programa baktım ancak benim istediğim gibi değil, benim istediğim bir hücreye metin kutusunu Alt tuşu ile açtığımda, bu metin kutusunun içerisine bir şeyler yazdığımda, metin kutusunun üzerinde bulunmuş olduğu hücre ile birlikte otomatik olarak aşağıya doğru genişlemesini istiyorum.

 

[ASLAN7410]

Hamit Bey, araştırmalarımda bir dosya yükleme sitesi buldum, aşağıdaki linke de dosyayı yükledim. Bu dosyayı inceler misiniz?

http://s3.dosya.tc/server28/vRxcd3/_RNEK.rar.html

 

[hamitcan]

Öncelikle resimleri inceleyin sonra verdiğim kodu ilgili sayfanın kod kısmına ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    ActiveSheet.Shapes(1).Select
    If Selection.Width > 255 Then Selection.Width = 255
    If Selection.Height > 409 Then Selection.Width = 409
    Rows(6).RowHeight = Selection.Height
'    Columns(5).ColumnWidth = Selection.Width
End Sub

 

[ASLAN7410]

Hamit Bey ilginize teşekkürler, ama benim istediğim bu değil. Metin kutusunun kendisinin ve altındaki hücrenin otomatik genişlemesini istemiştim.

 

[hamitcan]

Kodun çalışma şekli zaten bu. Yalnız kod, metin kutusuna birşey girdikten sonra boş bir yeri tıkladığınızda çalışıyor yoksa metin kutusu içindeyken sadece metin kutusu büyüyor fakat hücre büyümüyor.

 

[ASLAN7410]

Hamit Bey teşekkür ediyorum.
Allah razı olsun, sizi yorduk kusura bakmayın.
Hayırlı çalışmalar.