metin boyutunu hücreye sığdırmak

[Ergün GÖKER]

Öncelikle herkese iyi haftasonu
Elimde bir çakışma mevcut. Bu çalışmayı yaparken userformdan hücreye metin aktarma işi yapıyorum. Fakat metin boyutum değiştiği zaman hücreye sığdıramıyorum. Bunu metin kutusuna dönüştürmek istiyorum. Fakat ben beceremedim. Yardımlarınız olursa çok teşekkür ederim
saygılarımla

 

[Ömer BARAN]

Merhaba, Ergün Bey.

Açtığınız aşağıdaki konu ile ilgili olarak geri bildirimde bulunmamıştınız.

Buradaki isteğiniz de sanırım benzer bir şey.

Birleştirilmiş Hücrelerde metine göre satır genişliği
.

 

[Ergün GÖKER]

Hocam merhaba;
Hocam bu konu daha önce açtığım konu ile ilgili değil.
Burada Yapmak istediğim şu şekilde bir rapor hazırlıyorum. ve hazırladığım raporu userformdan giriş yapıyorum. Bu user gorm 3 bölümden oluşuyor. GİRİŞ GELİŞME SONUÇ gibi. Bu alanlara girdiğim metin boyutunu aktar butonu ile sabit hücre aralığına atıyor. Fakat metin boyutu uzun olması durumunda hücre içerisindeki metin uzun olması durumunda göstermiyor. Ben bunu metin kutusuna aktarmak ve metnin tamamını göstermesini istiyorum.

 

[Ömer BARAN]

Tekrar merhaba.

İlgili CommandButton kodlarında;

For satırından önce aşağıdaki satırları ekleyerek dener misiniz?
.

Sheets("KAZA02A").TextBox1 = TextBox1 & Chr(10) & Chr(10) & TextBox2 & Chr(10) & Chr(10) & TextBox3
Sheets("KAZA02A").TextBox1.MultiLine = True

 

[Ergün GÖKER]

Hocam evet kısmen doğru verileri metin kutusuna atıyor.
Peki hocam birde metin kutusunda bulunan yazıları geri Userforma çağır diyebilirmiyiz
yani metni girdik. aktar dedik metin kutusuna aktardı düzeltme gerekirse listeyi geri userforma çağırmak istiyorum bunun için gerekli kod nedir acaba

 

[Ömer BARAN]

Tekrar merhaba.

CommandButton4 (aktarma) ve CommandButton5 (çağırma) kodlarını aşağıdaki ile değiştirerek dener misiniz?
Not: Kırmızı (metnin alınmaya başlanacağı noktayı belirlemek üzere) ve
mavi (metin alma işlemini nerele kadar sürdüreceğini belirlemek üzere)
renklendirdiğim sayılarda değişiklik yaparak ilk ve son karakterlerin kontrolünü sağlarsınız.
Yaptığım birkaç kontrolde tutarsızlık yaşadım..

[FONT="Arial Narrow"][B]Private Sub CommandButton4_Click()[/B]
Sheets("KAZA02A").Unprotect ""
Sheets("KAZA02A").TextBox1 = TextBox1 & Chr(10) & Chr(10) & TextBox2 & Chr(10) & Chr(10) & TextBox3
Sheets("KAZA02A").TextBox1.MultiLine = True
For a = 1 To 3
Controls("TextBox" & a) = ""
Sheets("KAZA02A").Protect ""
Next
[B]End Sub[/B]

[B]Private Sub CommandButton5_Click()[/B]
metin = Sheets("KAZA02A").TextBox1.Text
TextBox1 = Mid(metin, 1, WorksheetFunction.Find(Chr(10), metin, 1) - 2)
TextBox2 = Mid(metin, WorksheetFunction.Find(Chr(10), metin, 1) + 3, _
            WorksheetFunction.Find(Chr(10), metin, _
            WorksheetFunction.Find(Chr(10), metin, 1) + 4) _
            - WorksheetFunction.Find(Chr(10), metin, 1) - 4)
TextBox3 = Mid(metin, WorksheetFunction.Find(Chr(10), metin, _
        WorksheetFunction.Find(Chr(10), metin, 1) + 4) + 3, _
        Len(metin) - Len(TextBox1) - Len(TextBox2))
[B]End Sub[/B][/FONT]

 

[Ergün GÖKER]

Ömer Hocam Kodu denedim Teşekkür ederim fakat her aktarma ve metin düzenlemede harf siliyor bunun sebebi nedir.

 

[Ömer BARAN]

İlk kutudan başlayarak başlangıç ve bitiş noktalarını, bahsettiğim sayıları değiştirerek ayarlayabilirsiniz.

 

[Ergün GÖKER]

Ömer BARAN

İlk kutudan başlayarak başlangıç ve bitiş noktalarını, bahsettiğim sayıları değiştirerek ayarlayabilirsiniz.

Ömer hocam başlangıç ve bitiş kutuları derken neyi kast ettiğinizi anlamadım
userformdaki metinden mi bahsediyorsunuz. Bunun ne kadar olacağını bilemiyorum metin değişken örneğin 1 raporda 1000 harf te olabilir 100 harfte olabilir. Nasıl bir rakam yazmalıyım?

 

[Ömer BARAN]

Her bir metin kutusuna alınacak metni parçalara ayırırken Mid( diye bölüm var excel işlev karşılığı PARÇAAL ve mantık aynı
Mid(hangi metin, kaçıncı karakterden başlanacak, kaç karakter alınacak)

 

[Ömer BARAN]

Merhaba.

Önceki cevabımdaki kod'da değişikik yaptım.
Yeni haliyle dener misiniz?
.

 

[Ergün GÖKER]

Hocam merhaba.
Evet hocam şimdi oldu ellerinize sağlık zahmet verdim.
Hocam son bir husus daha vardı. Verileri forma aktardığım zaman formda sağdan soldan hizalayabilrmiyiz. metin kutusu biçimlendirme ile beceremedim
saygılar.

 

[Ömer BARAN]

Ben denediğimde sorun yok gibi.
Belge xls ve xlsx olarak ekte.
İsterseniz bunun üzerinden kontrol edin.
Veriyi örneğin siteden kopyala yapıştır ile forma yapıştırınca sorun yaşadım sanırım satırbaşı karakterinden kaynaklanan bir durum.
Satırbaşlarını kaldırıp denemeler yaptığımda sorun yok gibi.

NOT: Bildiğim kadarıyla Metin Kutusunda istediğiniz hizalama yapılamıyor.
Bunun yerine hücreye yazdırmak ve bugün bahsettiğim açtığınız satır yüksekliği konusundaki yöntemle satır yüksekliği ayarlayıp hizalama da yapılabilir diye düşünüyorum.
.

 

[Ergün GÖKER]

Aynen hocam dediğiniz gibi, bende hazır metin yapıştırınca sorun yaşadım. Ancak kendim metin yazıp aktar ve veri getir dediğimde sorun kalmadı. Çok teşekkür eder saygılar sunarım. Hayırlı geceler..

 

[Ömer BARAN]

Bilmukabele.
Sağlıcakla.

 

[Ergün GÖKER]

http://s5.dosya.tc/server/8lrh6l/fark_hesaplama.xls.html