Midori

@jcgmcs A quantidade de colunas é uma proprierade do próprio ListBox, não será uma "coluna extra". Ao abrir o Form a macro vai buscar os itens automaticamente colocar tudo nele. Com Label só terá mais trabalho já que será necessário o dobro de controles para cada fruta. Nesse caso seriam 18 Labels. E quando/se entrar mais frutas na tabela? Vai ter que criar mais labels... Com ListBox basta criar um controle e depois é só ir adicionando os elementos nele.

@Antonio Baptista Essas ocorrências aparecem em qualquer coluna das abas ou ficam em colunas específicas de uma tabela? Se possível favor anexar uma planilha. Pode ser com dados fictícios.

@Jeff_Sandes Outra forma mais simples de resolver é atribuir True a função no fim, Synchronizer = True, e remover todas as linhas onde tem IsPrimo.

@Marcos_22 Pode criar um novo tópico e explicar isso lá? E se possível com uma planilha, pode ser com dados fictícios, para usar como exemplo.

@jcgmcs Para isso acho melhor e mais simples usar uma lista do que labels. Assim é só ir acrescentando as frutas numa coluna e a quantidade na outra, p.ex,

@Jeff_Sandes Sua função vai retornar sempre False já que não atribuiu nada a Synchronizer. Faça a atribuição Synchronizer = IsPrimo no fim e deixe IsPrimo = True depois do If e antes do loop.

Os objetos já criados pelo VB não precisam New, é só declarar e fazer Set sem New. Para outros casos é preciso usar. O padrão de Initialize é sem parâmetros, se tentar colocar vai dar erro.

Se declarar a classe com New, como fez na primeira linha, a segunda não será necessária.

Acho que está fazendo confusão. O primeiro argumento de CopyMemory deve ser a variável que vai receber o conteúdo da outra (Source). Para isso não use ByVal, apenas passe as variáveis como argumento, p.ex, Sub Teste() Dim Origem As Long Dim Destino As Long Origem = 123 Call CopyMemory(Destino, Origem, Len(Origem)) Debug.Print Destino End Sub Assim todos os argumentos são ByRef por padrão. Se o primeiro argumento fosse o endereço da variável, poderia ser ByVal, mas essa função não é necessária. Call CopyMemory(ByVal VarPtr(Destino), Origem, Len(Origem))

Por que passou o argumento destino como valor? Faz mais sentido passar como referência que é o padrão do VB.

Essa função retorna o endereço da variável, porém isso não tem nenhuma utilidade para CopyMemory. É como comentei no primeiro post. Veja os parâmetros: CopyMemory(Destination As Any, Source As Any, ByVal Length As Long) Se quer copiar o conteúdo de MyPtr para MyVar, é só passar MyVar como argumento para Destination e MyPtr para Source. O tamanho é em bytes: Call CopyMemory(MyVar, MyPtr, Len(MyVar))

MyPtr é só uma variável do tipo Long e não um ponteiro. VB6 não tem ponteiros como a linguagem C. Para manipular dados da memória terá que usar APIs como CopyMemory.

@Cambalinho É só passar as variáveis com o tamanho em bytes como argumento para a Sub. Da forma que fez está errado já que o segundo parâmetro é o Source e você passou um valor constante. Veja se assim resolve, Call CopyMemory(MyPtr, MyVar, Len(MyVar))

@Brainiac019 Não tem nenhum bug. Leia novamente meu primeiro post sobre o espaço entre o comando sfc e a barra. Você está cometendo esse erro.

@Brainiac019 É como eu falei, e diz aí no print, você precisa ter privilégio de administrador... Abra o PowerShell (Admin). Se entrar com o comando/teclas Windows+X vai aparecer essa opção no menu. Você também pode digitar cmd na barra do windows e clicar com o botão direito nele e escolher executar como administrador.

Manutenção é bem espefício e entendo que o mais indicado é buscar capacitação no curso técnico.

@Brainiac019 Esse comando exige privilégio de administrador. Abra o PowerShell (Admin), Windows+X, e entre com sfc /scannow (só deve haver espaço entre sfc e a barra).

@MateusAC3 Se o seu excel for o 365 e quiser tentar com fórmulas, Na linha 10 o meu ficou diferente com o prefixo SPA antes de ALQ.

Assim não está abrindo o documento, está adicionando um novo (Documents.Add). Para abrir a função é Open. E para fechar pode ser assim, Private Sub FecharWord(SalvarDocumento As Boolean) Call ObjDocument.Close(SalvarDocumento) Call ObjWord.Quit Set ObjWord = Nothing End Sub

O inputbox não tem esse recurso, mas no TextBox do formulário é possível.

@Máquinelson Estes dois registros p.ex, como devem ficar? VALVULA SOLENOITE DUPLO 5/3 CENTRO FECHADO 24VCC 3/8 POL VALVULA SOLENOIDE 546148 FESTO Não há um padrão e nem algum tipo de formatação para identificar cada campo.

Em vez de fazer o incremento duas vezes, você pode fazer só uma vez fora da estrutura condicional.

@ppeterk Na função é só alterar o tipo de Double para String e remover o Else onde tem BuscaNota = -1. E na Sub o teste (If Nota >= 0) também pode ser removido.

@MateusAC3 Para isso você pode testar se a linha está oculta, If Not Sh.Cells(i, 4).EntireRow.Hidden Then

Assim as notas ficaram alinhadas a direita. Escreva(" ":12) Para linha <- 1 Ate 4 Faca Escreva(bimestre[linha]:12) FimPara Para linha <- 1 Ate 4 Faca Escreval() Escreva(materias[linha]:11) Para coluna <- 1 Ate 4 Faca Escreva(notasBimestre[linha, coluna]:12:2) FimPara FimPara