Kleber Bispo

14 minutos atrás, Felipe Antunes disse:

Bom dia senhores!

Um amigo está precisando montar um pc para escritório,me disse que tinha esse valor disponível e queria montar um desktop que fosse duradouro.

O que vocês indicam?

obs: Ele vai precisar pegar um monitor também,gostaria de saber se compensa comprar uns 2 monitores usados para uso ou se comprar usado seria furada?

Desde já,Grato a ajuda!

 

@Felipe Antunes Ele vai usar o pc para internet e aplicativos de escritório? Nada de reenderização, tratamento de imagens e videos, correto? Se for isso, uma Apu da Amd é suficiente.

Quanto aos monitores, pode ser uma boa comprar usado. Com a chhegada das novas placas de video e videogames, uma galera vai trocar seus monitores por outros melhores, mesmo ainda tendo bons equipamentos. Vale a pena ficar de olho.

Mas dois mil reais hoje em dia, está bem apertado o orçamento. 

Olá, bom dia!

É possivel gravar uma aula transmitida pelo zoom, mesmo que o zoom esteja em segundo plano na tela do computador? Estou tendo algumas aulas que estão sendo transmitidas por essa plataforma, mas o horário conflita com meu expediente de trabalho. Eu gostaria de gravar as aulas para assistir no fim do dia. O Host não disponibiliza a gravação das reuniões.

Se alguém puder dar uma dica, ficarei muito agradecido!

@sharzak  você acha que uma Gygabyte ab350m ds3h v2 aguenta? No site da placa diz que sim, mas sei lá?

21 minutos atrás, sharzak disse:

Para segurar este, depende da placa-mãe, principalmente se for fazer over...

Pessoal, beleza? Vou descolar um Ryzen 2700x, mas virá sem um cooler. Qual vcs me recomendam? Não faço ideia de qual comprar?

Não ligo pra rgb e tal e até preferiria algo mais discreto. Mas gostaria que fosse alguma solução silenciosa.

Se alguém puder fazer alguma indicação, eu agradeço! 

@RS Faria  Esse processador está R$ 900,00 na Pichau

https://www.pichau.com.br/hardware/processadores/intel/processador-intel-core-i3-10100-quad-core-3-6ghz-4-3ghz-turbo-6mb-cache-lga1200-bx8070110100

20 horas atrás, Cabral Cabrone disse:

meu amigo quer desapegar de algumas coisas para reformar a casa e me ofereceu o pc dele por r$ 2.500, dizendo ele que não é um pc top mas pelo preço era uma boa para mim, não entendo muito dessa área e fiquei na dúvida, essa é a config q ele me mandou:

 

processador intel core i3-10100 quad-core 3.6ghz (4.3ghz turbo) 6mb cache lga1200, bx8070110100

placa-mãe gigabyte h410m s2h ddr4 socket lga1200 chipset intel h410

memoria team group t-force vulcan pichau rtb 8gb (1x8) ddr4 3000mhz branca, tlpbd48g3000hc16c01 (x1)

placa de vídeo gigabyte geforce gtx 1650 d6 oc low profile 4gb 128-bit, gv-n1656oc-4gl

ssd: lexar ns100 128gb 2.5" sata iii 6gb/s, lns100-128rb

hd: seagate barracuda 1tb 3.5" sata iii 6gb/s, st1000dm010

fonte 400w

 

eu usaria o pc para executar programas de trabalho mais simples e talvez jogar um cs go com a galera

@Cabral Cabrone Mano, fiz uma pesquisa na net bem rápida, clicando sempre nos primeiros links que apareciam e essa config ficaria +/- R$ 3.500 + o valor de uma fonte. 

24 minutos atrás, Sr Yoshikage disse:

tem um aplicativo chamado cpu-z que aparece o modelo das memórias, sobre a fonte é só abrindo o gabinete pra ver pelo o que eu saiba hasauhsuas.

Sobre o orçamento, supondo que as memórias são compativeis com os processadores da amd eu iria de ryzen 3 3100(R$849,90 pichau) + B350(Kabum R$519,90), o 9100f é melhor que o 3100 em jogos(margem miníma), porém você vai ter possibilidades de upgrade bem maior( 3700x no futuro por exemplo), e essa 9° geração da intel não é muito bem falada.. mas ai é você quem sabe. Baixa o programa e manda o modelo das memorias pra gente ver

@Sr Yoshikage  O que você acha? Não seria interessante o colega comprar essa placa A520 por R$ 650,00 + Ryzen 3100 por 850. Daí no futuro, ele já teria placa-mãe atualizada para fazer upgrade para os novos processadores 5000 e talvez 6000.

https://www.kabum.com.br/cgi-local/site/produtos/descricao_ofertas.cgi?codigo=118917

13 minutos atrás, Q_Qm disse:

Ganhei uma rx 580 4gb, mas aí tô precisando de um processador custo/benefício pra essa placa de vídeo. Ryzen 5 3600 é demais, né?um ryzen 5 1600 estaria bom já, sla?

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

Em 12/08/2020 às 09:53, Midori disse:

A função Split quebra a string Registro e retorno um vetor com as partes separadas por ;.

 

UBound vai retornar o tamanho desse vetor.

 

Peguei o ; como separador porque parece ser o padrão de colunas do seu arquivo.

 

Para organizar o código e facilitar a comparação acho melhor você atribuir variáveis com os nomes dos campos em vez de usar só Split, p.ex.

 

Type Cadastro
    Nome        As String
    EstadoCivil As String
    Idade       As String
    Codigo      As Variant
End Type

Sub Importa_Txt()
Dim C           As Cadastro
Dim Registro    As String
Dim Arquivo     As Variant
Dim L           As Long
Dim U           As Integer

Arquivo = Application.GetOpenFilename("Arquivo de Texto (*.txt),*.txt", Title:="Escolha o arquivo desejado")

Open Arquivo For Input As #1

L = 5

Do Until EOF(1)
    Line Input #1, Registro
    U = UBound(Split(Registro, ";"))
    
    C.Nome = Split(Registro, ";")(0)
    C.Idade = Split(Registro, ";")(1)
    C.EstadoCivil = Split(Registro, ";")(3)
    C.Codigo = ""
    
    If U >= 20 Then
        If Split(Registro, ";")(20) = "999" Then C.Codigo = CDbl(Split(Registro, ";")(11) / -100)
    End If
    
    If U >= 22 Then
        If Split(Registro, ";")(22) = "999" Then C.Codigo = CDbl(Split(Registro, ";")(11) / 100)
    End If
    
    If C.Codigo <> "" Then
        L = L + 1
        Cells(L, 1) = C.Nome
        Cells(L, 2) = C.Idade
        Cells(L, 3) = C.EstadoCivil
        Cells(L, 4) = C.Codigo
    End If
Loop

Close #1
End Sub

 

@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

28 minutos atrás, Edson Luiz Branco disse:

Seu anexo não está baixando, @Kleber Bispo

Edson, bom dia!

Eu corrigi o anexo. Você poderia dar uma olhadinha, por gentileza?

Nova pasta.zip

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

24 minutos atrás, Midori disse:

@Kleber Bispo  Edite o caminho correto do arquivo e índice do campo se for preciso.

 

Neste caso o índice 0 é nome, 1 idade e 3 estado civil

 

Sub Macro()
    Dim Registro    As String
    Dim L           As Long
     
    Open "C:\Exemplo.txt" For Input As #1
    
    Do Until EOF(1)
        Line Input #1, Registro
            If Split(Registro, ";")(3) = "solteiro" Then
                L = L + 1
                Cells(L, 1) = Split(Registro, ";")(0)
                Cells(L, 2) = Split(Registro, ";")(1)
                Cells(L, 3) = Split(Registro, ";")(3)
            End If
    Loop
    
    Close #1
End Sub

 

@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.