Video 77 - Parte 12.3 - Formulário para Pedido de Compras - Formulário d...

Formulário para Impressão de Pedidos de Compras



O vídeo detalha o processo utilizado para o carregamento dos pedidos gerados no Form para a planilha de impressão.







LINK DOWNLOAD -
 **** Não esqueça de criar uma pasta chamada Pedidos para que o sistema salve os PDFs
(deve ser criada no mesmo diretório onde a planilha for salva) ***

https://www.dropbox.com/s/6ggvc9cny13zxj7/77-p12-CEI-Pedidos_de_Compras.xlsm?dl=0

 Att. Renam

***
Instalar a biblioteca listview
http://logicavba.blogspot.com.br/2013/10/como-ativar-o-controle-listview-no.html
Complemento do windows para gerar PDF
link para baixar o suplemento para gerar PDF a partir do VBA
http://www.microsoft.com/pt-br/download/details.aspx?id=7

Vídeo de como gerar PDF no excel com VBA
https://www.youtube.com/watch?v=ZRQkEAtLv4g

Video 77 - Parte 12.2 - Formulário para Pedido de Compras - Cancelar e E...

Segunda parte do vídeo sobre o Formulário de Pedidos, no vídeo mostro como fazer o cancelamento e edição de um pedido já emitido.

Video 77 - Parte 12.1 - Formulário para Pedido de Compras

Décimo segundo vídeo da série que aborda a construção de um sistema de controle industrial para gerenciamento de entrada e saída de produtos com utilização da importação de arquivos XML.

Nesse vídeo é mostrado o formulário para pedido de compra de Matérias Primas

LINK DOWNLOAD - 
 Não esqueça de criar uma pasta chamada Pedidos para que o sistema salve os PDFs
(deve ser criada no mesmo diretório onde a planilha for salva)

https://www.dropbox.com/s/6ggvc9cny13zxj7/77-p12-CEI-Pedidos_de_Compras.xlsm?dl=0

***

Instalar a biblioteca listview
http://logicavba.blogspot.com.br/2013/10/como-ativar-o-controle-listview-no.html

Complemento do windows para gerar PDF
link para baixar o suplemento para gerar PDF a partir do VBA
http://www.microsoft.com/pt-br/download/details.aspx?id=7

Vídeo de como gerar PDF no excel com VBA
https://www.youtube.com/watch?v=ZRQkEAtLv4g

Importar dados de outra planilha com escolha da guia - Excel Avançado

Nesse Post mostro como importar dados de outra planilha com a possibilidade de escolhermos a guia a ser importada... os dados são importados da planilha para a listview, onde podemos selecionar os registros para montar um relatório por exemplo...

Para importar somente a guia que queremos de outra planilha foram criados os seguintes formulários:

01. Formulário para escolha da Planilha.
02. Formulário par escolha da guia da planilha selecionada.

Ao selecionar a guia os dados serão importados primeiramente para a Listview e podem ser todos descarregados na planilha de relatórios ou somente os itens selecionados serem importados.

Link para download: compartilhado via Dropbox
https://www.dropbox.com/s/6cjvch9qm55iser/74%20-%20Importar%20dados%20de%20outro%20arquivo%20xls.xlsm?dl=0


Mais detalhes no vídeo:
Parte 01:

Parte 02:

Att.
Renam

Criar pasta com o nome de célula ou variável e salvar em PDF

Nesse post mostro como criar pasta e salvar arquivo em PDF dentro dela, o nome da pasta pode ser o conteúdo de uma célula, de uma variável, ou ainda de um textbox/combobox...

No código abaixo uso a célula E3 da planilha selecionada para ser o nome da pasta e também para criar o PDF que será salvo nessa mesma pasta...

    Dim caminho As String
    Dim pasta As Object, NomePasta
   
    Set pasta = CreateObject("Scripting.FileSystemObject")
    NomePasta = ActiveWorkbook.Path & "\" & Range("E3").Text
    
   If Not pasta.FolderExists(NomePasta) Then
        pasta.CreateFolder (NomePasta)
   End If
        
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ActiveWorkbook.Path & "\" & Range("E3") & "\" & "Relatório Nº " & Range("E3") & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False
    
    caminho = NomePasta & "\" & "Relatório Nº " & Range("E3") & ".pdf"
    Me.txt_arquivo = caminho


A variável caminho irá armazenar o caminho, diretório, onde o arquivo gerado foi salvo e será mostrado dentro da caixa de texto txt_arquivo....


Mais detalhes sobre o procedimento, pode ser encontrado no vídeo abaixo


 

Att.

Renam

link Dropbox para Download:

https://www.dropbox.com/s/rjiuhppvnoxu5p0/73%20-%20Criar%20pasta%20com%20o%20nome%20de%20c%C3%A9lula%20ou%20vari%C3%A1vel.xlsm?dl=0

Editando documentos no Word através do Excel + Cadastro de Contratos

Nesse Tutorial mostro como interagir o Excel com o Word para edição de documentos... 

Através de um formulário para cadastramento de contratos de aluguel demostro como fazer essa interação, criando novos documentos a partir de um modelo editado no Word.

A planilha mostrada no vídeo abaixo vai permitir a substituição de elementos pré-determinados no documento, no caso, utilizei o # antes do nome dos elementos para que o código localize esse elemento e faça a substituição diretamente no WORD.

Abaixo trecho do código que permite fazer essa substituição: Macro btn_montar_contrato

Private Sub btn_montar_contrato_Click()

    Dim WORD As WORD.Application
    Dim DOC As WORD.Document
    
    Set WORD = CreateObject("Word.Application")
    WORD.Visible = True
    
    Set DOC = WORD.Documents.Open("C:\Teste\contrato_modelo.docx")
    
    With DOC
        '*Dados locador
        .Application.Selection.Find.Text = "#LOCADOR"
        .Application.Selection.Find.Execute
        .Application.Selection.Range = UCase(Me.txt_razao)
        
        .Application.Selection.Find.Text = "#RG_LOCADOR"
        .Application.Selection.Find.Execute
        .Application.Selection.Range = txt_ie
               
        .Application.Selection.Find.Text = "#CPF_LOCADOR"
        .Application.Selection.Find.Execute
        .Application.Selection.Range = txt_cnpj
         
        '*Dados locatário
        .Application.Selection.Find.Text = "#LOCATARIO"
        .Application.Selection.Find.Execute
        .Application.Selection.Range = UCase(txt_nome_locatario)

.
.
.

End Sub

Os campos respectivos no dcumento #LOCADOR, #RG_LOCADOR serão substituídos pelos valores que estiverem nas caixas de texto txt.razao e txt_ie

link para download dos arquivos:

https://www.dropbox.com/s/q68zihhv01yqhyt/71%20-%20Preencher%20Contrato.rar?dl=0
*** Atenção: Editar no código o caminho onde salvará o modelo do contrato a ser editado para que funcione...

*** Em caso erro na Biblioteca da listview por falta da referência
      Segue link explicando como resolver o problema
     http://logicavba.blogspot.com.br/2013/10/como-ativar-o-controle-listview-no.html

Planilha para conferir resultados da MEGA-SENA

Na sequência de vídeo abaixo mostro uma planilha montada em Excel + VBA para fazer a conferência de jogos da Mega-Sena, a planilha faz a importação dos resultados do site da caixa diretamente para a planilha. Nela é possível cadastrar os jogos apostados e conferir com os valores do último sorteio ou de todos os concursos dessa loteria.
Existe o recurso ainda de Estatística dos sorteios, onde é possível vizualizar e ordenar as dezenas mais sorteadas e menos sorteadas, assim como o tempo de atraso de uma dezena.

* Lembrando que a planilha utiliza Listview. 
Caso ocorra algum erro de objeto não encontrado ou de acesso a biblioteca, favor verificar o link: http://logicavba.blogspot.com.br/2013/10/como-ativar-o-controle-listview-no.html

Parte 01. Nesse vídeo mostra as principais funcionalidades do sistema.

Parte02. Como salvar o arquivo corretamente para importação dos resultados
*** IMPORTANTE ***

Parte 03. Análise dos códigos de montagem dos jogos e de comparação

Parte 04. Análise dos códigos  de edição dos dados de uma listview para mudança de apostas

Parte 05. Análise dos códigos de comparação para soma de acertos em cada jogo e também a explicação de como utilizar Arrays ou Matrizes para auxiliar nessa contagem

Na Parte 06 fiz uma atualização na planilha permitindo agora as estatísticas dos sorteios e a conferência de todas as apostas em todos os concursos.

Parte 06. Atualização da planilha e explicação do funcionamento das novas funções.