AMVilasBoas

Meus amigos, boa noite! Estou com uma listbox carregando apenas a primeira e ultima linha da planilha e as demais ficam em branco. já alterei algumas propriedades da listbox e até fiz um novo arquivo e não encontrei o erro. O código eu peguei comparei com outros e é bem simples. Podem me ajudar? Sub Filtro_Acumulado() linha = 1 linhalisbox = 0 Me.LBOrcadoRealizado.ColumnWidths = "80;70;70;80" Do Until Sheets("BANCO_DE_DADOS").Cells(linha, 1) = "" With Me.LBOrcadoRealizado .AddItem .List(linhalistbox, 0) = Sheets("BANCO_DE_DADOS").Cells(linha, 1) .List(linhalistbox, 1) = Sheets("BANCO_DE_DADOS").Cells(linha, 2) .List(linhalistbox, 2) = Sheets("BANCO_DE_DADOS").Cells(linha, 3) .List(linhalistbox, 3) = Sheets("BANCO_DE_DADOS").Cells(linha, 4) End With linha = linha + 1 'soma ela mesma, pula para próxima linha linhalistbox = linhalisbox + 1 Loop End Sub

Boa noite, Estou a umas 15 horas programando (começando) e não consegui fazer com que identifique o menor valor de laco, onde estou errando? algoritmo "SomadorNumerio" var cont, n, s, maior, menor: inteiro inicio cont <-1 s <- 0 enquanto (cont <= 10) faca escreva ("Digite o ", cont,"o. valor: ") leia (n) se (n > maior) então //funcao para reconhecer o maior numero digitado maior <- n fimse se (n >= 0) então //funcao para reconhecer o menor numero digitado //!!!!!!!!!!!!!!não ESTA FUNCIONANDO!!!!!!!!!!!!! menor <- n fimse s <- s + n cont <- cont + 1 FimEnquanto escreval ("A soma de todos o valores foi ", s) escreval ("O maior valor digitado foi ", maior) escreva ("O menor valor digitado foi ", menor) fimalgoritmo