DanielCarneiro

Bom dia pessoal, Estou com o seguinte código que faz com que o vba gere um arquivo em pdf e salve em uma determinada pasta. Gostaria de saber se vocês tem conhecimento de se existe possibilidade de por a macro pra usar a referência como a coluna A, fazendo com o vba gere o pdf até a ultima linha da coluna A? A macro irei deixar abaixo: Sub GerarPDF() Dim SvInput As String Dim Data As String Dim var_MENSAGEM Dim Nome As String 'selecionar a tabela, "Banco" é o nome dela Plan8.Select 'Para determinar o fim da planilha com o nome "pdff", e "Banco" o nome da planilha pdff = Plan8.UsedRange.Rows.Count 'Selecionar o inicio e o fim da planilha Range("A1:I1" & pdff).Select Nome = InputBox("Digite o nome para o relatório. Ex.: Inventário + 'Nome do Responsável'", "Gerar Relatório PDF") If Nome = cancelar Then Exit Sub Data = VBA.Format(VBA.Date, "dd-mm-yyyy") SvInput = "C:\Users\Carneiro\Desktop\Projeto TheoPrax\Inventários" & Application.PathSeparator & Nome & "_" & Data & ".pdf" With ActiveSheet .ExportAsFixedFormat _ Type:=x1TypePDF, _ Filename:=SvInput, _ OpenAfterPublish:=True End With 'Mandar o excel salvar a alteração ActiveWorkbook.Save -------------------- Caso alguém possa ajudar ficarei grato

Não conheço nenhum método que faça isso, a forma mais simples de fazer isso é criando um botão pequeno ao lado do combobox e então utilizar a função clear.

Qual tipo de Macro? Detalhe melhor o que você precisa que a macro realize.

Ola pessoal... Estou com um pequeno problema com a configuração do meu sistema em VBA... Estou realizando alguns procedimentos e no final coloco -> ActiveWorkbook.Save Com o intuito do VBA salvar a planilha automaticamente, mas acaba que ela não salva e sempre que tento fechar ela pede para eu salvar manualmente. O código completo que estou usando vou deixar abaixo: ------------------------------------------- Private Sub CommandButton7_Click() 'Declarar uma variavel para verificar os campos que estão em branco e informar ao usuário que deve ser preenchido Dim campo(16) As String 'Campos digitados manualmente para que o excel exiba os campos de cada um. campo(1) = "Código" campo(2) = "Nome do Fornecedor" campo(3) = "CNPJ" campo(4) = "Marca" campo(5) = "Nome do Representante" campo(6) = "Contato" campo(7) = "Estado" campo(8) = "Cidade" campo(9) = "Bairro" campo(10) = "Endereço" campo(11) = "Nº" campo(12) = "Complemento" campo(13) = "Status" campo(14) = "Email" campo(15) = "Site" campo(16) = "Descrição do Fornecedor" 'Perguntar ao usuário se ele realmente deseja gravar os dados na base Resposta = Msgbox("Deseja cadastrar/alterar o Fornecedor?", vbQuestion + vbYesNo, "Atenção Usuário") If Resposta = vbNo Then Exit Sub End If 'Caso o usuário queira realmente salvar, então exibir mensagem informando que o Fornecedor foi salvo com sucesso. Msgbox "Fornecedor cadastrado/alterado com sucesso", vbInformation, "Atenção Usuário" 'Declarar variavel que será utilizada para gravar os dados no excel (ln) Dim ln As Integer 'Mandar o Excel procurar a base de dados na qual encontra-se o pedido de compra e adicionar o novo Fornecedor na próxima linha ln = Range("base_fornecedores").Rows.Count + 1 'Gravar os dados na planilha de Cadastro de Produtos For a = 1 To 16 Plan5.Cells(ln, a) = controle_de_cadastro_de_fornecedores(a) Plan5.Range("base_fornecedores").CurrentRegion.Name = "base_fornecedores" Next 'Mandar o excel salvar o arquivo do excel no computador, para que o usuário possa fechar sem ter que salvar manualmente ActiveWorkbook.Save End Sub ------------------------- Se alguém poder me ajudar ficarei bastante grato