listbox

[joaofrancisco]

Olá Amigos do forum, quero aqui desde ja agradecer pelas ajudas que tive atraves de vcs, estou com um probleminha, estou fazendo uma consulta e essa consulta e pra da o resultado em uma plan10 através de um listbox, ate ai esta tudo beleza ela joga as infomações correta, o que eu quero é que ela jogue as informações do list no caso se o list tiver até 10 produtos ele joga da linha 2 até a linha 12 mais se passar de 10 produtos no list, ele joga 10 na linha 2 até a linha 12 o restante ele pula a linha 13 até a 19 fazendo un step jogando a patir da linha 20, eu não consiguir fazer esse step deve ser um detalhe, o codigo estai é so acrescentar o que for preciso e agradeço a todos!

Dim i As Integer
Dim cont As Integer
i = 1

For cont = 0 To Form_vendas.ListBox_produto.ListCount - 1

Plan10.Range("A" & i + 1) = Form_vendas.ListBox_produto.List(cont, 0)
Plan10.Range("B" & i + 1) = Form_vendas.ListBox_produto.List(cont, 1)
Plan10.Range("C" & i + 1) = Form_vendas.ListBox_produto.List(cont, 2)

i = i + 1

Next

[joseA]

Seria melhor mostrar o que já tem pronto.