• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

metin boyutunu hücreye sığdırmak

E

Ergün GÖKER

Katılım
25 Ağustos 2012
Mesajlar
562
Excel Vers. ve Dili
Office 2003
Ö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
 

Ekli dosyalar

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.
 
Tekrar merhaba.

İlgili CommandButton kodlarında;

For satırından önce aşağıdaki satırları ekleyerek dener misiniz?
.
Kod: 
Sheets("KAZA02A").TextBox1 = TextBox1 & Chr(10) & Chr(10) & TextBox2 & Chr(10) & Chr(10) & TextBox3
Sheets("KAZA02A").TextBox1.MultiLine = True
 
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
 
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..
Kod: 
[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]
 
Son düzenleme:
Ömer Hocam Kodu denedim Teşekkür ederim fakat her aktarma ve metin düzenlemede harf siliyor bunun sebebi nedir.
 
Son düzenleme:
İlk kutudan başlayarak başlangıç ve bitiş noktalarını, bahsettiğim sayıları değiştirerek ayarlayabilirsiniz.
 
Ömer BARAN

Ömer BARAN' Alıntı:
İlk kutudan başlayarak başlangıç ve bitiş noktalarını, bahsettiğim sayıları değiştirerek ayarlayabilirsiniz.
Genişletmek için tıkla ...

Ö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?
 
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)
 
Merhaba.

Önceki cevabımdaki kod'da değişikik yaptım.
Yeni haliyle dener misiniz?
.
 
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.
 
Son düzenleme:
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.
.
 

Ekli dosyalar

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..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst