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

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