AUTOFİT kullanımı

[sirkülasyon]

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]

Unload satırından önce aşağıdaki satırları ekleyip deneyin. İsteğinize göre satırları yer değiştirebilirsiniz:

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

 

[Seyit Tiken]

Kodu kendinize göre ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
[a1].RowHeight = Len([a1].Value)
Range("a1").ColumnWidth = Len([a1].Value)
End Sub

 

[sirkülasyon]

Yusuf ve Seyit abime ayrı ayrı teşekkür ederim.