Crafteribanez

Bom utilizei esta função, porém ela só dá retorno falso. A url colocada na célula B2 é a mesma colocada na célula B4 com a função DoesHTTP retorna Verdadeiro, com a função URLExist retorna falso. Tenho que alterar algo ?

Boa Tarde Preciso no Excel2010 verificar a existência de uma URL e se for "true" continuar com o código, más não quero abrir o navegador padrão. Consegui o seguinte código na Web que verifica a URL, retorna true ou false porém ele abre o navegador. Porque não quero que abra, simples porque fiz uma macro com Loop For de 1 até 600 para buscar informações de sites e a cada true ele abre o site, ou seja terei no mínimo 600 abas do navegador abertas. Por isto não quero que abra, somente retorne true ou false. O código que consegui foi este: Function DoesHTTPFileExist(ByVal inlink As String) As Boolean On Error Resume Next ThisWorkbook.FollowHyperlink (inlink) DoesHTTPFileExist = Err.Number = 0 End Function Funciona perfeito, porém abre todas as url válidas. Tentei comentar as linhas más não funcionou. Alguma ideia ?

isto resolve. Grato.

Bom dia, Pode ser que seja fácil, más não estou encontrando na caixa de propriedades da Label (Excel Userform) a seguinte propriedade. Como ajustar a posição do texto dentro da label para baixo e esquerda. Grato.

Bom dia, preciso de um help. Tentei através de uns códigos copiados na Web e adaptando, inserir dados de um Userform criado no Word, no próprio documento. Não deu muito certo visto que ele insere os dados sempre no ponto onde está o cursor no documento, nunca no ponto presquisado. Gostaria que fosse no ponto indicado no código pelo método Find, o que não ocorre. Criei um userform, apenas uma caixa de texto e um botão para teste. Se alguém tiver outro método que dê o mesmo resultado agradeço. Private Sub CommandButton1_Click() Dim docs1 As word.Document Set docs1 = ThisDocument With docs1 .Application.Selection.Find.Text = "#resultado" .Application.Selection.Find.Execute .Application.Selection.Range = Me.TextBox1 End With End Sub

Bom, estive fora um tempo, porém para fechar este tópico posto a possível resposta encontrada. Li em algum site que não me recordo, também não importa muito, que poderia quando importado uma nota XML, e nesta planilha fossem inseridos todos os campos do XML, com os dados da nota, deletar os campos que se entendesse desnecessário. Verifiquei que este procedimento, dá erro quando da importação de novos xml, deixando apenas um item. Não sei porque. O importante é que iniciei nova pasta de trabalho, novo mapa XML e importei com todos os campos, filtrei em uma tabela dinâmica criada após a importação. Não houve falhas e os dados vieram completos. Acredito que deletar campos do mapa xml é o que pode estar gerando o erro de não importar todos os itens da nota. Com o novo mapa sem deletar nenhum campo deu certo. É isto.

Bom dia, Tenho várias notas ficais em xml que recebo de fornecedores. Abro no Excel 2010, criando o mapa e importando, sem problemas. A questão que notei é que na importação: Se importar uma nota fiscal em xml, o mapa reconhece os dois ou mais itens da mesma nota fiscal e importa, ótimo; Se importar mais de uma nota fiscal xml, o mapa só reconhece um item de cada nota fiscal, "este é o problema" O que eu quero e quando importar várias notas fiscais para o arquivo do Excel ele importar de todas, todos os itens. Onde eu estou errando ? Ou não estou errando e é outro procedimento ? Aceito sugestões.

Boa Tarde, Formatação personalizada. Preciso formatar um número para que apareça na célula deste modo: 001.789456.15-2 Os dois primeiros dígitos sempre serão zeros a direita, más tem que aparecer. Tentei o seguinte 00#.######.##-# , más sempre me retorna 001.789.456.15-2 com o ponto entre o 789 e 456. Já fiz diversas tentativas sem resultado. Agradeço uma ideia. adicionado 18 minutos depois Descobri: 000"."000000"."00"-"0 Funciona. Grato a todos.

É, é mais interessante utilizar sempre "Activate" do que "Select", mesmo porque vai dar erro só com o Select. Este ja ativa e selciona, interessante, não tinha pensado por este lado. É, não dá para só ficar copiando código dos outros e ajustar, tem que pensar um pouquinho. Grato e bom trabalho.

Bom dia, tenho a seguinte curiosidade, digo curiosidade pois consegui resolver a questão, porém não compreendi o porque do erro. Tenho uma pasta de trabalho no Excel2010 com o seguinte procedimento dentro de um formulário. Para sair do formulário e ir para a planilha principal da pasta de trabalho: Private Sub CmdMostraPlanilha_Click() 'Planilha Excel fica visível Application.Visible = True 'Seleciona planilha Aviso Workbooks("ModeloAMExcel2002porAIM").Worksheets("Aviso").Select Unload Me End Sub Este procedimento funciona perfeitamente na minha máquina que possui MSOffice 2010. Porém quando outro colega que também tem MSOffice 2010 clica sobre este procedimento sempre dá erro na linha: 'Seleciona planilha Aviso Workbooks("ModeloAMExcel2002porAIM").Worksheets("Aviso").Select Detalhe, já verifiquei, ambos 32bits Excel2010 e Windows7. Tive de alterar todos os códigos da Pasta de Trabalho para? Private Sub CmdMostraPlanilha_Click() Dim WPA As Workbook Dim WPASheet As Worksheet Set WPA = ActiveWorkbook Set WPASheet = WPA.Worksheets("Aviso") 'Planilha Excel fica visível Application.Visible = True 'Seleciona planilha Aviso WPASheet.Select Unload Me End Sub Tirei este modelo de código com definição dos objetos workbook e worksheet do Canal do Alessandro Trovado do Youtube. Funcionou na máquina do colega e também na minha. Me parece que o Excel2010 do colega não consegue reconhecer através do comando 'Worklbook("Pasta de Trabalho")...... a pasta ativa. Porém no meu Excel2010 ele roda normalmente. Pergunta ?? Existe no Excel 2010 alguma coisa que deva ser habilitada ou desabilitada para que o Excel2010 reconheça a própria pasta de trabalho sem a necessidade de criar a o objeto no caso "Dim WPA as workbook" apenas indicando o caminho por Woorkbos("Pasta de Trabalho").... Talvez no Excel2010 do colega tenha que ser adicionado algum complemento ?? Grato por uma ideia.

Fui no site e fiz um teste. Sem colocar aspas no código ele fica vermelho. Colocando aspas no código ele lê literalmente. adicionado 1 minuto depois Talvez mudar o tipo da variável ? adicionado 17 minutos depois Fechou ! Tinha esquecido de modificar o .Body por .HtmlBody . adicionado 18 minutos depois Curti, só não achei o "Resolvido".

Bom dia. Tem um código na Web do Macoratti , que vai atender a minha necessidade. Link do Macoratti Sub MandaEmail() Dim EnviarPara As String Dim Mensagem As String For i = 1 To 10 EnviarPara = ThisWorkbook.Sheets(1).Cells(i, 1) If EnviarPara <> "" Then Mensagem = ThisWorkbook.Sheets(1).Cells(i, 3) Envia_Emails EnviarPara, Mensagem End If Next i End Sub Sub Envia_Emails(EnviarPara As String, Mensagem As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .to = EnviarPara .CC = "" .BCC = "" .Subject = "Pedido enviado" .Body = Mensagem .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub No ponto do código onde está " .Body = Mensagem" , eu gostaria de incluir um texto pré-formatado que tenho no word. O texto está formatado em alguns pontos com negrito e centralizado, bem como assinatura. Tem como inserir neste ponto este, "acredito" que objeto ? O texto será uma mensagem para fornecedores com instruções . Grato.

OK.entendido. Obrigado.

Boa noite, a título de curiosidade sobre um post na web. Formulário de pesquisa Tem um post do macorati, que ensina como fazer uma pesquisa através de um formulário. Verifiquei os códigos são perfeitos. Minha dúvida é quanto a definição de uma variável em específico : Dim pesquisa E depois sua utilização várias vezes: pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False) pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False) pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False) TextBox2.Text = pesquisa TextBox3.Text = pesq1 TextBox4.Text = pesq2 TextBox5.Text = pesq3 TextBox1.SetFocus Não encontrei em local nenhum registro de definição de uma variável e utilização em mutações da mesma variável sem definir novamente as outras. A variável definida foi pesquisa e foi utilizado as variáveis pesquisa, pesq1, pesq2 e pesq3. Qual o conceito que dá suporte a esta utilização ? Posso então definir uma variável e ter digamos 20 variações da mesma para utilizar em pesquisa, ou há um limite para isto. Para informar. Utilizei este método em um form que criei com 7 variações e pesquisa perfeita. Meu questionamento: Qual o critério para fazer este tipo de utilização de definição de uma variável e diversas pesquisas com mutação da mesma variável ?

Grato.

Bom dia. Encontrei aqui no fórum, a reposta para um problema que tenho, pelo menos acho que sim, não fiz o teste geral somente da macro, más deu resultado. No post "If para verificar se valor de variável consta em um intervalo de células" Precisava encontrar uma data na coluna "A" e troquei a String por Date. Perfeito. Troquei o código para minhas variáveis. Sub ProcuraFeriado() '##################################################################################### 'ESTE CÓDIGO PROCURA A PRIMEIRA OCORRÊNCIA DO CRITÉRIO NO INTERVALO H3:H16, SE EXISTIR '##################################################################################### Dim rngH As Range, PRF As Date PRF = Worksheets("Plan1").Range("c1").Value Set rngH = Range("a1:a30").Find(PRF) If Not rngH Is Nothing Then A macro busca certinho a data que coloco na célula C1 e varre intervalo a1 a a30 e encontra a data. Beleza. O negócio é que não entendi o funcionamento do código neste parte: If Not rngH Is Nothing Then Por partes o que entendi: A variável PRF que é Date recebe o conteúdo(.value) da célula C1. Perfeito, ele busca. PRF = Worksheets("Plan1").Range("c1").Value Setar ou ajustar a variável rngH para uma busca do valor contido em .Find(PRF) na range ("a1:a30") Perfeito, compreendido Set rngH = Range("a1:a30").Find(PRF) Agora : If Not rngH Is Nothing Then Não saquei este ......... me parece: Se não rngH não existe então. If not rngH : Se não existe rngH resultado de pesquisa ?? boiei ... Is nothing não existe ?? boiei de novo ?? ... Só que o primeiro resultado é positivo e retorna o valor da célula . Código completo. Sei que é só questão de entender a colocação e a função, más não estou compreendendo. Grato por um comentário .......... Sub ProcuraFeriado() '##################################################################################### 'ESTE CÓDIGO PROCURA A PRIMEIRA OCORRÊNCIA DO CRITÉRIO NO INTERVALO H3:H16, SE EXISTIR '##################################################################################### Dim rngH As Range, PRF As Date PRF = Worksheets("Plan1").Range("c1").Value Set rngH = Range("a1:a30").Find(PRF) If Not rngH Is Nothing Then 'coloque aqui o comando da ação que deseja realizar se o critério for encontrado MsgBox "PRF foi encontrado na célula a" & rngH.Row Else 'coloque aqui o comando da ação que deseja realizar se o critério não for encontarado na célula MsgBox "não encontrado PRF no intervalo " End If End Sub

Prezado Gabriel, bom dia Depois de muitos e muitos testes com os procedimentos verifiquei que os textbox não estão mais dando tab. Utilizei o código postado com modificações. Private Sub TxtMatricula_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Label1_Click End If End Sub Private Sub Label1_Click() ' Coloque seu codigo de condicao para acesso CmdPesquisar End Sub Ficou assim Private Sub TxtEmpenho_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Call CmdPesquisar_Click 'SendKeys "{TAB}" End If End Sub Utilizei o CmdPesquisar diretamente dentro do procedimento . Não pula mais e comentei a linha sendkeys para não funcionar. adicionado 0 minutos depois Valeu Gabriel !

Ok. Amanhã vou testar este na rede do trabalho. Retorno com o resultado.

Para informar: Neste post "Mudar de textbox usando TAB ou ENTER" neste fórum encontrei um código que aparentemente está funcionando nos tabs. Depois de várias entradas no sistema, até agora não teve a tabulação dentro do textbox. Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then SendKeys "{TAB}" End If End Sub[/code] adicionado 2 minutos depois Aliás erro, encontrei esta resposta no fórum scriptbrasil.

Boa Tarde Estou com o seguinte problema que não estou encontrando uma solução. Tenho um Userform em Excel2002. Tenho vários controles Textbox para inserir dados para depois transportar para a planilha Excel2002 Preencho os Textbox ano - TxtAno , aperto a tecla Tab e preencho o Textbox empenho TxtEmpenho com Ex: 2016 (Tab) 45452. Dou um Tab novamente e vou para o TextBox servidor TxtMatricula. Depois destes dados preenchidos, tenho um botão de comando CmdPesquisar para fornecedor e empenho e CmdServidor para matrícula, códigos com Vlookup para pesquisar em outra tabela Excel2002. Até aí tudo bem, clicando no botão ele busca dos dados. Obs: Estas operações são executadas com os arquivos em rede, não estão na máquina local, estão em um servidor a quilômetros de distância. Agora o problema: Volta e meia quando teclo o tab para passar de uma texbox para outra, acontece do tab ficar pulando dentro da própria textbox e não passar para a próxima. Se eu ficar dando tab ele fica espaçando na mesma text box. Se eu clicar em outra textbox o processo de ficar tabulando dentro da própria textbox continua. Que faço. Fecho o aplicativo e começo tudo de novo, fica dando o tab legal entre as textbox, até dar de novo este problema. Alguém tem ideia do que pode estar afetando o tab ? Grato por algum conselho.

Perfeito ! Só que tive de colocar a barra antes do nome do arquivo. Workbooks.Open (ThisWorkbook.Path & "\Controle.xlsx"). Nota 10 ! Valeu Edson

Boa noite. Procurei pela web, más não encontrei resposta para abrir outro arquivo Excel no mesmo diretório do arquivo atual que contém a macro. Exemplo. Tenho o arquivo Modelo.xlsm no seguinte diretório: C:\Users\Crafter\Desktop\Modelo\Modelo.xlsm" Este arquivo acessa dados do arquivo Controle.xlsx, que fica no mesmo diretório. Workbooks.Open ("C:\Users\Crafter\Desktop\Modelo\Controle.xlsx") Quero mandar este arquivo para outras pessoas utilizarem, logon não posse deixar no script o endereço do meu note. Não encontrei modo de abrir este arquivo utilizando outras maneiras como colocar ponto na frente do arquivo. Exemplos que usei e deu erro quando rodo a macro. Workbooks.Open (".\Controle.xlsx") Workbooks.Open ("..\Controle.xlsx") Workbooks.Open ("\Controle.xlsx") Workbooks.Open ("Controle.xlsx") Workbooks.Open ("/Controle.xlsx") Workbooks.Open (".Controle.xlsx") Workbooks.Open ("..Controle.xlsx") Deve ter uma maneira simples de fazer isto, só que não estou conseguindo chegar nesta maneira. Alguma dica ?

Legal denismartos, vou aproveitar o findi para testar este código. Vou deixar o post aberto para postar o resultado. Boa tarde.

Boa Tarde Gostaria de saber se isto é possível, é lógico, ou deve ser feito de outra maneira. Tenho um formulário html que tem inputs. Nestes inputs, coloco valores. Tenho o botão que envia com o evento onclik para um arquivo javascript os valores. Este arquivo javascript, após realizar a função definida de soma, etc...., devolver para o formulário que enviou, a resposta da função. Isto é o lógico que faço geralmente e vejo os exemplos na web/youtube. Agora, de um formulário1 enviar para o arquivo javascript calcular e responder no formulário2 ? Dá para fazer isto ? Tipo, entro com os dados de folha de pagamento no formulário "Informardados.html", através do botão envio para cálculo no javascript e o retorno da função javascript, sai nos labels do "Formularioresultado.html" já formatado como holerite. Visto que o javascript tem que conhecer o "DOM" do html como eu indicaria através de um getElementById("resultado"), de uma página que eu nem abri ? Ou tem outro modo de fazer isto ?

Instalação do Net Bins IDE 7.3 no Windows 7 Home para programar em Java. Instalado porém não roda. Tentei desinstalar o Net Bins através do painel de controle do windows para reinstalar de novo, porém não permite, informando: " Aparentemente a instancia seguinte do Net Bins ainda está em execução c:\Program Files\Net Bins 7.3 Um arquivo bloqueado existe em c:\users\meunome\AppData\Roaming\|NetBins\7.3\lock Feche o NetBins IDE antes de continuar a instalação." Aí eu vou neste local, deleto o arquivo lock e consigo desinstalar o NetBins. Porém reinstalo de novo e não consigo rodar o NetBins. Vou lá no diretório c:\users\meunome\AppData\Roaming\|NetBins\7.3\lock e lá está o arquivo lock de novo. Será que é a criação deste arquivo que está trancando o Net Bins de rodar ? Como rodar a IDE então ? Alguma ideia ? Resumindo, não quero desinstalar o NeTBins 7.3, quero usá-lo para aprender Java, só que ele não roda, apenas abre aquela tela incial do NetBins 7.3 fecha e não acontece mais nada. Obs. Desinstalei 02 vezes e reinstalei e nada. Formatei o note e reinstalei tudo de novo Java ambiente de desenvolvimento para Win 64 bits e NetBin continua tudo igual. Outra obs. Já vi o outro tópico do fórum para desinstalar o NetBins, isto eu já consegui deletando o arquivo lock, quero utilizá-lo. Grato por alguma ideia.