Auto redimensionar colunas em listbox

[@papelariatotustuus8679]

Obrigado professor e obrigado Vilson por compartilhar as soluções de ajustar pelo cabeçalho das colnas. Deus abençoe

[@henriquebreda6708]

Cara, muito obrigado!!! Parabéns pelo video!

Inscrito desde longa data! Joinha dado com sucesso! SININHO ATIVO !

[@LuisDeOliveira901]

Sensacional. Já agora, tem como redimensionar a altura da linha da listbox?

[@edhermarco1]

♥♥♥

[@SPQRLEG]

Uma programação aliada instruída por você faz a conjectura da planilha ser sofiscada, até agora não vi nenhum video explicando essas coisas, estou verificando esse tipo de conteudo nos mais escopo de canais e não vejo oq vc faz e fez.

[@vilsoncarvalhio]

Boa noite, pessoal. Uma situação que aconteceu comigo, foi que quando as colunas estavam sendo ajustadas, elas estavam ajustando somente as linhas abaixo do cabeçalho! Eu procurei uma solução e encontrei! Quero compartilhar com vocês que de repente possam estar passando pelo mesmo que eu passei. Aqui esta: Dim ColW As Integer Dim ArrayW As String Plan03.Cells.EntireColumn.AutoFit For coluna = 1 To ListBox1.ColumnCount ColW = Plan03.Columns(coluna).Width If ArrayW = Empty Then ArrayW = ColW Else ArrayW = ArrayW & ";" & ColW End If Next coluna Me.ListBox1.ColumnWidths = ArrayW