AUTOFİT kullanımı

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Kod:
Private Sub ListBox3_Click()
Set L = Sheets("ÇALIŞMASAYFASI")
son = L.Range("b65536").End(3).Row + 1
L.Range("b" & son).Value = ListBox1.Value & " - " & ListBox2.Value & " " & vbNewLine & " " & ListBox3.Value & ""
L.Range("c" & son).Value = WorksheetFunction.VLookup(ListBox3, Sheets("BÖLGELER").Range("C:G"), 4, 0)


Unload Me
UserForm2.Show
End Sub
Hayırlı Akşamlar
Listbox3' ten sayfaya aktarırken B5 ten itibaren satırın yüksekliği ve genişliği hücrede ki veriye göre ayarlanmasını nasıl sağlayabilirim?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Unload satırından önce aşağıdaki satırları ekleyip deneyin. İsteğinize göre satırları yer değiştirebilirsiniz:

PHP:
enson = Cells(Rows.count, "B").End(3).Row
L.Rows("5:" & enson).EntireRow.AutoFit
L.Columns("B:C").EntireColumn.AutoFit
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Kodu kendinize göre ayarlayınız.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
[a1].RowHeight = Len([a1].Value)
Range("a1").ColumnWidth = Len([a1].Value)
End Sub
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Yusuf ve Seyit abime ayrı ayrı teşekkür ederim.
 
Üst