Kleber Bispo

Andei pesquisando processadores e percebi que o Ryzen 1600AF está em falta no mercado. Só encontrei o Ryzen 3100 na pichau por R$ 850,00 à vista. Dai encontrei esse grupo de descontos e lá mandaram uma promoção de processador vindo China pelo Aliexpress. Um ryzen 2700x por R$ 1.059,00 e pode parcelar em até 6 vezes. Vi nos comentarios, pessoal falando que já comprou desse mesmo vendedor e produto chegou em 11 dias. Estou pensando seriamente em tentar. Dá uma olhada. https://www.pelando.com.br/ofertas/ryzen-7-2700x-506341

@Midori Na ocasião, consegui gerar a macro que me atendesse, graças a sua ajuda. Muito obrigado!

Eu não consegui encontrar o erro. Fiz uma instalação nova do windows e funcionou.

Pessoal, conheci o serviço de virtualização e criei uma máquina linux no virtualbox para estudar. Utilizei normal por alguns dias, mas hoje, ao clicar no ícone do programa ocorre um erro e ele não abre. Alguém já passou por esse problema. Já desinstalei e instalei novamente, abri como administrador, mas não funciona. No anexo vou printar o pop-up que aparece. De antemão, já agradeço a ajuda

@Midori Corrigi, tirei a variável e deixei apenas o 1, mas o erro persiste. Não consegui entender a lógica do Ubound dentro do Loop. Alterei o código como abaixo, mas na mesma linha que dava o erro anterior, agora entra em loop infinito. Sub Importa_Txt() Dim Registro As String Dim Arquivo As Variant Dim L As Long Dim U As Long Dim W As Worksheet Set W = Planilha1 W.Select Arquivo = Application.GetOpenFilename("Arquivo de Texto (*.txt),*.txt", Title:="Escolha o arquivo desejado") If Arquivo = "" Or Arquivo = False Then MsgBox "Arquivo de texto não selecionado. Processo abortado", vbOKOnly, "Planilha Modelo" Exit Sub End If Open Arquivo For Input As #1 L = 5 Do Until EOF(1) Line Input #1, Registro U = UBound(Split(Registro, ";")) If U >= 22 Then If Split(Registro, ";")(20) = "999" Or Split(Registro, ";")(22) = "999" Then L = L + 1 Cells(L, 2) = Split(Registro, ";")(6) Cells(L, 3) = Split(Registro, ";")(1) Cells(L, 4) = Split(Registro, ";")(2) Cells(L, 5) = Split(Registro, ";")(3) Cells(L, 7) = Split(Registro, ";")(10) Cells(L, 8) = Split(Registro, ";")(12) Cells(L, 9) = Split(Registro, ";")(16) Cells(L, 10) = Split(Registro, ";")(17) Cells(L, 11) = Split(Registro, ";")(20) Cells(L, 12) = Split(Registro, ";")(18) Cells(L, 13) = Split(Registro, ";")(19) Cells(L, 14) = Split(Registro, ";")(22) Cells(L, 15) = Split(Registro, ";")(24) If Split(Registro, ";")(20) = "999" Then With Cells(L, 6) .Value = CDbl(Split(Registro, ";")(11) / -100) .NumberFormat = "#,##0.00" End With Else With Cells(L, 6) .Value = CDbl(Split(Registro, ";")(11) / 100) .NumberFormat = "#,##0.00" End With End If End If End If Loop Close #1 MsgBox "Arquivo importado", , "Planilha Modelo" End Sub

Edson, bom dia! Eu corrigi o anexo. Você poderia dar uma olhadinha, por gentileza? Nova pasta.zip adicionado 0 minutos depois

Anexa o arquivo. Fica melhor para entender o que você quer.

Prezados, tudo bem! Estou importando um arquivo txt para o excel via VBA. O código começa normal, mas após preencher a linha 225 da minha planilha ocorre um erro de tempo de execução '9' - subscrito fora do intervalo. No anexo, tem o print dos erros que ocorreram, o modelo do txt e da planilha que estou utilizando Alguém já enfrentou esse problema? Muito Obrigado! Nova pasta.zip

@Midori Obrigado pelo retorno. Vi que no momento que abre o arquivo, passou o parametro (acho que é um parametro): For Input as #1 e depois esse #1, utilizou no Do Until e na primeira linha depois do Do Until. Eu conseguiria utilizar o GetOpenFileName para abrir mais de um txt? como é possivel adaptar esse #1? Não entendi para que ele serve. Desculpa se eu estiver abusando...

Olá, Preciso importar diariamente um txt que possui mais de 2 milhoes de linhas, mas na verdade uso por volta de 20.000 registros. como eu conseguiria importar apenas os registros se um determinado campo obedecer a uma condição? Por exemplo no txt em anexo, eu gostaria de importar apenas os registros que no campo estado civil estiver excrito "solteiro". E não precisaria importar todos os dados da mesma linha, por exemplo, só traria o nome, idade e estado civil. Obrigado! exemplo.txt

Pessoal, tudo bem?! Tenho que montar uma tabela de procura e referência. Eu conseguiria fazer utilizando o procv se a base de procura fosse baseada em uma única coluna, mas o retorno tem que ocorrer baseado em duas filtragens de coluna e não faço ideia de como fazer. Por exemplo tenho n lojas, com n produtos e precisaria buscar o resultado por loja dos produtos (sabendo que nem todas as lojas tem todos os produtos) Anexei um exemplo Busca e Referencia Duas Linhas e uma coluna.xlsx

Jms, Existe uma função chamada Transpor. Se não quiser utilizar a função, pode copiar, colar especial, valores, transpor.