Hücre boyutunun otomatik olarak değişmesi.

[enteresan]

Sayfada bir hücreye girilen açıklamaya göre hücrenin otomatik olarak genişlemesi mümkün mü? Yani Bazen bir hücreye 5-6 kelimelik bir açıklama yazılıyor, bazen de 30-35 kelimelik bir açıklama yazılıyor. Açıklamanın uzunluğuna göre hücrenin aşağıya doğru otomatik açılmasını istiyorum. Saygılarımla...

 

[Korhan Ayhan]

Selamlar,

Bu işlemi yapmak istediğiniz hücreyi seçip hücre biçimlendirme menüsünden Hizalama sekmesinden Metni Kaydır seçeneğini işaretleyip tamam derseniz siz hücreye yazı yazdıkça hücreniz otomatik olarak aşağıya doğru genişleyecektir.

 

[enteresan]

Selamlar,

Bu işlemi yapmak istediğiniz hücreyi seçip hücre biçimlendirme menüsünden Hizalama sekmesinden Metni Kaydır seçeneğini işaretleyip tamam derseniz siz hücreye yazı yazdıkça hücreniz otomatik olarak aşağıya doğru genişleyecektir.

Sevgili Korhan hocam, ilginize teşekkür ederim. Bu söylediğiniz tek bir hücre için işe yarıyor fakat benim kasdettiğim hücre birden fazla hücrenin birleşmesiyle oluşan bir hücre. Bu şekilde yaptığımda herhangi bir değişiklik olmadı. Bunun başka bir yolu var mı bilmiyorum. Saygılarımla...

 

[Seyit Tiken]

Aşağıdaki kodu kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([F4]) > 10 Then [F4].RowHeight = 25
If Len([F4]) < 10 Then [F4].RowHeight = 15
End Sub

 

[enteresan]

Aşağıdaki kodu kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([F4]) > 10 Then [F4].RowHeight = 25
If Len([F4]) < 10 Then [F4].RowHeight = 15
End Sub

Sayın Seyit Hocam, ilginize teşekkür ederim. Bu da bir çözüm olabilir ama istediğim bu değildi. 4-5 hücreden birleştirmek suretiyle oluşturduğu bir hücreye başka bir sayfadan veri almaktayım. Aldığım o verinin boyutuna göre o bölümün otomatik büyümesini istiyorum. Bir örnek göndereceğim. Umarım anlatabilmişimdir.

Saygılarımla....

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[F4].EntireRow.AutoFit
[F4].EntireColumn.AutoFit
End Sub

 

[Seyit Tiken]

Private Sub Worksheet_Calculate()
If Len([A1]) < 10 Then [A1].RowHeight = 12.75
If Len([A1]) > 10 Then [A1].RowHeight = 25
If Len([A1]) > 30 Then [A1].RowHeight = 50
End Sub

 

[enteresan]

Bu şekil deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[F4].EntireRow.AutoFit
[F4].EntireColumn.AutoFit
End Sub

Sevgili N.Ziya Hocam, tek hücrede olduğunda istediğim gibi açılıyor ama, örnekte de belirttiğim gibi, birkaç hücrenin birleşmesinden oluşan hücrede çalıştırmam gerekiyor. İlginize teşekkür ederim.

 

[enteresan]

Private Sub Worksheet_Calculate()
If Len([A1]) < 10 Then [A1].RowHeight = 12.75
If Len([A1]) > 10 Then [A1].RowHeight = 25
If Len([A1]) > 30 Then [A1].RowHeight = 50
End Sub

Sevgili Seyit TİKEN Hocam, bu örneğinizi aşağıya doğru uzatmak mümkün mü acaba, sanırım bu işime yarayacak ama ben satırları çoğaltamadım. Yani 30'dan sonrasını 40, 50 diye devam etmek istedim ama işe yaramadı. Bunu aşağıya doğru uzatmanın bir yolu var mıdır. Saygılarımla.

 

[jonpromiyee]

buna benzer benimde bir sorunum var. örneğin C1 hücresi A1*B1 den oluşsun. ama A1 ve B1 e büyük sayılar yazıldığında C1 hücresi ######### şeklinde oluyor. bunun otomatik olarak carpımın sonuna göre geçişlemesi mümkün mü????

 

[jonpromiyee]

bunun için bir vba yokmu arkadaşlar. bu benim için çok önemli...

 

[dEdE]

buna benzer benimde bir sorunum var. örneğin C1 hücresi A1*B1 den oluşsun. ama A1 ve B1 e büyük sayılar yazıldığında C1 hücresi ######### şeklinde oluyor. bunun otomatik olarak carpımın sonuna göre geçişlemesi mümkün mü????

Merhaba,

Aşağıdaki kod ile mümkün. İhtiyacınıza göre, Target Range değiştirilebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1,B1,C1]) Is Nothing Then Exit Sub
[C1].EntireColumn.AutoFit
End Sub

 

[honeymoon]

kod

Merhaba,

Aşağıdaki kod ile mümkün. İhtiyacınıza göre, Target Range değiştirilebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1,B1,C1]) Is Nothing Then Exit Sub
[C1].EntireColumn.AutoFit
End Sub

bu kodu nereye yaziyoruz?

 

[jonpromiyee]

üstad çok teşekkür ederim.

 

[mami68]

Merhabalar...

Benim kulandığım şekil makrosuz,ve daha uygun görüyorum.

A ve 1 arasındaki boş hücreye(solda) tıklayın,bütün sayfa seçilmiş olur.Ardından A ve B sütunun arasına çift tıkla ve otomatikmen bütün satırlar gereken genişliği alacaktır.


İyi çalışmalar.

 

[dEdE]

bu kodu nereye yaziyoruz?

Sayfanın koduna yazıyoruz.
Sayfaadının üzerine sağ tıklayıp-Kod görüntüleyi seçtiğimizde açılan sayfaya yazıyoruz.

 

[dEdE]

Benim kulandığım şekil makrosuz,ve daha uygun görüyorum.

A ve 1 arasındaki boş hücreye(solda) tıklayın,bütün sayfa seçilmiş olur.Ardından A ve B sütunun arasına çift tıkla ve otomatikmen bütün satırlar gereken genişliği alacaktır.

Merhaba,
Sizin yöntemi makroya uyarlarsak daha kullanışlı olmaz mı? Hiçbir yeri seçmeye tıklamaya gerek yok.

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.EntireColumn.AutoFit
End Sub

 

[honeymoon]

Sayfanın koduna yazıyoruz.
Sayfaadının üzerine sağ tıklayıp-Kod görüntüleyi seçtiğimizde açılan sayfaya yazıyoruz.

ilk defa bunlarla karsilastigim icin bilgim yoktu.

sayfa1'in ustune geldim ve kod goruntuleyi sectim ve de kodlari yazdim, ise yaradi.

tesekkur ederim. artik ogrenmis oldum ( bu bolume nasil girecegimi ve de nasil buraya kod yazilacagini)

ogrenmem gereken daha cok sey var

 

[dEdE]

Merhaba,
Önemli olan sizin öğrenme azminiz. Bizler elimizden geldiğince yardımcı oluruz.

 

[mami68]

Merhaba,
Sizin yöntemi makroya uyarlarsak daha kullanışlı olmaz mı? Hiçbir yeri seçmeye tıklamaya gerek yok.

Sayın dede merhabalar.

Siz galiba alternatiflere karşısınız,bunu da öğrenmiş olsa hata mı olur.

İyi çalışmalar.