MooM

Sim, ele salva o arquivo renomeado utilizando as informações das células, mas quando tenta anexar o arquivo já renomeado, da erro. mas só da erro no excel 2010, o meu que é 2007 roda tranquilo. E também salva no diretório certo

Na macro, tem o comando pra salvar o arquivo renomeando de acordo com as células escolhidas. MyLocal = "C:\" Nome = Range("AE6").Value Export = Range("BO8").Value Agent = Range("BO6").Value PO = Range("BO13").Value SDate = Now Endereco = "" T = Range("E287").Value T1 = Range("E289").Value T2 = Range("E291").Value T3 = Range("E293").Value pula = Chr(10) & Chr(13) If MsgBox("voce quer salvar este arquivo agora ?", vbYesNo) = vbYes Then MsgBox ("Por gentileza selecionar a pasta onde deseja salvar o arquivo EXCEL") Nome_Arq = MyLocal & " SI SEA FCL " & " --- " & Nome & " --- " & Export & " --- " & Agent & " --- " & ".xlsm" FileSaveName = Application.GetSaveAsFilename(Nome_Arq, fileFilter:="xlsm Files (*.xlsm), *.xlsm") ActiveWorkbook.SaveAs Filename:=FileSaveName

Boa tarde! Tenho uma planilha que serve como instrução para outros colegas. Tem diversas abas. Eu preciso renomear a planilha utilizando as informações de algumas células como título e depois enviar a planilha completa renomeada e salva no lugar que eu quero(todas as abas) pra determinado e-mail. Eu tenho uma macro em VBA nela que só funciona no meu PC (EXCEL 2007) só que não funciona em outros pcs com excel 2010. Diz que não pode encontrar o arquivo. Segue em anexo a planilha. Poderiam me ajudar, por favor. obrigado. TESTE.rar

O código fica desse jeito, só que também não funciona trocando para True. Eu pesquisei em alguns sites e verifiquei algumas instruções referentes versões do office, etc, e não adiantou também. Sub Send_Range() ActiveSheet.Range("A2:C20").Select ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = "Bom dia Srs(ª)." & vbCr & "Segue Quantidade para teste" ' Texto Corpo do e-mail .Item.To = "[email protected]" .Item.Cc = "[email protected]" .Item.Subject = "Quantidade de Atendimento" .Item.Send End With End Sub

Boa tarde! Tenho o código abaixo para selecionar as células desejadas e colar em um novo e-mail, entretanto, sempre da erro. Poderiam ajudar ou enviar outro código que faça o mesmo, por favor? Obrigado. Sub Send_Range() 'Seleciona o intervalo de células na planilha ativa. ActiveSheet.Range("A2:C20").Select ' Mostrar o envelope na ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = False ' Isso é definir o campo opcional introdução acrescenta ' algum texto do cabeçalho para o corpo de e-mail. Ele também define ' as linhas Para e Assunto. Finalmente a mensagem ' é enviado With ActiveSheet.MailEnvelope .Introduction = "Bom dia Srs(ª)." & vbCr& "Segue Quantidade para teste" ' Texto Corpo do e-mail .Item.To = "[email protected]" ' Para quem sera enviado .Item.Cc = "[email protected]" ' Com copia .Item.Subject = "Quantidade de Atendimento" ' Assunto do e-mail .Item.Send End With End Sub ERRO: Erro em tempo de execução '1004': O método 'EnvelopeVisible' do objeto '_WorkBook' falhou.

Wendell, Ele deu erro e mostrou a depuração no VBA na linha(ficou amarelo): Sheets("SEA FCL - SHIPPING INSTRUCTIONS").ExportAsFixedFormat Filename:=Nome_Arq, Type:=xlTypePDF, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

Bom dia! Eu tenho um código para imprimir em PDF no Excel, entretanto, não funciona no Windows 8/Office 2010. Poderiam me ajudar, por favor? ============================================================================================================================= Sub PDF() Dim Nome As String Dim SDate As String Dim MyLocal As String MyLocal = "G:\INTERNACIONAL\SI -MODELO DE INSTRUÇÃO DE EMBARQUE\MODELO NOVO SI MARÍTIMA FCL - 2015\PDF\" Nome = Range("AB12").Value Export = Range("T12").Value Agent = Range("AB10").Value PO = Range("AB6").Value SDate = Now If MsgBox("Gerar PDF", vbYesNo) = vbYes Then Nome_Arq = MyLocal & "SI FCL --- " & Nome & " --- " & Export & " --- " & Agent & " --- " & PO & " --- " & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & ".pdf" Sheets("SEA FCL - SHIPPING INSTRUCTIONS").ExportAsFixedFormat Filename:=Nome_Arq, Type:=xlTypePDF, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Application.DisplayAlerts = False Else Application.DisplayAlerts = False End If End Sub ================================================================================================================================

Pessoal, boa tarde! Tenho 03 botões no meu form de cadastro de clientes: (1) inserir (2) pesquisar (3) alterar Toda vez que eu clico em consultar e procuro um processo e depois volto pra planilha normal, se eu clicar novamente no cadastro do cliente, não reseta o código do cliente. Ele volta com o mesmo codigo que foi usado antes e consequentemente, ele não deixa eu cadastrar o processo porque ele diz que o codigo ja existe. Há alguma maneira de resetar o processo ou resolver ? Obrigado.

Basole, bom dia! Desculpe não ter expressado corretamente, mas era exatamente isso que eu precisava. Muito obrigado pela ajuda. abc

Então, na verdade eu quero usar o botão consulta para abrir o formulário PESQUISAR NOME com o list box pra que eu possa selecionar o cadastro que eu quero e depois poder altera-lo quando a macro fizer o retorno dos dados da pesquisa no formulário de cadastro. Veja o link que eu peguei pra montar essa parte toda. Eu fiz(acho) igual ao video, so que o formulario de pesquisa não abre... http://www.escolaexcel.com.br/2013/08/cadastro-de-clientes-com-pesquisar.html veja video 3

Ahh beleza Patropi...obrigado pela informação. teste.rar

Obrigado pela ajuda. Veja se consegue baixar o arquivo no link abaixo porque eu n tenho permissão pra enviar por aqui. http://www.4shared.com/file/XnEHywqpce/teste__1_.html

Boa tarde galera! peguei um código na net para gerar um formulário de cadastro de clientes. Só que o botão "PESQUISAR" não funciona de jeito não, eu clico e não acontece nada. 2 Formulários (1) Cadastro : 3 botões (INSERIR) (PESQUISAR) (LIMPAR) (2) Pesquisar: 1 - listbox + 1 lalbel Poderiam me ajudar, por favor. Seguem os códigos: Private Sub btn_Inserir_Click()Dim campos As VariantDim k As Bytecampos = Array(txt_Codigo, txt_Nome, txt_Linha1, txt_Linha2, txt_Linha3, txt_Linha4, txt_Linha5)Application.ScreenUpdating = FalseSheets("Cadastro").ActivateRange("a2").SelectDo While IsEmpty(ActiveCell) = False ActiveCell.Offset(1, 0).SelectLoopFor k = 0 To 6 ActiveCell.Offset(0, k).Value = campos(k).ValueNext kMsgBox ("Cliente '") & campos(1) & "' Cadastrado com Sucesso!", vbInformation, "Confirmação de Cadastro"For k = 0 To 6 campos(k).Value = EmptyNext kCells.EntireColumn.AutoFittxt_Codigo = Application.WorksheetFunction.CountA(Range("a1:a500"))Application.ScreenUpdating = TrueSheets("SI - AIR").ActivateRange("M10").SelectActiveWorkbook.SAVEEnd SubPrivate Sub btn_Limpar_Click()txt_Nome = Emptytxt_Linha1 = Emptytxt_Linha2 = Emptytxt_Linha3 = Emptytxt_Linha4 = Emptytxt_Linha5 = Emptytxt_Codigo = Application.WorksheetFunction.CountA(Range("a1:a500"))End SubPrivate Sub btn_Pesquisar_Click()End SubPrivate Sub txt_Codigo_AfterUpdate()Dim intervalo As RangeDim codigo As Integercodigo = txt_CodigoSet intervalo = Range("a2:i500")txt_Nome = Application.WorksheetFunction.VLookup(codigo, intervalo, 1, 0)txt_Linha1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, 0)txt_Linha2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, 0)txt_Linha3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, 0)txt_Linha4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, 0)txt_Linha5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, 0)End SubPrivate Sub UserForm_Initialize()Sheets("Cadastro").Activatetxt_Codigo = Application.WorksheetFunction.CountA(Range("a1:a500"))Sheets("SI - AIR").ActivateRange("M10").SelectEnd SubPrivate Sub ListBox_PesquisarNome_Click()End SubPrivate Sub ListBox_PesquisarNome_DblClick(ByVal Cancel As MSForms.ReturnBoolean)Dim valor_lista As IntegerDim selecao As Integerselecao = ListBox_PesquisarNome.ListIndexvalor_lista = ListBox_PesquisarNome.List(selecao, 0)With UserForm_Cadastro .txt_Codigo = valor_lista .txt_Codigo.SetFocus .txt_Nome.SetFocusEnd WithUnload MeEnd SubPrivate Sub UserForm_Click()End SubPrivate Sub UserForm_Initialize()With Sheets("Cadastro").UsedRange ListBox_PesquisarNome.ColumnCount = 2 ListBox_PesquisarNome.RowSource = .Adress End Withlbl_TotalRegistro.Caption = "Total de Registro(s): " & ListBox_PesquisarNome.ListCount - 1End Sub

Bom dia! Tenho uma planilha que preciso cadastrar clientes. Eu criei um cadastro através de formulário vba para esse cadastro. Eu tenho 8 colunas e gostaria de criar um list em outra aba que ao clicar no cliente que eu quero ele puxe todas as informações nas células seguintes. Isso é possível? Alguém poderia me ajuda, por favor? obrigado. abc Ex. Tenho as seguintes colunas. Cadastro ela através de um formulário que criei na aba "Cadastro" Na outra aba "Truck - Shipping Instructions", eu tenho 1 coluna e 8 Linhas que eu gostaria de criar um list box na primeira linha pra selecionar o cliente e automaticamente ele puxa as informações do cadastro para essa aba. Código | Nome | Linha1 | Linha2 | Linha3 | Linha4 | Linha5 | Linha6 | Linha7

Pra quem interessar...achei esse código e adaptei ele para reexibir uma aba, depois gerar o pdf e oculta-lo novamente. Também nomeia o arquivo utilizando algumas células. Sub PDF() Sheets("RELATÓRIO").Visible = True Dim Nome As String Dim SDate As String Dim MyLocal As String MyLocal = "C:\Documents and Settings\" Nome = Range("X12").Value Complemento = Range("X10").Value SDate = Now If Nome <> vbNullString Then Sheets("RELATÓRIO").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyLocal & "SI-" & Nome & Complemento & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Application.DisplayAlerts = False Else Application.DisplayAlerts = False End If Sheets("RELATÓRIO").Visible = False End Sub

Boa tarde! Tenho uma planilha com duas abas: 1º aba = "SI TRUCK" 2º aba = "RELATÓRIO" Gostaria de criar um botão dentro da aba "SI TRUCK" que ao clicar imprima a aba "RELATÓRIO" em pdf (área de impressão que eu já estipulei no menu exibição e quebra de página) e salve o arquivo com o nome que eu preciso, o nome do arquivo seria mais ou menos assim(se possível claro): SI TRUCK - "colar o conteúdo da célula a'" - "colar o conteúdo da célula a2" - data atual Já procurei em vários lugares e achei muitos códigos, mas como não conheço nada de códigos, não consegui ajustar nenhum código que fizesse o que eu preciso. Se alguém puder ajuda, agradeço. Abc

Muito obriogado pela ajuda. Abc

Muito obrigado pela ajuda. Minhas células estão mescladas e a fórmula deu erro e mensagem que não funciona para células mesclados. De qualquer modo, ajudou muito. Desculpe abusar, mas se eu quisesse somar apenas os valores USD que contém nessa mesma coluna, eu consigo? Por Exemplo: tenho a coluna CURRENCY igual a anterior e a coluna ao lado COSTS, eu consigo somar no campo abaixo somente os valores que contenham a sigla USD? obrigado mais uma vez.

Também, como eu faria pra somar somente os valores em dolar ou em outra moeda que aparecem no campo Currency?

Bom dia Pessoal, Tenho uma planilha de instruções e preciso copiar a informação que mais aparece entre um intervalo na minha tabela. Preciso que a informação que mais aparece no campo CURRENCY seja transferido para o TOTAL CURRENCY abaixo, poe exemplo abaixo, o valor que apareceria é EUR. Currency USD EUR EUR EUR EUR TOTAL CURRENCY puxar aqui a informação que mais aparece acima, no caso seria EUR Poderiam me ajudar, por favor? Abraços Rodrigo