Nossa, não entendi nada, vou dar uma estudada! Grato a todos!

Segue planilha. Selecione uma grade e o que preciso é que a nome do impresso, 3 coluna, fique em ordem alfabética!

Agora é onde não consegui evoluir! Tenho um listbox1 preenchido com 10 colunas, preciso que ele ordene pela 3 coluna, contando a partir do (zero) 0....

Já achei a função Sort, conforme código abaixo: Private Sub QuickSort(strArray() As String, intBottom As Integer, intTop As Integer) Dim strPivot...

Reinaldo, não lembro quando fiz esta alteração, mas é verdade tem que selecionar agora! :/ Está funcionando...Selecionando...mistério! Valeu Reinald...

Amigos Perfeito! Grato mais uma vez!

Grande Reinaldo, está quase tudo correto, porém, não há necessidade de selecionar os itens em listbox2 para que seja lançado as contas a pagar, se tes...

Antes é enviado todas as grades que forem selecionadas no listbox1 para o listbox2. Selecione a grade e clique em incluir que verás que ao informar a ...

Não o frete é separado mesmo. Conseguiu achar o meu erro? Abraços!

Bom dia amigos, fiz as correções abaixo e continua se comportando da mesma forma. Envio em anexo a planilha, quando abrir o form, selecione uma grade ...

Eu também tinha pensado assim, mas continua sem funcionar!

Perfeito Segue o código!! Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox2 = CDate(TextBox1.Value) - Week...