Basole

rolp, veja se é esse o resultado que precisa abx. Padrões de horários dos ônibus-v1.zip

Vagner, todo que for colocar na string, inisra entre ( " " ) aspas. Exceto a orientacao: xlPortrait Neste caso do diretorio: exemplo -> ePath = "C:\Temp" . abx.

rolp, seja bem bem vindo ao forum! Acho que voce quis dizer MODO, ao invés de "moda' ? . As funcoes MODO (<2007), MOD(>2010), só funcionam c/ valores e retorna um resultado. Acredito que c/ macro conseguirá um resultado satisfatorio. Tentei colar os dados que postou.. mas ficaram todos em uma celula. Anexe um exemplo ou me envie via mp (caso nao puder expor dados publicamente), q vejo o que posso fazer. abx

Vagner, segue c/ alteração solicitada Sub Criar_PDF() 'funciona office 2010 ou > (2007 c/* suplemeento PDF: http://www.microsoft.com/pt-br/download/details.aspx?id=9943) Dim Filepdf, rData, rNome, ePath, Filename As String If Application.Version < "12.0" Then MsgBox " Não é possivel salvar no Formato PDF para essa versão do Office" Exit Sub End If With Worksheets("Plan1") rData = .Range("A1") ' na celula a1 insira uma data rData = Format(rData, "yyyy") ' altere a formatacao que desejar rNome = .Range("b1") ' na celula b1 inira um nome ou numero que deseja ePath = .Range("C1") ' Na "C1" diretorio que será salvo o PDF .PageSetup.Orientation = xlPortrait ' altere p/ xllandscape(orient. Paisagem) Filename = Trim(rData & "-" & rNome & ".Pdf") Filepdf = ePath & Trim("\" & Filename) Application.DisplayAlerts = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filepdf, _ Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End With End Sub abx.

anacletotranstusa, abra as 2 pasta de trabalho, e na pasta vales.xlsb. Selecione a celula que deseja: > selecione > Dados> validacao> Lista, insira a formula (exemplo) no no campo fonte: =INDIRETO("[Funcionários.xlsb]plan1! $B$2:$B$20"). Vide imagens abaixo: Eu só inverti as bolas (pastas), na imagem, mas a formula acima esta correta. IMPORTANTE: p/ funcionar a pasta funcionarios tem que estar aberta. abx.

Segue um exemplo, veja se te ajuda. No exemplo a macro salva direto como pdf s/ perguntar. Talvez não vá funcionar, dependendo da sua versão. voce pode alterar o cod e colocar o dialogo ( Application.Dialogs(xlDialogPrint).Show ), para ai sim, voce escolher a sua 'impressora:' no caso a CutePDF. Outra opção, caso esteja utilizando o office 2007, seria baixar o suplemento (Salvar como PDF da Microsoft, link abaixo), para office q nao tenha este recurso. http://www.microsoft.com/pt-br/download/details.aspx?id=9943 Abx. CreatePDF.rar

Hugo Mello, aproveitei essa macro que fiz p/ outra situação e adaptei ao seu senário. Veja se os numeros(dados) apresentados, lhe atende no que precisa. Abx. FCH-v1.zip

Se pudesse compartilhar um exemplo fictício, com a disposição c/ alguns dados, facilitria o entendimento p/ quem possa te ajudar.

doob para este caso, acredito que tenha 2 opções. No (anexo), tem e um exemplo c/ [ Pasta_de_trabalho1 ] e [ Pasta_de_trabalho2 ], na Pasta2 tem a macro que abre a Pasta1 (c/ a função), executa a função. A outra oção (que eu acho mais simples) seria inserir a função em um modulo da planilha do usuario e buscar as informações que a função precisa na Pasta de trabalho (fechada): [ Workbooks("FERIADOS ATE 2071.xlsx").Sheets("Plan1").Range("Feriados") ] AppRunExampleFiles.zip

Obrigado, o forum agradeçe o retorno! Sim é escrito em vba. Estou enviando novamente o arquivo, c/ uma pequena correção, pois poderia causar um erro de email, no caso de voce copiar da coluna [ C ] p/ [A]. Abx. Ranking_Emails-v1.zip

A macro copia os emails da coluna [ A ], p/ [C ], pois precisa tratar os espaços que tenham entre os nomes, caso contrario, consideraría sendo 2. Execute a macro, e e verifique se na coluna "C" continua os espaços que voce informou.

Talvez poderia usar a formula MOD ou MODO, mas só funciona c/ valores e só retorna um resultado. Eu tenho um exemplo ( em anexo ), que fiz para outros topicos e situações diferentes e adaptei a formatação ao seu ranking, Não entendi direito o que é " (já computado) " que inseriu acima. Mas enfim, veja se atende. Ranking_Emails.zip

Ou tente isso na F1: =CONT.SES($C$1:$C$7;$C5) e arraste, para ter todas as qtd. vezes de todos jogadores

voce pode cltr+c & cltr+v do site e depois inserir a formula [ substituir ] para remover a palavra "Substituição" e resultar somente o nome do jogador: Cole na celula [b1] e arraste verticalmente =SUBSTITUIR(A1;"Substituição";)

Corso bom dia, baixe o modelo (link), veja se atende as sua necessidades, tem a opção de editar, formatar e salvar o pdf e enviar p/ varios emails pelo outlook http://goo.gl/qu6P06

jcgmc, segue em anexo uma nova versao, c/ recurso quase semalhante a celulas c/ comentario do exemplo do Osvaldo. Nesse caso em relação a versao anterior (hyperlink), não basta posicionar o mouse, tem que selecionar a celula. O conteudo do POP-UP , atualizará automatico conforme as alterações forem feitas no intervalo (AP5:AP2000), ou pelo botao e atalho. Realmente esses links incomodam. Nesta versão nao tem links e nem alteração de formatação de celulas Não. Neste versao eu usei o recurso "msg. da Validação de Dados". A desvantagem em relação a 1ª versao (c/ uso de shapes), é que nao é possivel alterar as propriedades: tamanho, posicao, cor do texto, tam. texto, fonte do texto, e cor de fundo do popup. Vai ficar sempre desse jeitao mesmo (vide imagem), só altera de tramanho de acordo c/ o conteudo. Nesta versao, nao esqueici de habilitar o atalho de teclado [ cltr + q ] . Quando for 'passar' o codigo p/ sua planilha, aperte as teclas [ Alt + F8 ], ao abrir a janela em opções insira a LETRA que deseja para hablitar o atalho. Pop-Up_Cell-Validacao.zip

Ok, dê retorno.

Baseado na ideia postado pelo vagnersouza1976, segue anexo exemplo com hyperlink. Veja se atende e se funciona no seu 2003, pois testei no 2010. Pop-Up_Cell-Hyperlink.zip

veja se atende: Sub Pesquisar() On Error Resume Next Cells.Find(What:=InputBox("Por favor insira seu critério", "Procurar", "Digite aqui"), _ After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).ActivateError: Exit SubEnd Sub

1º tem que instalar [caso nao tenha] o Connector/ODBC 5.x.x.x (link down. abaixo)p/ interface com o servidor. Em seguida abra o excel e crie um modulo e cole o codigo abaixo: http://dev.mysql.com/downloads/connector/odbc/ Sub Importar_dados_Mysql()'PRECISA HABILITAR A REFERENCIA MICROSOFT ACTIVEX DATA OBJECTS 2.xxx LIBRARY'fonte: Coloniz@[member=DOR] Dim cx As New ClasseSQL 'CHAMADA DA NOSSA CLASSE DE CONEXÃO Dim banco, banco2 As ADODB.Recordset Dim sql As String 'STRING DE COMANDO Dim sql2 As String 'O COMANDO PARA SELECIONAR DADOS É O SELECT sql = "SELECT * from SUPPLIERS" '& _ ' " WHERE SETOR = 'LOGISTICA'" 'A CLÁUSULA WHERE BUSCA APENAS 'OD FUNCIONÁRIOS DO SETOR DE LOGISTICA 'SELECIONA O BANCO sql2 = "USE Northwind" Set banco = New ADODB.Recordset Set banco2 = New ADODB.Recordset 'CONEXÃO ABERTA cx.nConectar 'TRATAMENTO DE ERROS On Error GoTo erro 'OPERAÇÃO EXECUTADA banco2.Open sql2, cx.c banco.Open sql, cx.c Dim xls As Excel.Worksheet Set xls = Sheets("plan1") xls.Range("A2").CopyFromRecordset banco 'DESCONECTAR E LIMPAR MEMORIA cx.Desconectar Set banco = Nothing Set banco2 = Nothing Exit Sub 'CASO HAJA ERROerro: MsgBox Err.Description cx.Desconectar Set banco = Nothing Set banco2 = NothingEnd Sub Feito isso, Crie um Modulo de Classe e renomeie como: ClasseMySQL e cole o codigo abaixo neste modulo Public c As New ADODB.ConnectionPublic Sub nConectar() Dim s As String 'VERIFIQUE OS DADOS DE INSTALAÇÃO DO SEU BANCO DE DADOS s = "DRIVER={MySQL ODBC 5.1 Driver};" & _ "SERVER=localhost;" & _ "USER=root;" '& _ '"PASSWORD=######;" & _ '"Option=3" c.Open s End SubPublic Sub Desconectar() c.CloseEnd Sub O modulo acima que faz a conexao, então caso precise de senha p/ acessar o servidor, habilite a linha [PASSWORD=######], e insira a senha. O Exemplo acima importa dados do banco Northwind e a tabela SUPPLIERS, caso nao tenha este banco, altere ajustando ao seu banco e tabela desejada.

Veja se atende esse exemplo com shape Não foi possivel posicionar o mouse, tem que selecionar uma celula no intervalo [ k5:k2000 ], aparecerá um pop-up (vide imagem), com o conteudo da coluna "AP" e respectiva linha selecionada. Selecionando um intervalo diferente, o Pup-up some automaticamente. Obrigado @vagnersouza1976, pelos elogios no outro post,ainda sou um aprendiz. Pop-Up_Cell.zip

Tente o codigo abaixo, insira em um modulo: Sub Mesclar_Celulas() Dim rngA, L, x, y, v, w rngA = 1 w = IsMerged(Plan1.[a1]) If w = True Then MsgBox " Celula selecionada já está mesclada" Exit Sub Else x = Len(Plan1.[a1]) v = Width(Plan1.[a1]) y = x / v If Len(y) > 1 Then L = Left(y, InStr(y, ",") - 1) If Len(y) = 1 Then L = Left(y, 1) If L > 1 Then Range(Cells(1, rngA), Cells(1, (L - 1))).Select If L <= 1 Then Range(Cells(1, rngA), Cells(1, rngA + (L))).Select If Selection.Cells.count > 1 Then Selection.Merge MsgBox (L - 1) & " Celulas selecionadas mescladas" Else MsgBox "Para mesclar, é preciso de ao menos 2 ou mais células selecionadas!", 64 End If End If End Sub Function Width(MyRange As Range) As Double Application.Volatile Width = MyRange.ColumnWidth End Function Function IsMerged(rCell As Range) As Boolean IsMerged = rCell.MergeCells End Function

Olá, fiz alguns reparos, mas continua com problemas no form pesquisa [nao esta carregando os dados], . Teria a versão original [ que baixou do site ], antes das adaptaçoes? CONTROLE_ENDEREÇOS-v1.zip BANCODEDADOS_ENGENHARIA.zip

* duplicidade de resposta

Olá certifique-se que esta é a coluna correta que quer? Private Sub CommandButton1_Click()Dim ws As Worksheet: Set ws = Sheets("nome da planilha[aba]") 'ALTERE AQUI ***(nome da planilha[aba]) ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _ , AllowFiltering:=False, Password:="fq" ws.Cells(Rows.Count, 4).End(xlUp).Offset(1, 7).Select 'localiza a célula para registro no caso COLUNA "K" With ActiveCell .Value = textbox1.Value End With ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" Unload MeEnd Sub