Charley Rocha

Bom dia, bem vindo ao fórum. Eu gostaria de entender como você vai usar essa planilha. Ao registrar a entrada de uma mercadoria, por exemplo "Álcool", você vai sempre na mesma linha e registra a entrada alterando a data ou você registra em uma nova linha? Resumindo, eu preciso saber se haverá apenas uma linha para cada produto ou se pode haver várias linhas para cada produto, onde cada linha corresponde a uma data de entrada.

@leandromgp Quando for postar seus códigos utilize o botão "Code" no editor. Evita esse tipo de erro no seu código

Mas tem que lembrar de adicionar o preço do cooler para o intel. O Ryzen já vem com um ótimo cooler.

@candidofla Dá uma olhada na minha última edição da resposta anterior. Se você colocar essa mesma macro na Sub Workbook_open( ), amanhã quando você abrir a planilha os e-mails serão enviados. Lembre-se que a "Workbook_open( )" deve estar no objeto "EstaPastaDeTrabalho" no editor do VBA Caso queira testar, faça as duas células com =HOJE( ), salve e feche a planilha e torne a abrir.

Eu entendi o que você falou e fiz um teste aqui que funcionou perfeitamente. Eu deixei uma célula com a fórmula =HOJE() e em outra célula digitei a data manualmente. Quando eu digito a data de hoje nessa outra célula os valores das duas células ficam iguais e a macro executa perfeitamente. O que eu ainda não entendi é a necessidade dessa condicional: If Target.Address = "$I$" & linha Then Outra coisa: em qual objeto do VBA você está colando esse código? EstaPastaDeTrabalho, Planilha1, etc...? EDIT: Segue anexo como exemplo. datas.rar PERDÃO!!! Só agora entendi (eu acho) o que você quer de fato! Faz o seguinte: Faça uma outra sub e copie a sua macro do jeito do que está e cole lá. Sub Workbook_Open() End Sub Ao abrir a planilha a macro deve ser executada.

Você tentou o que eu sugeri? Qual foi o resultado?

Bem vindo ao Fórum! Seu problema está aqui: If Target.Address = "$I$" & linha Then Sua macro só executa a verificação If Planilha11.Cells(linha, 16) = Planilha11.Cells(linha, 9) Then Quando o cursor aponta para a célula "I" & linha. Se você retirar esse primeiro "IF" deve funcionar.

Boa tarde MariR8, Como tudo no Excel, existem inúmeras maneiras diferentes de fazer o que você quer. A primeira que me veio à cabeça: Na primeira coluna, coloque as 40 linhas que você quer distribuir. Na segunda coluna, na primeira célula, coloque a fórmula: =INDIRETO("A"&5*(LIN(A1)-1)+COL(A1)) Depois arraste para baixo e para a direita conforme desejado. Entenda a fórmula: A função INDIRETO te permite "brincar" com o endereço da célula que você está referenciando. Nesse caso, colocamos uma expressão matemática para indicar que a primeira "pessoa" fica com os itens das células A1, A6, A11... LIN retorna o número da linha da célula: muito útil para poder arrastar a fórmula para baixo e ela ir mudando automaticamente. COL retorna o número da coluna da célula: muito útil para poder arrastar a fórmula para a direita e ela ir mudando automaticamente. ATENÇÃO: o número 5 é a chave dessa fórmula, porque indica o número de pessoas para as quais você quer distribuir os itens. Se for 10 pessoas, mude para 10 e assim sucessivamente. Espero ter ajudado. Segue um exemplo em anexo. Sorteio.xlsx

Pessoal, há um tempo venho escrevendo um programinha de cálculo em VB usando o Excel como fonte de dados e saída de relatórios. Até hoje vem dando tudo certo. Mas me deparei com um problema que vem me tirando o sono: em uma rotina, preciso que o excel preencha uma ficha modelo com valores de outras worksheets. Isso ele faz bem. Daí, preciso que ele copie essa ficha preenchida e cole na worksheet "Mem. Cabos", que será o relatório a ser impresso. Ele deve repetir a operação, sempre colando uma ficha abaixo da outra, assim formando o relatório. Para que a formatação fique bacana na hora de imprimir, bolei um algoritmo para que ele conte as linhas ocupadas e pule para a próxima página quando o número de linhas restantes não for suficiente para colar a próxima ficha, evitando que parte da ficha fique numa página e parte na página seguinte. Agora o problema: Como essa operação toda é feita via um programa executável em VB, o excel opera em plano de fundo (application.visible = false). Mas se eu executo a rotina dessa forma, na hora de pular de página ele cola no lugar errado. (no caso a primeira coisa que ele deve colar na segunda página é o cabeçalho, para depois colar mais fichas). Agora, se eu pauso a execução do programa e faço Application.visible = true, expondo as planilhas do Excel, ele roda perfeitamente, colando tudo onde deve ser. Segue o trecho do código e anexos: With xlsm.Worksheets("Template Cabos") .Activate .Range(Cells(1, 1), Cells(5, 36 + ONS)).Select .Range("A1:AJ5").Copy End With With xlsm.Worksheets("Mem. Cabos") .Activate Cells(lin, 1).Select .Paste lin = lin + 6 If (lin + 6) > (pag * 33) Then 'Checa se cabe outra ficha na página lin = pag * 33 + 1 'Se não couber, o marcador "lin" vai pro topo da pág. 2 .Range("A1:AJ5").Copy 'Copia o cabeçalho da pág. 1 Cells(lin, 1).Select .Paste 'Cola no topo da pág. 2 pag = pag + 1 'Sinaliza que agora o relatório tem 2 páginas Cells(lin + 4, 35).Value = pag 'Escreve "2" no campo "Pág." do cabeçalho da pág. 2 lin = lin + 7 'Move o marcador 7 linhas abaixo para receber a próx. ficha End If End With Relatório CORRETO.pdf Relatório ERRADO.pdf

Ah sim... como eu sou leigo no assunto eu entendi que "partição" era gerada somente quando o windows era instalado. Aprendi uma coisa nova. Infelizmente estou no trabalho agora e só vou conseguir te enviar a foto quando chegar em casa. Mas agradeço desde já pela ajuda.

Então, esse HD nunca teve windows instalado nele, então não tem partição nenhuma. Daí o meu medo.

Bom dia pessoal, Eu retirei o HD de um computador e quero colocar outro, porém este HD que eu quero colocar está com alguns arquivos como fotos, vídeos, etc. mas não tem o windows instalado. Queria saber se eu consigo colocar o instalador do windows nele (ou num pendrive) e instalar o windows nesse HD sem inutilizar/apagar/corromper de qualquer maneira os arquivos já contidos nele. Grato.

Alguém pode me ajudar nisso por favor?

Update: Consegui resetar a bios da placa-mãe. Pesquisando um pouco na internet, li relatos de pessoas com o mesmo problema e uma das soluções foi trocar as memórias de slots. As minhas estavam nos slots "A1" e "B1" e troquei para "A2" e "B2". Aliás, esta é a recomendação do manual da mobo também. Fazendo isso, a bios já reconheceu no DCOP o clock de 3000MHz e as latências das memórias automaticamente. Resolvido? Não. Ao ativar o DCOP o sistema não dá boot do mesmo jeito. Tenho que resetar a bios de novo e ele só dá boot a 2666Mhz. Não sei mais o que fazer.

@Math.Pi , bom dia! Então, cheguei em casa ontem e fui mexer nos parâmetros da bios. As telas são meio confusas e não achei "DOCP" propriamente dito. Cheguei numa tela de overclock e botei a memória a 3000MHz. Agora o pc não quer ligar mais. Nem chega na tela da bios pra eu poder voltar às configurações anteriores. Tem alguma maneira de eu "resetar" a bios?

Chegando em casa vou testar. Obrigado!

O que é isso?

Pessoal, eu comprei a máquina conforme descrito acima. Porém a memória que teoricamente é de 3000MHz está como 2666MHz na bios. Tentei mudar manualmente para 3000MHz mas o sistema não inicia, aí tive que voltar para a configuração anterior. Alguém saberia me instruir nesse caso?

Está rodando a quantos FPS? Se for um número maior que a taxa de atualização do seu monitor você pode ativar o V-sync para tentar dar uma folga para o seu processador e evitar o stuttering (essas engasgadas). PS: Pra fazer vocês rirem: quando era mais novo fiz um upgrade na minha placa de vídeo. Mas ao invés de melhorar, piorou MUITO todos os jogos. Xinguei a loja de tudo o quanto é nome... e no fim das contas eu tinha ligado o cabo do monitor direto na placa-mãe quando voltou da loja, ao invés de ligar na placa de vídeo... A placa de vídeo nova estava lá o tempo todo e eu usando a onboard kkkkkk

Pessoal, finalizei a compra do meu PC, mas não montaram ainda. Estou grilado com essa memória, então resolvi perguntar porque dá tempo de trocar por outra ainda: - placa-mãe Asus TUF B450M-PLUS GAMING Chipset B450 AMD AM4 mATX DDR4 - Processador AMD Ryzen 5 3600 3.6GHz (4.2GHz Turbo) 6-Core 12-Thread Cooler Wraith Stealth AM4 S/ Video - Memória DDR4 XPG Gammix D10 8GB 3000Mhz - Fonte Corsair CX550M 550W, 80 Plus Bronze, PFC Ativo, Semi Modular - Gabinete Gamer DeepCool E-Shield Mid Tower Com 1 Fan Back S-Fonte - HD Toshiba P300 1TB, Sata III, 7200RPM, 64MB - SSD Kingston A1000 240GB, M.2 2280, Leitura 1.500MBs e Gravação 800MBs Ela é boa? Casa bem com o setup?

Obrigado pela força! @Hanner

Realmente. O meu atual tem uma Fan na frente, aí eu queria um que também tivesse porque eu acho importante para o fluxo de ar, mas não adianta nada se tiver um freaking painel de vidro na frente né... Tem esse aqui que possui as fans frontais e é furadinho. O que acha? https://www.terabyteshop.com.br/produto/11514/gabinete-gamer-deepcool-e-shield-mid-tower-com-1-fan-back-s-fonte-dp-atx-e-shield E esse aqui que eu achei mais chamativo (pensando numa futura venda hehe) https://www.terabyteshop.com.br/produto/8818/gabinete-pcyes-vti-black-blue-cjanela-mid-tower

Alguém pode me ajudar na escolha do gabinete para essa máquina? Não tenho a menor ideia de como escolher... A princípio pensei nesse: https://www.terabyteshop.com.br/produto/8663/gabinete-gamer-gamemax-elysium-g503x-bk-mid-tower-preto-sfonte-cled O que acham? @Hanner, @PeterGriffin, @Angern

Obrigado por compartilhar a sua experiência. Realmente o 1600 é mais barato, mas meu medo com relação a ele é que dizem que pra jogar com VR legal o ideal é pegar 90 FPS... Fico com medo de ele não dar conta de segurar essa taxa constantemente. Faz sentido isso?

Eu pensei nessa possibilidade. Pensei até em gastar um pouco mais e pegar um Ryzen da linha 3000. Mas como eu só jogo em FHD e vou começar com VR, um processador muito potente não ia ficar muito tempo "desperdiçado"? No futuro, quando chegar a hora de trocar de óculos VR e de placa de vídeo por terem ficado obsoletos, o processador, por mais que dê conta do recado, já vai estar no mínimo quase obsoleto. Será que compensa investir mais agora?