Leandro SSS

Olá, Preciso descobrir como faço para saber a próxima data disponível no banco. Será que é possível? +/- assim: tbPrincipal ----------------------------------------------------- |Data | | Carro | ----------------------------------------------------- |01/05/2014 | | C4 | |01/02/2014 | | C3 | |01/03/2014 | | ZAFIRA | |01/05/2014 | | ZAFIRA | |01/03/2014 | | C3 | ------------------------------------------------------ Consulta que preciso: SELECT Data, 'proxima data disponivel' FROM tbPrincipal GROUP BY Data ------------------------------------------------------ |Data | | Proxima Data | ------------------------------------------------------ |01/02/2014 | | 01/03/2014 | |01/03/2014 | | 01/05/2014 | |01/05/2014 | | null | ------------------------------------------------------

Novamente por conta dos afazeres do trabalho, tive que desenvolver uma planilha que envia e-mail. Depois de muito ler na web, cheguei ao CDO. Uma referência utilizada no office para envio de e-mails. A vantagem é que eu posso enviar e-mail sem que eu tenha um programa como o outlook ou thunderbid. A desvantagem é que o Excel não foi programado para ser um programa de e-mail e por isso há diversas limitações se comparado aos programas padrões de e-mail. Contudo, para algo simples e rápido, vale a pena utilizar o CDO. Com alguns códigos é possivel automatizar o preenchimento com dados pré-definidos em outra planilha e que rode com horário programado. Espero que ajude alguém... O link para o download é este: Link direto http://www.fileupyours.com/view/323554/xlMail.xlsm

Veja se é isso: http://www.fileupyours.com/view/323554/MacroBusca.xlsm Obs: na célula J2 você coloca o valor que deseja procurar. Se não for selecionado um campo ou o valor procurado não estiver na seleção aparecera uma msgbox de erro... caso ao contrario, ou seja, caso seja localizado algo, ele chamará a macro de nome 'deucerto'.

Boa tarde pessoal, Estava pesquisando na net a opção de acrescentar menu no excel para um relatório que estava desenvolvendo em questão. Acabei achando uma maneira de acrescentar um menu drop down parecido com a opção de botão direito. Vou tentar explicar como é possivel fazer o menu, quem sabe possa ajudar alguém: Obs: 1. fiz este teste no office 2007, não sei se é possivel fazer o mesmo em versões anterior. 2. sou newbie em vba e só estou postando pois isso talvez possa ajudar alguém enquanto tb me ajuda. Simbora... 1. Abra o Excel 2. Aperte Alt F11 para abrir o Editor de VBA. 3. Na nova janela que abrir insira um novo módulo indo no menu "Inserir" e depois em "Módulo" 4. Renomeio o módulo de "Módulo1" para "Menu" (apenas para identificação) [é só alterar a propriedade NAME com o módulo recem criado selecionado] 5. Adicione o seguinte código abaixo na janela de código a direita que apareceu após ter criado o módulo: 6. Feche o editor de VBA em "Arquivo" e "Fechar e voltar para Microsoft Excel" 7. Adicione um botão de Formulário ou pode ser um Retangulo das Formas do Excel. 8. Clique com o botão direito do mouse no botão ou forma que acabou de criar e escolha a opção: Atribuir Macro. 9. Na nova janela, escolha a opção "MenuSuspenso" e clique em Ok. 10. Em seguida é só clicar com o botão esquerdo do mouse em seu novo botão que o menu irá aparecer. DICAS Para acrescentar uma imagem ao lado do item do menu, é necessário utilizar o comando ".FaceId = x" no bloco do item que deseja que apareça a imagem onde x representa um número de 1 a 4000 e cada número representa uma imagem. Para acrescentar uma linha para dividir grupos, utilize o comando ".BeginGroup = True" no bloco do primeiro item que deseja que apareça o divisor acima. Vou tentar postar aqui um link com a planilha pronta mas não sei se irá, se não é permitido peço desculpa aos moderadores: http://www.fileupyou...nuSuspenso.xlsm

Até tentei mas não consegui descobrir exatamente qual seria o nome do objeto a ser modificado para que aquela caixa ao lado do botão "Procurar" seja preenchida. tentei "value";"alt";"innertext" entre outros. Contudo, valeu pela tentativa.

Boa tarde, Sou (super) neofito em vba e estou com um problema referente a interação com o IE. Obs: pesquisei no fórum exatamente este meu problema mas não localizei, se já existe esta questão resolvida no fórum peço perdão. Estou tentando acessar o site http://www.pdftoexcelonline.com/, clicar no botão "Procurar" (segundo html, botão ctl00$body$filePDF), selecionar o caminho e arquivo através de alguns valores que estão na planilha, clikar em ok na janela de 'escolher arquivo', preencher o email atraves do innertext com um valor também localizado na plan e por fim clikar em "Convert to Excel". Até o momento eu consegui: acessar o site e clikar em "Procurar"...e só ¬¬ Estou com dificuldade para interagir com a janela "Escolher arquivo" que aparece após clikar no botão Procurar (ctl00$body$filePDF) Alguém pode me ajudar com este impasse? De antemão agradeço a paciência de quem leu ou ajudou. Segue código que estou utilizando: Sub AcessaPagina() Dim d1, M2, A1, Wd As String 'local/caminho do arquivo: d1 = Sheets("Apoio").Range("c3").Value 'arquivo pdf: M2 = Sheets("Apoio").Range("c4").Value 'email: A1 = Sheets("Apoio").Range("c5").Value 'local & arquivo: Wd = d1 & M2 Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Navigate "http://www.pdftoexcelonline.com/" While ie.Busy Wend ie.Document.getElementsByName("ctl00$body$filePDF").Item.Click While ie.Busy Wend 'ie.Document.getElementsByName("ctl00$body$txtEmail").Item.innerText = A1 While ie.Busy Wend ie.Visible = True End Sub