rodolfofaria

Galera, beleza? Gostaria de converter alguns vídeos em mp4 que estão em 1080p para 720p sem mexer em mais nenhuma configuração. Nada de filtros, enconding, codecs, x264, h264, nada disso. Só quero diminuir o tamanho da imagem para economizar espaço, de maneira que o tamanho do arquivo diminua proporcionalmente a essa diminuição (por volta de 2 X). E não quero alterar mais nada para que o tempo da conversão não fique muito extenso. Alguém sabe de algum programa grátis que consiga fazer isso? Encontrei alguns programas pagos, mas achei eles muitos caros, além de estar sem grana agora. Só encontrei programas grátis que não oferecem a opção de não usar nenhum encoding e que oferem a mudança de formato Desde já agradeço

Atualização da minha postagem anterior: Consegui mexer normalmente no Secret Zone do meu HD da Samsung no Windows 10 em outro PC depois de atualizar o Samsung Drive Manager. No Windows 7, essa atualização não deve ser feita, principalmente se estiver tudo funcionando normalmente. Portanto, a dica de não atualizar o Samsung Drive Manager na minha postagem anterior serve para o Windows 7, somente.

Para que está tendo um problema parecido: * Mantenha os arquivos originais no HD. Quando for formatar, copie-os para um pasta e coloque nele de novo depois do processo de formatação * NÃO ATUALIZE o Samsung Drive Maneger * Caso o HD pare de funcionar corretamente, desistale o Samsung Drive Manager e instale de novo

Para que está tendo um problema parecido: * Mantenha os arquivos originais no HD. Quando for formatar, copie-os para um pasta e coloque nele de novo depois do processo de formatação * Não atualize o Samsung Drive Maneger * Caso o HD pare de funcionar corretamente desistale o Samsung Drive Manager e instale de novo

Valeu galera. Não foi preciso desinstalar nada, o problema parece ter se resolvido sozinho. Além disso não gosto muito de deixar de manter o Windows atualizado. Se não estivesse funcionando direitinho, aí sim eu teria que buscar essa solução. Valeu!

Bem, descobri que o problema é somente relacionado aos arquivos que eu tinha antes de formatar o pc. Só não entendo o porquê. Deletei todas as macros dos arquivos, salvei em xlsx, fiz as macros novamente e salvei em xlsm. Deu certo, menos mal. O problema é se eu tiver que fazer isso toda vez que formatar o pc. Se fossem muito arquivos e com mais macros eu teria perdido muito tempo. Pelo menos só tive que copiar e colar os códigos das macros. Bem galera, acho que agora chega de problemas com as minhas macros. Obrigado pela ajuda, principalmente ao Nylon Woody que me apresentou a solução que resolveu meu primeiro problema, e que me ajudou a desencanar pra gravidade do segundo. Valeu!

É, pelo jeito a solução seria reinstalar o Excel mesmo... Obrigado novamente Nylon Woody

E ai galera Como dito na minha postagem anterior, eu tinha conseguido resolver o problema Só que hoje formatei meu pc, e depois de instalar o Excel e configurar pra habilitar as macro e etc um problema parecido está acontecendo Mas agora não consigo executar as macros do botões e fica acusando um erro: Erro em tempo de execução 32809 Erro de definição de aplicativo ou de definição de objeto Agora deletar aqueles arquivo MSForms.exd não resolve, sendo que quando eu abro uma planila .xlsm eles voltam a ser criados Alguém sabe a solução para esse novo problema?

Resolvido! Era isso mesmo, foi só excluir tudo da pasta Temp e o problema foi imediatamente resolvido. Obrigado Nylon Woody, ajudou muito.

Faz sentido, já que aconteceu de repente e não há nenhum motivo para os botões pararem de funcionar assim. Acho que não tem solução senão reinstalar o office. De toda maneira e já estava programando uma formatação da minha máquina.

Não, não aponta a linha do código Estranho, porque esse erro acontece quando eu abro o VBA e tento executar uma das macro que tem numa das planilhas do arquivo. Mas quando eu clico em Modo Design, clico no botão, [vou até a macro]* e mando executar dá certo. *agora a macro não aparece mais associada ao botão ou na lista de macros de uma mesma planilha, tenho que procurar no Project Explorer pela Pasta de Trabalho e planilha.

Aconteceu da noite pro dia mesmo! Verifiquei a Central de Confiabilidade e está permitido. Acabei de ver aqui que as macros não se apagaram, mas não estão mais associadas as botões. Encontrei as macros fuçando do Project Explorer do VBA mesmo. Só que agora uma correção: as macros não funcionam mais, pelo menos nesse arquivo. Quando mando executar apare a caixa de diálogo: Erro em tempo de execução '1004: Erro de definição de aplicativo ou de definição de objeto

Beleza galera? Estou com um problemão aqui com os botões das minha macros, tenho duas planilhas com macros, e uma delas está lotada de macros associadas a botões de Controle Activex. Os botões de Controle Activex não funcionam mais em nenhuma planilha. Quanto se clica neles nada acontece As macros associadas a eles sumiram, desapareceram! Quando se clica no botões com o Modo Design ativado se verifica que não há nenhum código associado ao botão. Isso não aconteceu em uma das pranilhas. Um dos botões que ainda tinha a macro também não funciona. Não é mais possível inserir novos botões de Controle Activex Nas minha planilhas eu costumo criar as macros na pasta de trabalho do arquivo, para poder mexer nelas em outro pc. Então acho que elas não estão naquela pasta Personal. Reiniciei o pc e nada Obs: Não posso enviar as planilhas. Alguém sabe o que pode ser? Desde já agradeço

Valeu zinhovba, vou tentar assim que possível.

Opa, Patropi, valeu, mas o que você mandou só atualiza a tabela caso os dados sejam modificados, mas não se o tamanho dela aumentar. O comando que resolveu meu problema foi o seguinte: Range("a1", _ ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Name = "dados" Com ele, eu atribuí aos dados, que continuamente aumentam o tamanho de linhas, o nome de "dados" depois, mandei a tabela dinâmica ser criada com base nesse intervalo nomeado: ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "dados", Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="Plan1!R2C8:R4C12", TableName:="Tabela dinâmica1", _ DefaultVersion:=xlPivotTableVersion12 Sheets("Plan1").Select Cells(2, 8).Select e depois, mexi na tabela dinâmica do jeito que ja tinha feito: ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("nº"), "Soma de nº", xlSum ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("QI"), "Soma de QI", xlSum ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("QS"), "Soma de QS", xlSum ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("DN"), "Soma de DN", xlSum ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("RD"), "Soma de RD", xlSum Depois de tudo, me deparei com o seguinte problema, que resolvi logo depois: Não dava pra criar a tabela (atualizar) em cima da que já existia, dava erro. Então acrescentei no Macro um comando para deletar a tabela anterior. O efeito foi o mesmo de atualiza-la. Assim, o Macro todo ficou assim: Sub atualizar_tabdin() Range("H2:L4").Select Selection.ClearContents Range("a1", _ ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Name = "dados" ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "dados", Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="Plan1!R2C8:R4C12", TableName:="Tabela dinâmica1", _ DefaultVersion:=xlPivotTableVersion12 Sheets("Plan1").Select Cells(2, 8).Select ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("nº"), "Soma de nº", xlSum ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("QI"), "Soma de QI", xlSum ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("QS"), "Soma de QS", xlSum ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("DN"), "Soma de DN", xlSum ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _ PivotTables("Tabela dinâmica1").PivotFields("RD"), "Soma de RD", xlSum End Sub