AdrianoKbcao

Obrigado, funcionou, era isso mesmo. Para o meu caso tive apenas que alterar ThisWorkbook. para ActiveWorkbook.

Olá, Gostaria de criar um macro para salvar o arquivo em pdf, super simples, equivalente a simplesmente clicar em Salvar Como e pdf: 1 - Nome do pdf é o próprio nome do arquivo excel 2- Local para salvar é o mesmo em que se encontra o arquivo excel. Sim, preciso de um macro para isso devido nível do usuário. Por similaridade com outros macros que já usei tentei esse aqui: Dim Nome As String Nome = ThisWorkbook.Name ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Nome & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Porém, o arquivo em pdf fica com a extensão no nome. Exemplo: Arquivo12.xlsm.pdf Então preciso que esse .xlsm não fique no nome do arquivo. Grato

Voltando para atualizar o tópico, e infelizmente não obtive o sucesso esperado =( Troquei o HD (de 750GB para um de 500GB), limpei o ps3 por dentro e troquei a pasta térmica por uma artic cooling MX-4, utilizando vários tutorias da internet. Inicialmente tudo estava ótimo, ps3 funcionando como novo, mais silencioso do que nunca, sem nenhum tipo de travamento ou lentidão anormal. Mas após apenas 1 semana o problema de desligamento com 3 bips voltou a ocorrer. E assim como ocorria antes, o primeiro desligamento foi com menos de 1 minuto após ligar o console (ou seja, frio) enquanto ainda estava no XMB antes de abrir qualquer jogo ou programa. Em jogos mais leves, como jogos 2D ou 3D indies, ou no netflix dificilmente o console se desliga, mas em jogos mais pesados o desligamento é praticamente certo. Instalei o Deus EX HR e as 2 vezes que tentei jogá-lo o ps3 desligou com 3 bips menos de 10 segundos depois da cutscene inicial do jogo.

@joanes carvalho será? Era exatamente isso que ia fazer. Trocar hd, limpar e trocar a pasta térmica. Só não fiz ainda porque não encontrei o HD e pasta térmica boa aqui em Cotia (mesma cidade que você mora). Mas já gastei 50 reais com um jogo de chave torx com furo e vou comprar o resto no MercadoLivre. Vai ser de lascar gastar uns 500 reais com tudo e não funcionar mesmo assim.

@Focus942 Não sei se paro o scan ou não, já está a mais de 14 horas rodando, e ja há umas 7 horas no 591GB. O led do adaptador usb não está mais piscando como estava no começo. adicionado 26 minutos depois Realmente. Cancelei o scan, comecei de novo já na posição 587GB, e ele vai bem até chegar no 589, quando começa a dar erro e o scan fica extremamente lento. Até o led indicador do hd do adaptador usb para de piscar quando chega nessa posição. Isso quer dizer que o HD já era mesmo? Esse log anexo é do scan que interrompi no 591 GB Grato log error scan.txt

@Focus942 obrigado pela resposta. Ok, amanhã abro ele quando conseguir a chave. Quanto ao HD, quando reiniciei o HD tune, ele o reconheceu (mesmo ainda não aparecendo no meu computador, mas já vi a sua dica de como fazer, mas isso irá formatá-lo novamente). No HD Tune, vi na aba Health, só tem um item com "warning". Calibration Retry Count, como na imagem abaixo. Mas não faço ideia do que isso significa haha. Pedi pra ele fazer um Error Scan, pelo jeito é vai demorar muuiiito a 30MB/s, quando acabar posto os resultados aqui.

Olá @Focus942 Quanto a limpa-lo seria só por causa de super aquecimento? Pois como eu disse isso acontece mesmo quando ele está frio, quando o ligo pela primeira vez no dia. Dei uma limpada por fora onde pude, mas por dentro nao consigo no momento pois não tenho uma chave de Torx T8 com furo para abri-lo. Talvez eu compre amanhã. Quanto ao HD, tirei, coloquei num adaptador que tenho e liguei no notebook, ele reconheceu o dispositivo, aparece no gerecenciador, mas não aparece como unidade no "Meu computador". Não sei se é pelo sistema que o ps3 formatou ele, ou se tem outro motivo. Fui ver se dava para atribuir uma letra de unidade pelo gerenciador do computador, mas não aparece essa opção para ele. Veja como ele aparece na imagem anexa. Vai perceber pelo tamanho dele tb que não é o HD original, troquei há uns 3 anos para ganhar mais espaço, além de suspeitar que ele não estava bem das pernas. Mas novamente, na minha opinião de *****, não entendo como o problema poderia ser o HD se mesmo no " " DOS " " (com muitas aspas) do ps3 eu percebi travamentos apenas passeando pelas opções.

Meu ps3 slim deve ter uns 5 anos e há uns 2 anos q já venho notando uma certa lentidão ao iniciar e problemas como travamentos e ele se desligar sozinho principalmente em jogos mais pesados como the last of us e gta5. Esses problemas aconteciam mesmo com o ps3 frio (quando acabo de ligar). Ontem o ps3 se desligou 4 vezes seguidas exatamente quando estava na mesma parte do Resident Evil revelations 2. Depois disso, ao ligar ele só ficava na tela preta e não saia disso. Entrei no modo de segurança e tentei fazer restauração dos arquivos (opções 3 e 4 acho). Mas ele ficou mais de hora no "preparando, aguarde", então reiniciei e mandei formatar. Percebi muito travamento mesmo no menu de formatação (antes de conseguir escolher uma opção a tela ficava travada por aprox. 1 minuto). Achei isso estranho, mas continuei. Logo no primeiro início após formatação percebi o ps3 bem pior do que ele estava antes dos travamentos no resident evil. Agora não apenas a navegação está lenta no menu XMB como ele da umas travadas de até 1 minuto a cada 30 segundos, e qualquer programa (netflix por exemplo) demora tipo uns 5 minutos para abrir. Quando ligo o ps3 está demorando tb uns 5 minutos antes de entrar no xmb, isso quando não trava direto e tenho q forçar o reinício. Qual deve ser o problema? Software acho q não pode ser porque formatei o HD. O próprio HD tb não acho que deve ser o problema (ou o único problema) pois nos menus de formatação e essas coisas pelo q sei o ps3 usa uma outra memória interna isolada, e mesmo assim estava travando. Alguém já passou por isso? Estou errado nos meus palpites? o que eu faço? Grato.

@Basole Valeu mais uma vez. Agora parece que ficou certinho como queria, obrigado. Único detalhe que percebi agora é que para adicionar nova linha, fiz um macro que abre um formulário, e quando o usuário digita no formulário a informação da coluna B, o número não é gerado na coluna A, só se ele reinserir a informação. Consegue corrigir isso? Agradeço novamente pela ajuda. Planilha anexa. Controle de Pedidos de Venda.zip

@Basole Entendi um pouco melhor agora. Obrigado. Então eu fui no vba, inseri um novo módulo e colei o primeiro código que você passou, depois ainda no vba dei 2 clicks no nome da planilha que queria aplicar e inseri o segundo código que você passou e funcionou como você descreveu. Toda vez que insiro um valor na coluna B, ele insere um valor sequencial na coluna A. O problema é que toda vez que altero qualquer informação em qualquer coluna B, ele atualiza o valor na A daquela linha, então bagunça toda a numeração. Eu queria que uma vez que é dado um número em uma linha, ele não inserisse novamente. Talvez se desse pra colocar uma condição que ele só vai inserir o número se a coluna A estiver vazia ou algo do tipo. É possível? Grato

@Basole Obrigado pela resposta, mas não entendi onde devo colocar esse código. Até hoje só usei linhas de códigos no excel em macros. Grato

Boa tarde. Tenho uma planilha de controle de pedidos no excel onde eu gostaria que a cada nova linha digitada, fosse gerado automaticamente na coluna A um número sequencial único desse novo pedido. Fazer isso é muito simples usando fórmulas como A1+1, LIN, MAIOR, etc. O problema é que se eu excluo uma linha (pedido cancelado) ou eu classifico a minha planilha por data ou produto, os números são alterados. embaralhados, ou dão erro. Eu gostaria que a partir do momento que o número é dado para aquela linha, ele continue fixo aos dados daquela linha, independente do que aconteça. E que como falei anteriormente, seja gerado automaticamente. É possível? Grato

Olá pessoal, Estou tentando criar um macro que entre outras coisas, copia e cola os dados de uma planilha matriz em outra mais simples. Como os valores são puxados por fórmulas (procv, índice, etc.) criei um passo a mais apenas para copiar e colar os valores em outras células, assim quando mandar a planilha por email para alguém por exemplo, não retornará erro nas células por não enviar a planilha matriz junto. Estou a 3 dias mexendo nessa planilha e parece que ela está fazendo tudo que quero, exceto copiar e colar os valores. Não sei o que acontece, se crio um macro simples só pra testar copiar e colar valores, funciona, mas quando uso nesta pasta do excel, não funciona. A rotina em questão é essa: Range("L6").Select Selection.Copy Range("S6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False O macro completo é esse: ' Macro8 Macro ' ' Sheets("Pedido de Compras").Visible = True Columns("J:AC").Select Range("AC1").Activate Selection.EntireColumn.Hidden = False Range("S6").Select Selection.ClearContents Range("U6").Select Selection.ClearContents Range("W6").Select Selection.ClearContents Range("X9:AB16").Select Selection.ClearContents Range("L6").Select Selection.Copy Range("S6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("N6").Select Application.CutCopyMode = False Selection.Copy Range("U6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("P6").Select Application.CutCopyMode = False Selection.Copy Range("W6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("R9:V16").Select Application.CutCopyMode = False Selection.Copy Range("X9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("K:AB").Select Range("AB1").Activate Selection.EntireColumn.Hidden = True Range("A8:C8").Select Application.CutCopyMode = False Sheets("Controle PC").Select Columns("A:AC").Select Range("AC1").Activate Selection.EntireColumn.Hidden = False Dim Nome As String Nome = Worksheets("Controle PC").Range("J1") Sheets("Pedido de Compras").Select Sheets("Pedido de Compras").Copy ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path & "\PC" & Nome & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False Windows("Controle de Pedidos de Compra.xlsm").Activate Sheets("Pedido de Compras").Select Sheets("Pedido de Compras").Visible = False 'ActiveWindow.SelectedSheets.Visible = False Sheets("Controle PC").Select Columns("N:P").Select Selection.EntireColumn.Hidden = True Range("A4").Select End Sub Reparem que até acrescentei uns passos para deletar os dados das células antes de colar nela, caso o problema fosse que não pudesse "sobrescreve-las" Planilha em anexo, caso ajude. Por favor me ajudem. Grato Controle de Pedidos de Compra.rar adicionado 52 minutos depois Descobri o problema pelo Depurador. Quando eu exibia a planilha oculta, o excel não estava selecionando-a. o que achei estranho pois essa parte da programação o excel devia ter feito sozinho (criei o macro pelo excel e editei pelo vba as partes que precisava). então bastou acrescentar algo assim na segunda linha: Sheets("Controle PC").Select