hücredeki metni eksik görüyorum

[hayri tekin]

Merhaba arkadaşlar,
Ekli dosyamda başka bir hücreden uzun metin alıyorum.Ancak alınan metni tam olarak göremiyorum.Sebebi ne olabilir acaba ?
Teşekkürler

 

[Necdet]

Merhaba,

Bildiğim kadarıyla hücreye yazılan metnin boyu 1 KB, yani 1024 karakter, oysa sizin veriniz bunuun çok üzerinde, o yüzden de eksik getiriyor.

 

[Merhum İdris SERDAR]

Merhaba arkadaşlar,
Ekli dosyamda başka bir hücreden uzun metin alıyorum.Ancak alınan metni tam olarak göremiyorum.Sebebi ne olabilir acaba ?
Teşekkürler

.

Birleştirilmiş alanda sütun genişliğini örneğin 14 yapın.

.

 

[hayri tekin]

Selam üstadım,yanıtınıza teşekkürler.Çare varmıdır acaba ?

 

[hayri tekin]

üstadım, bu metni birleştirilmiş hücrelere yazmak zorundayım.Yani tek hücre olarak işime yaramıyor.Sütun genişliği işimi göremedi.Teşekkürler

 

[hayri tekin]

Sütun genişliği 14 alan olarak çok büyük oluyor.Bu da sayfa yapıma uygun değil maalesef.

 

[Korhan Ayhan]

Merhaba,

En kesin çözüm kopyala-yapıştır yöntemidir. Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range
    On Error GoTo Son
    
    If Intersect(Target, Range("A3:A" & Rows.Count)) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    Range("B3:K37").ClearContents
    
    If Target <> "" Then
        Set BUL = Range("L:L").Find(Range("A3"), , , xlWhole)
        If Not BUL Is Nothing Then
            Application.EnableEvents = False
            With Range("B3:K37")
                .Formula = "=M3"
                .Copy
                .PasteSpecial Paste:=xlPasteValues
                Application.CutCopyMode = False
            End With
        End If
    End If
 
Son:
Application.EnableEvents = True
End Sub

 

[hayri tekin]

Korhan bey çok teşekkürler ama makro çalışmadı,neden acaba ?

 

[hayri tekin]

Ustadım bu olayı metin kutusunda gerçekleştirmek mümkün mü acaba ?

 

[Korhan Ayhan]

Merhaba,

Kodu deneyerek gönderdim. Olmaması mümkün değil!

 

[hayri tekin]

Üstadım haklı olabilirsiniz,ama bende anlamadım maalesef.
Bu bağlamda birşey sormak isterim ; hücredeki bu metni metin kutusuna alsak bu sorun düzelirmi acaba ?

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki koda küçük bir ekleme daha yaptım. Son haliyle denermisiniz.

A3 hücresine değer girip deneyin.

 

[hayri tekin]

Üstadım sonuç =M3 şeklinde çıkıyor

 

[hayri tekin]

Üstadım tekrar sormak istiyorum ; M3 deki metni Texboxa alma şansımız olabilirmi?

 

[hayri tekin]

Merhaba arkadaşlar,
Öncelikle değerli üstadlara bizleri birçok konuda aydınlattıkları için onlara sonsuz teşekkürlerimi sunuyorum.
Bu sorumun yanıtını araştırarak buldum.Uzun metinlerin metin kutusuna sığdırmak için metin kutusu özelliklerinde 2 küçük değişiklik yaptım ve oldu.Bunu da sizlerle paylaşmak istedim.İlgilenenler için dosyam ektedir.
Esen kalın