Charley Rocha

@Phoenyx Você não entendeu o escopo do meu questionamento ainda, então vou ilustrar melhor: Eu pretendo jogar em VR, de forma que quanto mais possante a placa de vídeo, melhor. Não há limite de monitor nesse caso, e mesmo jogos leves puxam bastante da placa dependendo da configuração do Óculos. Tendo disto isto, sim a XT vai me dar um desempenho melhor, mas uma RTX 2080 TI tem um desempenho melhor ainda. A pergunta é: Até quando vale a pena o custo a mais? Você pagaria 5mil a mais por 10FPS a mais? e 4mil? e 3mil? Entende? Chega uma hora que você estará disposto a pagar X reais a mais por Y fps a mais. Não consigo ser mais claro que isso.

@Phoenyx Na verdade não é essa a abordagem que eu queria tomar. Eu entendo o raciocínio que você propôs, porque por exemplo se eu for jogar FullHD uma RTX 2080 Ti é desperdício e tal... Mas a abordagem que eu queria é: mesmo que eu seja capaz de usufruir ao máximo das 2 placas, vale a pena a diferença de preço pela diferença de desempenho? Se eu fosse considerar desempenho sozinho, eu compraria uma RTX 2080 Ti e pronto. Escolha simples. Mas o que eu quero é gastar bem o meu dinheiro, não pagando um absurdo a mais por poucos frames.

O problema é que muitas vezes a galera só fala "pega a XT", sem explicar nada. É uma resposta meio fácil, afinal o dinheiro não vai sair do bolso deles xD. Eu queria uma justificativa mais técnica para gastar o dinheiro a mais.

Você pode anexar uma cópia da planilha com dados fictícios... Agora, se você não quiser fazer isso, pode gravar a macro para imprimir apenas para o primeiro CPF. Depois, abra o editor de VBA faça os ajustes: Dim i as integer i = 1 Do While Planilha_com_os_CPFs.Range("A" & i) <> "" 'Aqui vão as linhas de código geradas na gravação da sua macro i = i + 1 Loop Você só precisa substituir "Planilha_com_os_CPFs" pelo nome da aba do Excel onde você busca os CPF's aí. EDIT: Esqueci de mencionar. Toda vez que aparecer "Planilha_com_os_CPFs.Range("A1")" no código gerado pela gravação você deve substituir por "Planilha_com_os_CPFs.Range("A" & i)", nos moldes do código que eu postei acima.

Vi essa loja somente hoje. Botei aqui porque está com o menor preço. Mas as lojas "famosas" estão com preços similares: Kabum! por exemplo.

Bem-vindo ao fórum. Gostaria de saber qual o seu conhecimento atual de VBA, pra eu sabe se posso só te mostrar o caminho das pedras ou se preciso escrever a macro toda pra você. Você já começou a escrever/gravar a macro? Seria interessante anexar uma cópia da planilha também, que facilita para te ajudarmos.

@Jonatas Faura Mas aí você está falando de valor a prazo não é? Porque eu tenho visto a RX 5700 bem mais barata, tipo essa aqui, em torno de R$1.700,00. Essa é a razão da minha dúvida, porque as RX 5700 XT estão em torno de R$2.200,00 à vista. R$500,00 é muita coisa, e pra justificar a diferença de rendimento teria que ser muito boa também. Por isso resolvi abrir esse tópico, porque talvez a galera mais experiência enxergue alguma coisa que justifique a diferença de preço que eu não esteja enxergando.

Pessoal, gostaria que bastante gente opinasse. A RX 5700 XT vale a diferença de preço com relação à não-XT?

Está boa sua configuração. Se fosse eu a comprar faria algumas adaptações: - Pegaria memórias de pelo menos 3000MHz, já que o preço caiu e a galera tem falado que os proc Ryzen se dão melhor com clocks de memória maiores; - Não compraria o watercooler (a não ser que você queira fazer overclock pesado no proc). Atualmente uso o coolerbox do Ryzen 3600 e atende muito bem. - Pegaria a RX 5700 XT, já que é mais barata que a RTX 2070 e tem desempenho ligeiramente melhor, como você pode ver nesse artigo.

O CdH é 99% de tudo que se pode querer em matéria de hardware. O que me surpreende é que até agora não tem nada sobre VR, que é uma tecnologia que represente o futuro dos games. Eu tenho um headset da ACER, Windows Mixed Reality, e embora eu não seja especialista de nada, posso contribuir um pouco com a minha experiência: Tenho um Ryzen 5 3600, que é um dos melhores processadores da atualidade (claro que há melhores, mas aí o custo explode). Esse proc é mais que suficiente para jogar em VR. O problema está na VGA: a minha atual é uma RX 580 8GB, bastante similar em desempenho com a GTX 1060 que você quer comprar. Ela leva numa boa qualquer jogo nas configurações padrão do VR (resolução nativa e gráficos no médio). O problema é que com essas configurações eu acho os gráficos meio toscos. É uma diferença gritante você assistir um monitor a ~50cm de distância ou usar um óculos a 10mm dos olhos. Por mais que a resolução do meu Acer seja teoricamente melhor que Full HD (2800x1400), a proximidade com os olhos faz a resolução parecer bem ruim. Os desenvolvedores contornaram esse problema com o SuperSampling, que é um multiplicador da resolução que você enxerga, tornando as arestas mais "agudas", e por consequência deixando o gráfico mais bonito e imersivo. O problema é que o SS joga um peso enorme para a placa de vídeo, porque se você bota o multiplicador em 1,4x por exemplo (a configuração que eu uso), a VGA é solicitada em 40% mais. É aí que eu acho que a GTX 1060 vai deixar a desejar, assim como a minha RX 580 urra para poder trabalhar nessa configuração. RESUMO: um Core i5 9500F ou um Ryzen 5 2600 (ou 3600) te atendem perfeitamente. Aqui mesmo no CdH você encontra recomendações de PC's completos com esses processadores. Vai ficar em torno de R$3.000,00 sem a VGA, talvez menos. Aí para VGA eu recomento você pegar uma melhor para poder desfrutar ao máximo do seu VR. Eu em breve pretendo pegar uma AMD RX 5700, que na minha opinião tem uma boa relação custo-benefício.

Boa tarde, Uso dois monitores na minha estação de trabalho na empresa: um Samsung e outro STi. Toda vez que ocorre alguma queda de energia o monitor STi não liga mais. Na primeira fez pensei que tivesse queimado, mas um cara aqui falou que depois de um tempo voltava ao normal. Duvidei de início, mas após uns 3 dias desligado da tomada ele voltou a funcionar sem mais nem menos. Acabou de acontecer outra queda aqui e ele entrou em "coma" de novo. Alguém saberia me informar o motivo de isso acontecer e o que eu posso fazer para resolver isso?

Boa tarde, Sugiro você ir nas configurações das suas TextBox e configurar a propriedade "Tab Index" delas. Já que a primeira caixa já vem selecionada, bota ela como "0". A do "CampoSenha" você bota como "1" (sem as aspas). Já para executar ao apertar "ENTER", configure o evento _keypress da sua textbox. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Chame_sua_função_aqui End Sub

Boa tarde, bem-vindo ao Fórum. Ao invés de usar a propriedade ".Range", utilize ".Cells(linha, coluna)". Ex: .Range("C9") é a mesma coisa que .Cells(9,3) Assim, fica fácil pra você manipular os índices das linhas e das colunas, inclusive até colocando expressões matemáticas inteiras dentro dos parênteses. No seu caso, você pode declarar uma variável "linha" como inteiro e atribuir a ela o valor de uma célula qualquer escondida na sua planilha. Essa célula conterá o valor do índice da linha que você quer editar, no exemplo de querer editar a célula "C9", esse valor seria 9. Assim, após o comando de "colar" do seu código você adiciona um comando que pega o valor daquela célula e soma um valor que você quiser, fazendo com que na próxima vez que for colar ele cole em uma célula diferente. Ex: colar em C9 e depois colar em C13: inicialmente o valor do índice da linha era 9. Após a execução do código você faz linha = linha + 4 (9 + 4 = 13). Na próxima vez que executar a macro ela vai colar em C13. Fica assim: Sub sessao16() ' ' sessao16 Macro ' ' Dim linha as Integer linha = Range("A1").value 'substitua A1 pela célula que você quiser Range("D5:AA5").Select Selection.Copy Sheets("Ficha Periodização A").Select Cells(linha, 3).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False linha = linha + 4 Range("A1") = linha 'substitua A1 pela célula que você quiser Sheets("FICHA COM PERIODO").Select End Sub

Bom dia Carvalho! Ficou assim: Public xEstoque As Worksheet Public xEntrada As Worksheet Public xSaida As Worksheet Sub Adiciona() Set xEstoque = ThisWorkbook.Sheets("ESTOQUE") Set xEntrada = ThisWorkbook.Sheets("ENTRADA") Set xSaida = ThisWorkbook.Sheets("SAIDA") Dim B As Integer Dim C As Integer B = InputBox("Digite o código do produto", "Adiciona Valor") C = InputBox("Digite o Valor de Entrada", "Adiciona valor") Dim Lin As Long Lin = xEstoque.Range("A" & xEstoque.Rows.Count).End(xlUp).Row For i = 2 To Lin If xEstoque.Cells(i, 1).Value = B Then xEstoque.Cells(i, 6).Value = xEstoque.Cells(i, 6).Value + C End If If xEntrada.Cells(i, 1).Value = B Then xEntrada.Cells(i, 5).Value = xEntrada.Cells(i, 5).Value + C End If If xSaida.Cells(i, 1).Value = B Then xSaida.Cells(i, 5).Value = xSaida.Cells(i, 5).Value + C End If Next End Sub Veja se desta forma te atende. EDIT: Lembre-se que VBA é muito bom, mas qualquer alteração que você for fazer na planilha, tipo adicionar/remover colunas, mesclar células, etc... é passível de você ter que entrar no código e adaptá-lo. Estoque.rar

Olhando para este teste parece que o custo-benefício da RX 5700 é melhor se comparado com a RX 5700 XT. Existe um bom motivo pra comprar a versão XT ou seria só esses 10% a mais de FPS mesmo?

Sugiro a leitura: https://www.clubedohardware.com.br/forums/topic/1357546-ryzen-vs-7ª-8ª-e-9ª-gerações-da-intel-por-que-optar-pela-amd-para-jogos/

Você colocaria essa linha logo abaixo de WFP.PrintOut E sim, como sua macro imprime 70 folhas, ela vai gerar 70 PDF's. Não tenho ideia de como mesclá-las em um único PDF via macro, mas sei que dá pra fazer isso depois pelo próprio Adobe Reader ou outro leitor de PDF que você use.

Bom dia! Eu uso a seguinte linha de código para exportar em pdf: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True Agora, aprendendo um pouco com seu código, a linha WPULinha = WP.Range("A" & Rows.Count).End(xlUp).Row faz exatamente o quê? EDIT: aqui está um link com os outros parâmetros permitidos para este comando.

Poderia postar seu código aqui por favor? Lembre-se de usar o botão "code" do editor.

É um problema ou não, dependendo do risco que eu estiver correndo. É meio uma relação custo/benefício. Por isso perguntei para tentar entender onde eu estou pisando.

Pretendo fazer isso daqui a pouco. Algumas dúvidas: 1. O procedimento demora? Li na internet que se der alguma queda de energia eu corro o risco de danificar permanentemente a mobo. Minha energia raramente cai, mas quanto maior o tempo maior o risco que eu corro. 2. É um procedimento vantajoso? Minha BIOS atual é a penúltima lançada. Fiquei com um pé atrás de atualizar para a última disponível (01/08/2019) e ela estar meio "beta" ainda. Li por aí que a atualização da BIOS só é recomendada em caso de enfrentar algum problema no uso do computador.

Atualizar a BIOS faz perder a garantia da mobo?

Peço perdão se você me entendeu mal. Pedir ajuda nunca é um problema, e via de regra as pessoas desse fórum sempre têm prazer em ajudar. O que eu propus foi você não simplesmente copiar e colar as soluções aqui propostas, mas tentar entender qual foi o raciocínio para o seu próprio crescimento e aprendizado. O problema que estava dando é que, uma vez que o 1º e-mail é enviado, o objeto Outmail deixa de existir, pois o Outlook fecha a janela de "novo e-mail" assim que ele é enviado. A solução foi colocar a linha "Set Outmail = ..." dentro do loop. Assim, para cada iteração ele cria um novo e-mail antes de tentar enviar. Teste por favor: Sub Workbook_Open() Dim OutApp As Object Dim OutMail As Object Dim texto As String Set OutApp = CreateObject("Outlook.Application") linha = 4 Do While Planilha6.Cells(linha, 11).Value <> "" If Planilha6.Cells(linha, 11).Value = Planilha6.Cells(linha, 10).Value Then texto = "Prezado(a)" & "," & vbCrLf & vbCrLf & _ " A CND Estadual da " & Planilha6.Cells(linha, 1) & "," & " Filial " & Planilha6.Cells(linha, 2) & "," & " emitida em " & _ Planilha6.Cells(linha, 8) & "," & " está vencendo ou vencida." & _ vbCrLf & vbCrLf & " Favor providenciar a renovação." & vbCrLf & vbCrLf & _ "Atenciosamente." & vbCrLf & vbCrLf & _ "Regularidade Fiscal" 'Debug.Print linha Set OutMail = OutApp.CreateItem(0) With OutMail .To = "[email protected]" .CC = "" .BCC = "" .Subject = " CND Estadual vencendo/vencida - " & Planilha6.Cells(linha, 1) & "," & " Filial - " & Planilha6.Cells(linha, 2) .Body = texto .Send 'Utilize Send para enviar o email sem abrir o Outlook End With End If linha = linha + 1 Loop Set OutMail = Nothing Set OutApp = Nothing End Sub

Bom dia! Você copiou o código de maneira errada dentro do objeto "EstaPastaDeTrabalho" do VBA. Deveria ter removido tanto a linha "Private Sub..." quanto o último "End Sub". Você tem 2 caminhos para escolher: 1. Você busca ajuda no fórum toda vez que precisar e nós ajudamos na medida do possível. Você copia e cola as soluções e não aprende com isso. 2. Você busca ajuda no fórum toda vez que precisar e nós ajudamos na medida do possível. Você procura entender a solução apresentada e estuda por sua conta paralelamente e vai aprendendo cada vez mais ao ponto de daqui a pouco ser você a estar ajudando os outros. Não é da minha conta o caminho que você vai escolher, mas eu digo por experiência própria que o segundo, além de ser mais gratificante, te valoriza como profissional e dá uma turbinada no seu currículo. O código ficou assim: Sub Workbook_Open() Dim OutApp As Object Dim OutMail As Object Dim texto As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) linha = 4 Do While Planilha6.Cells(linha, 11).Value <> "" If Planilha6.Cells(linha, 11).Value = Planilha6.Cells(linha, 10).Value Then texto = "Prezado(a)" & "," & vbCrLf & vbCrLf & _ " A CND Estadual da " & Planilha6.Cells(linha, 1) & "," & " Filial " & Planilha6.Cells(linha, 2) & "," & " emitida em " & _ Planilha6.Cells(linha, 8) & "," & " está vencendo ou vencida." & _ vbCrLf & vbCrLf & " Favor providenciar a renovação." & vbCrLf & vbCrLf & _ "Atenciosamente." & vbCrLf & vbCrLf & _ "Regularidade Fiscal" 'Debug.Print linha With OutMail .To = "[email protected]" .CC = "" .BCC = "" .Subject = " CND Estadual vencendo/vencida - " & Planilha6.Cells(linha, 1) & "," & " Filial - " & Planilha6.Cells(linha, 2) .Body = texto .Send 'Utilize Send para enviar o email sem abrir o Outlook End With End If linha = linha + 1 Loop Set OutMail = Nothing Set OutApp = Nothing End Sub Não pude testar colocando um e-mail real aqui pra ver se ele realmente envia. Mas testei a execução do loop do código e funciona. Entendendo o código: A partir da linha 4, a macro vai varrer todas as linhas da sua planilha checando se a célula da coluna J é igual à da coluna K. Ele vai repetir isso até encontrar uma célula em branco. Quando isso acontecer, o loop para. Cada vez que as células forem iguais ele dispara o e-mail com os critérios que você criou. Não mexi em nada disso. Encontre a planilha em anexo. Bons estudos e um abraço! CONTROLE CND'S.rar

Estou tendo o mesmo problema, e quando eu toco em uma parte metálica do gabinete a interferência diminui. O que devo fazer?