Pesquisar na Comunidade

Olá pessoal, tudo bem? Tenho uma planilha com macros para tratamento de dados e está habilitada para macros, porém, acontece um bug que ela simplesmente some com todos os códigos e não deixa salvar a plan. Aparecendo os erros abaixo e quando dou atl+F11 os módulos estão em branco. Já aconteceram 3x com planilhas diferentes. Ela funciona por um período e do Nada acontece esse erro. uso ela todos os dias para atualizar as bases de dados. Alguém já passou por um problema semelhante? Vlw, pessoal.

Olá Tenho um FORMULARIO feito em vba que consiste em inserir "blocos" do auto cad em um ponto "X,Y", Gostaria de salvar as opções ticadas no formulario, que consistem em "OptionButton", PARA poder editá-las quando reabertas, para isso os OP, teriam que ser reaberto com a opção marcada pela ultima vez. CODIGO: Dim blockRef1 'REFERENCIA FLAME 1,4,5,6 EVER Dim insertionPnt1(0 To 2) As Double 'REFERENCIA FLAME 1,4 E 5 EVER Dim pathform1 As String 'REFERENCIA FLAME 1,4 E 5 EVER Private Sub CommandButton1_Click() '---------------------------------------------------------- If OptionButton1.Value = True Then 'Tensão 220V pathform1 = "XIS" 'FECHO LINGUENTA MIOLO FENDA insertionPnt1(0) = 112.96 'CORDENADA X insertionPnt1(1) = 266.7 'CORDENADA Y insertionPnt1(2) = 0# 'CORDENADA Z Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK OptionButton1.TabStop = False ElseIf OptionButton2.Value = True Then 'Tensão 380V pathform1 = "XIS" 'REFERENCIA PODE SER O NOME OU DIRETORIO insertionPnt1(0) = 141.04 'CORDENADA X insertionPnt1(1) = 266.7 'CORDENADA Y insertionPnt1(2) = 0# 'CORDENADA Z Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK OptionButton1.TabStop = False ElseIf OptionButton2.Value = True Then 'Tensão 380V pathform1 = "XIS" 'REFERENCIA PODE SER O NOME OU DIRETORIO insertionPnt1(0) = 141.04 'CORDENADA X insertionPnt1(1) = 266.7 'CORDENADA Y insertionPnt1(2) = 0# 'CORDENADA Z Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK OptionButton1.TabStop = False End If UserForm1.Hide End Sub

Boa tarde. Estou aprendendo phyton e surgiu um problema aqui, ao tentar salvar o algoritmo abaixo, o mesmo não salvava de jeito nenhum. Segue o algoritmo: n = 0 pontos = 0 mais_pontos = 0 menos_pontos = 100000 while n <= 20: n = n + 1 nome = raw_input("Nome do Time: ") vit = int(raw_input("Vitórias: ")) emp = int(raw_input("Empates: ")) der = int(raw_input("Derrotas: ")) pontos = (vit * 3) + (emp * 1) + (der * 0) if pontos > mais_pontos: nome_mais = nome elif pontos < menos_pontos: nome_menos = nome print "1º lugar:", nome_mais print "20º lugar:", nome_menos Estou fazendo algo errado?

Boa tarde galera... Estou iniciando em programação em vba, e estou com uma grande dificuldade... Seguinte Fiz um formulários onde eu preencho os dados e ele o Excel faz os cálculos, e ele me retorna uma planilha com o resultado... Mas eu preciso gravar essa planilha em um novo documento, e depois eu preciso, dentro deste formulário, abrir esse documento e ele me mostrar o resultado. Alguém poderia me dar uma solução??

Olá, Tenho uma planilha em Excel em que coloquei um botão com uma macro para salvá-la no meu OneDrive da Microsoft. Só que eu também salvo uma cópia no meu computador e, na verdade, a cópia que eu salvo no OneDrive fica como backup. O que eu quero é por um comando no script do VBA do Excel que, depois que eu salvar a planilha no OneDrive, quando eu clicar no ícone de salvamento padrão (o do disquete) a planilha volte a ser salva na pasta (diretório) original. O que acontece agora é: depois que eu salvo no OneDrive, sempre que eu clico no disquete, a planilha é salva no OneDrive de novo. Quer dizer, depois que eu salvo ma vez no OD, o Excel assume o OD como diretório padrão. Acredito que o comando seja alguma coisa parecida com isto: ChDir "\\M01\G\PASTA_01\PASTA_02\" Veja a macro que eu uso: Sub SALV_SKYDRIVE() ' ' SALV_SKYDRIVE Macro ' ' ActiveWorkbook.SaveAs Filename:= _ "https://d.docs.live.net/03c194df12/FATURAMENTO/FATURAMENTO.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True ChDir "\\M01\G\___TRADUÇÃO\FATURAMENTO\" End Sub Agradeço antecipadamente qualquer ajuda!

Eu tentei várias vezes fazer isso usando ações e scripts (O qual eu realmente não entendo como funciona). Eu li essa discussão no Adobe fóruns, mas isso não é claro para mim ainda: One-click 'Save as jpeg' shortcut script please! - saved in the same folder Vou explicar o que eu faço no meu trabalho e o que eu preciso para automatizar isso. 1- Eu abro uma imagem 2- Eu edito e cortar a imagem 3- Então eu aperto CTRL+SHIFT+S para salvar como .JPG 4- Clique em SIM para substituir a imagem que já existe na pasta 5- Em Opções de .JPG eu seleciono as seguintes: Matte: None Quality: 12 (Maximum) Format Options: Progressive (Scans: 3) 6- Depois eu fecho a imagem e clico para NÃO SALVAR EM PSD (porque às vezes eu realmente não preciso de um PSD) Todo este processo seria ok, se eu não abrisse e editasse umas 200 imagens por dia, eu tenho dar vários cliques para fazer o processo todo. Haveria uma melhor maneira de automatizar isso? Eu acho que usando scripts, eu tentei usar ações, mas não funcionou. OBRIGADO!

Bom dia a todos do canal. Estou começando a me aventurar na programação e como qualquer mortal me deparo com zilhões de dúvidas a cada código escrito. Preciso salvar um planilha automaticamente com dados gerados do Mysql. Estudando um pouco sobre abertura e fechamento de arquivos com Php, consegui achar alguns comandos que fazem este trabalho mas estou com algumas dificuldades de aplicá-los em meu código. Segue ele: <?php $connect = mysqli_connect("localhost", "root", "1234", "wifi"); $output = ''; if(isset($_POST["export_excel"])) { $sql = "SELECT * FROM cadastro_wifi ORDER BY ID"; $result = mysqli_query($connect, $sql); $fp = fopen("teste.xls", "a"); "ABERTURA DO ARQUIVO" "NESTE PONTO NÃO SEI COMO PASSAR OS PARÂMETROS DE ESCRITA" "O SCRIPT FUNCIONA DIREITINHO MAS PEDE PARA SALVAR OU ABRIR" if(mysqli_num_rows($result) > 0) { $output .= ' <table class="table" bordered="1"> <tr> <th>Username</th> <th>Nome_Completo</th> <th>Primeiro_Nome</th> <th>Inicial</th> <th>Sobrenome</th> <th>Password</th> <th>Office</th> <th>Mail</th> <th>Cargo</th> <th>Departamento</th> <th>Descricao</th> <th>Telefone</th> </tr> '; while($row = mysqli_fetch_array($result)) { $output .= ' <tr> <td>'.$row["Username"].'</td> <td>'.$row["Nome_Completo"].'</td> <td>'.$row["Primeiro_Nome"].'</td> <td>'.$row["Inicial"].'</td> <td>'.$row["Sobrenome"].'</td> <td>'.$row["Password"].'</td> <td>'.$row["Office"].'</td> <td>'.$row["Mail"].'</td> <td>'.$row["Cargo"].'</td> <td>'.$row["Departamento"].'</td> <td>'.$row["Descricao"].'</td> <td>'.$row["Telefone"].'</td> </tr> '; } $output .= '</table>'; //header("Content-Type: application/xls"); //header("Content-Disposition: attachment; filename=teste.xls"); echo $output; } } fclose($fp); "FECHAMENTO DO ARQUIVO" ?> Desde já agradeço. Obrigado

Bom dia. Professor passou um trabalho, criar uma site que possa importar um arquivo .txt, ler o arquivo e editar. Porém quando eu importar o arquivo ele tem que abrir dentro de caixas de texto. Exemplo tem a coluna nome e email. quando eu importar o .txt os dados nome e email vão preencher as caixas de texto correspondente, podendo editar e depois salvar. Eu conseguir fazer com que importasse, só que ele abre o .txt numa caixa só. Alguém pode me ajudar?

Algumas vêzes precisamos lê um arquivo em um diretório e salva-lo em outro, e isto pode ser feito facilmente seguindo o exemplo deste programa. Duas matrizes de string foram alocadas dinâmicamente para receber a carga de dois ponteiros para arquivo contendo um código de um programa em c. Veja abaixo imagens do programa em execução: Veja abaixo o link do código do programa: http://codigosfontes-ccplus-plus.blogspot.com.br/2015/11/arquivo-lendo-e-salvando-em-outro.html

Olá a todos, Vim até esse forúm após conversar com diversos profissionais e amigos que utilizam o photoshop, porém não consegui descobrir como resolver meu problema. Ao salvar meu trabalho pela extensão JPEG, o arquivo final ganha automaticamente um contraste maior, isso comparando no mesmo monitor. Segue uma imagem para se ter idéia, o que eu não entendo é que, abrindo o JPEG no photoshop ele mantém o contraste original. Agradeço desde já.

Boa noite rapazes. Sou novo aqui no fórum e, gostaria de esclarecer algumas dúvidas. Em todas as vezes que fiz projetos com o Adobe Photoshop, em todas as suas versões, não consigo salvar a imagem final com boa qualidade. Por exemplo, eu salvo com o tamanho máximo e ao colocar, por exemplo, na capa do Facebook, ele não fica com uma resolução satisfatória, como as de grandes páginas. Isso tem relação com o computador ou alguma configuração está errada?

Ola pessoal... Estou com um pequeno problema com a configuração do meu sistema em VBA... Estou realizando alguns procedimentos e no final coloco -> ActiveWorkbook.Save Com o intuito do VBA salvar a planilha automaticamente, mas acaba que ela não salva e sempre que tento fechar ela pede para eu salvar manualmente. O código completo que estou usando vou deixar abaixo: ------------------------------------------- Private Sub CommandButton7_Click() 'Declarar uma variavel para verificar os campos que estão em branco e informar ao usuário que deve ser preenchido Dim campo(16) As String 'Campos digitados manualmente para que o excel exiba os campos de cada um. campo(1) = "Código" campo(2) = "Nome do Fornecedor" campo(3) = "CNPJ" campo(4) = "Marca" campo(5) = "Nome do Representante" campo(6) = "Contato" campo(7) = "Estado" campo(8) = "Cidade" campo(9) = "Bairro" campo(10) = "Endereço" campo(11) = "Nº" campo(12) = "Complemento" campo(13) = "Status" campo(14) = "Email" campo(15) = "Site" campo(16) = "Descrição do Fornecedor" 'Perguntar ao usuário se ele realmente deseja gravar os dados na base Resposta = Msgbox("Deseja cadastrar/alterar o Fornecedor?", vbQuestion + vbYesNo, "Atenção Usuário") If Resposta = vbNo Then Exit Sub End If 'Caso o usuário queira realmente salvar, então exibir mensagem informando que o Fornecedor foi salvo com sucesso. Msgbox "Fornecedor cadastrado/alterado com sucesso", vbInformation, "Atenção Usuário" 'Declarar variavel que será utilizada para gravar os dados no excel (ln) Dim ln As Integer 'Mandar o Excel procurar a base de dados na qual encontra-se o pedido de compra e adicionar o novo Fornecedor na próxima linha ln = Range("base_fornecedores").Rows.Count + 1 'Gravar os dados na planilha de Cadastro de Produtos For a = 1 To 16 Plan5.Cells(ln, a) = controle_de_cadastro_de_fornecedores(a) Plan5.Range("base_fornecedores").CurrentRegion.Name = "base_fornecedores" Next 'Mandar o excel salvar o arquivo do excel no computador, para que o usuário possa fechar sem ter que salvar manualmente ActiveWorkbook.Save End Sub ------------------------- Se alguém poder me ajudar ficarei bastante grato

Estou com um problema, eu estou com um código que guarda os arquivos anexados do Outlook, XML, PDF e outras extensões se quiser, mas preciso de uma outra coisa; No momento que chega um XML eu preciso que ele antes do arquivo chegue a pasta designada ele seja convertido em TXT Consegue me ajudar??? Resumindo Quando o XML chega no e-mail o codigo vai converter ele para TXT e salva o txt na pasta e não consegui resolver, irei partilhar meu codigo. Este Codigo pega os Anexos que recebemos no Outlook e guarda em uma pasta da Rede; Public Sub SalvaAnexos(Email As MailItem) Dim DiretorioAnexos As String 'aqui voce altera o diretorio que vai salvar os anexos DiretorioAnexos = "\\111.111.111.111\NFE\XML" Dim MailID As String Dim Mail As Outlook.MailItem MailID = Email.EntryID Set Mail = Application.Session.GetItemFromID(MailID) For Each Anexo In Mail.Attachments 'Para adicionar outra extenção so colocar mais um if If Right(Anexo.FileName, 3) = "xml" Then Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName End If If Right(Anexo.FileName, 3) = "pdf" Then Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName End If 'Creditos Wandarley Pereira © Next Set Mail = Nothing End Sub Se Alguém puder me ajudar agradeço

Digamos que eu tenha uma TextBox com o valor 12345,67 Eu preciso remover o ultimo numero de modo que fique na TextBox apenas 1234,56 Como faço isso? PS: Já fiz um outro tópico relacionado ao mesmo problema mas com outra duvida, e nele está o meu código se alguém quiser visualizar a outra duvida o link é esse: https://www.scriptbrasil.com.br/forum/topic/179649-backspace-so-deleta-o-numero-temporariamenteele-reaparece-caso-outro-numero-seja-inserido/

Bom dia caros, Estou fazendo uma aplicação em VBA usando o Excel para cadastro de projetos com vários 'forms' O primeiro 'form' chama-se frmCLIENTES que cadastra os dados do cliente O segundo 'form' chama-se frmPROJETOS que cadastra os dados do projeto Estou fazendo assim porque podem existir vários projetos para cada cliente. Os dados do 'form' frmCLIENTES salva na planilha CLIENTES, e o 'form' frmPROJETOS salva na planilha PROJETOS. No frmPROJETOS tenho uma ComboBox que lista o nome de todos os clientes cadastrados na planilha CLIENTES. Quando eu salvo o projeto, o valor da ComboBox é salvo na coluna A da planilha PROJETOS. Até ai tudo certo. O problema vem agora: Eu não gostaria de salvar o valor da ComboBox, gostaria de salvar a referência da célula na planilha CLIENTES onde está localizado o respectivo cliente, ou seja, na coluna A da planilha PROJETOS salvar =CLIENTES!A2 ao invés do valor apresentado na ComboBox. Por que isto? Porque quando eu editar o nome do cliente, os projetos associados tenha o registro também alterado de forma automática. Alguém saberia me ajudar com qual linha de comando eu posso fazer isso? A planilha CLIENTES está assim: E gostaria que a planilha PROJETOS ficasse assim: Claro que no Excel a célula A2 em PROJETOS exibiria o valor "CLIENTE 1" Obrigado. Rafael.

Boa Noite, estou criando um programa de controle financeiro e estou com duvida em 2 coisas: não estou com o programa aqui então fiz uma demonstração de como seria no paint kkk 1- Eu tenho 4 gastos que gostaria de separa-los em (casa, escritório, contas e obra) gostaria de saber como faço para salva-los cada 1 separadamente (como mostrado na imagem 1) além disso gostaria de continuar adicionando os gastos no mesmo arquivo. (ou pelo menos que eles ficassem separados por categoria - casa, escritório, contas e obra) 2- Ao final das opções: casa, escritório, contas e obra, gostaria que os gastos fossem mostrados, somados e que surgisse um total a baixo. (como na imagem 2) Links: Imagem 1: http://i.imgur.com/biQabL1.png?1 Imagem 2: http://i.imgur.com/P34QlB2.png?1 Ficou um pouco confuso, mas se alguém puder me ajudar... Grato.

Olá pessoal! Gostaria de tirar uma dúvida com vocês. Comecei a criar uma aplicação que salva uma certa chave de registros do Regedit e depois tem a possibilidade de restaurar essa mesma chave caso ela seja removida. Pois bem, fiz a linha de comando: Shell("regedit /e ""HKEY_CURRENT_USER\Software\XXXXX\ZZZZZZ", 1) E no caso da Importação Shell("regedit /c ""HKEY_CURRENT_USER\Software\XXXXX\ZZZZZZ", 1) Porém ao testar qualquer um dos comandos, recebo um erro que diz que tal arquivo não existe (?) Por favor, me ajudem. Obrigado. P.S.: Usando Visual Basic 2010