-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Birleştirilmiş hücrede metni kaydırma
- Konbuyu başlatan msinan987
- Başlangıç tarihi
Mdemir63
Altın Üye
- Katılım
- 7 Temmuz 2006
- Mesajlar
- 2,994
- Excel Vers. ve Dili
- Ofis2010 32Bit Türkçe
Selamlar,Yanlış bilmiyorsam birleştirilmiş hücrelerde metni kaydır diyemiyoruz.Ancak yine metni kaydırı işaretliyerek ve satırı açarak yapılabilir.
Kolay gelsin
Kolay gelsin
Evet birleştirilmiş hücrede yapamadım.Tek hücrede "Metni Kaydı" oluyor
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Kodlarla sorununuz bir ölçüde hal olabilir. Aşağıdaki kod örnek niteliğindedir. Birleştirilmiş hücrede metnin uzunluğuna göre satır genişleyip daralıyor. Örnek kodu ve dosyayı inceleyiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Len([A1]) >= 10 And Len([A1]) <= 20 Then
[A1].RowHeight = 25
ElseIf Len([A1]) >= 20 And Len([A1]) <= 40 Then
[A1].RowHeight = 40
Else
If Len([A1]) < 10 Then [A1].RowHeight = 15
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Len([A1]) >= 10 And Len([A1]) <= 20 Then
[A1].RowHeight = 25
ElseIf Len([A1]) >= 20 And Len([A1]) <= 40 Then
[A1].RowHeight = 40
Else
If Len([A1]) < 10 Then [A1].RowHeight = 15
End If
End Sub
Seyit tiken arkadaşım göndermiş olduğunuz örnek dosyayı inceledim, fakayt benim istediğim gibi olmuyor. benim istediğim birleştirmiş ve renklendirmiş olduğunuz hücre ye yazı yazdıkça birleştirilmiş hücre aşağı doğru kayması ve yazıların görünmesi lazım. Birde gönderdiğiniz konlarıda denedim olmadı. yada ben beceremedi.
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Ekli dosyadaki örnek kodu kendinize uyarlayınız.
Private Sub Worksheet_Change(ByVal Target As Range)
If Len([B7]) >= 1 And Len([B7]) <= 10 Then [B7].RowHeight = 15
If Len([B7]) > 10 And Len([B7]) <= 20 Then [B7].RowHeight = 20
If Len([B7]) > 20 And Len([B7]) <= 30 Then [B7].RowHeight = 30
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Len([B7]) >= 1 And Len([B7]) <= 10 Then [B7].RowHeight = 15
If Len([B7]) > 10 And Len([B7]) <= 20 Then [B7].RowHeight = 20
If Len([B7]) > 20 And Len([B7]) <= 30 Then [B7].RowHeight = 30
End Sub
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Hücreler arası bağlantılarda verilen kod çalışmıyor. Yani işin içine formül girdimi olmuyor. Direkt girişte sorun yok. Onun için size önereceğim yöntem, UserForm'dan Hücreye veri aktarılırsa, kod işe yarıyor. Aşağıdaki kodu Form'a tatbik edin. Yapamazsanız örnek dosya şeklinde göndeririz.
Private Sub TextBox1_Change()
[B7] = TextBox1
If Len(UserForm1.TextBox1) = 0 Then [B7].RowHeight = 10
If Len(UserForm1.TextBox1) > 1 And Len(UserForm1.TextBox1) <= 10 Then [B7].RowHeight = 15
If Len(UserForm1.TextBox1) > 10 And Len(UserForm1.TextBox1) <= 20 Then [B7].RowHeight = 20
End Sub
Private Sub TextBox1_Change()
[B7] = TextBox1
If Len(UserForm1.TextBox1) = 0 Then [B7].RowHeight = 10
If Len(UserForm1.TextBox1) > 1 And Len(UserForm1.TextBox1) <= 10 Then [B7].RowHeight = 15
If Len(UserForm1.TextBox1) > 10 And Len(UserForm1.TextBox1) <= 20 Then [B7].RowHeight = 20
End Sub
Seyit Tiken arkadaşım örnek dosya gönderiseniz sevinirm.
Komutan63 arkadaşım göndermiş olduğun dosya güzel fakat renkli kısımların uzunluğunu nasıl ayarlıyabiliriz. yani uzaltıp kısaltabiliriz.bu konuda bilgi verirsen sevinirim
Komutan63 arkadaşım göndermiş olduğun dosya güzel fakat renkli kısımların uzunluğunu nasıl ayarlıyabiliriz. yani uzaltıp kısaltabiliriz.bu konuda bilgi verirsen sevinirim
Mdemir63
Altın Üye
- Katılım
- 7 Temmuz 2006
- Mesajlar
- 2,994
- Excel Vers. ve Dili
- Ofis2010 32Bit Türkçe
Selam,
Gönderdiğim dosyada A ile N sütunları arasında siz onları istediğiniz kadar yapabilirsiniz; Örneğin aşağıdaki kodlarda mavi kısımları silerseniz A ile F sütunları arasındaki birleştirilmiş hücrede aynı görevi görür. Kolay gelsin
Dim son
Private Sub Worksheet_Calculate()
If [a2] = son Then Exit Sub
Application.EnableEvents = False
[hz1].ColumnWidth = [a2].ColumnWidth + [b2].ColumnWidth + [c2].ColumnWidth + _
[d2].ColumnWidth + [e2].ColumnWidth + [f2].ColumnWidth + _
[g2].ColumnWidth + [h2].ColumnWidth + [i2].ColumnWidth + _
[j2].ColumnWidth + [k2].ColumnWidth + [l2].ColumnWidth + _
[m2].ColumnWidth + [n2].ColumnWidth +[o2].ColumnWidth +[p2].ColumnWidth diye de çoğaltabiliriz.
[hz2].WrapText = True
[hz2] = [a2].Value
[hz2].EntireRow.AutoFit
son = [a2]
Application.EnableEvents = True
End Sub
komutan63 arkadaşım bir sorunum daha var. yazdığım yazıda istediğim zanman satıbaşı yapabilirmiyi .mesela ilk satırı 1,25 cm içrden başlatabilirmiyim. işin özeti ,ben excelde resmi yazı yazmak istiyorum.
Mdemir63
Altın Üye
- Katılım
- 7 Temmuz 2006
- Mesajlar
- 2,994
- Excel Vers. ve Dili
- Ofis2010 32Bit Türkçe
Selamlar,
Dediğiniz nasıl yapılıyor bilmiyorum. Ama Seyit hocam veya diğer üstadlar o kısmına bir çözüm üretebilirler. Biliyorsunuz ben bu size gönderdiğim dosyayı zaten forumdan aldım. Üzgünüm gerçekten çok isterdim yanıtlamayı.
Kolay gelsin
Dediğiniz nasıl yapılıyor bilmiyorum. Ama Seyit hocam veya diğer üstadlar o kısmına bir çözüm üretebilirler. Biliyorsunuz ben bu size gönderdiğim dosyayı zaten forumdan aldım. Üzgünüm gerçekten çok isterdim yanıtlamayı.
Kolay gelsin
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Ekli dosyayı çalışmanıza uyarlayabilirseniz, sorununuz çözülür diye düşünüyorum. Text'te 1'den 10'a kadar sayı girip ilgili satırın genişliğini gözlemleyiniz.
seyit Tiken arkadaşım göndermiş olduğun dosyayı inceledim.Biliyorum yardımcı olmaya çalışıyorsun fakat ben anlatamıyorum galiba. sizin gönderdiğiniz dosyada iki satır aralığı genişliyor fazla genişlemiyor ben istiyorumki,birleştirilmemiş hücrede metni kaydır işaretlediğimiz zaman nasıl yazılar atlalta sıralanıyor ve oş ekilde görünüyorsa birleştirilmiş hücreded 3.,4. beşinci yani yazı yazdıkca birşleştirilmiş hücreler aşağı doğru kaysın ve tüm yazdıklarım ekranda görünsün istiyorum
- Katılım
- 3 Mart 2009
- Mesajlar
- 519
- Excel Vers. ve Dili
- excel 2003 tr
dosyay yeniden ekliyebilirmisiniz silinmiş