terça-feira, 20 de agosto de 2013

Controle de Estoque com cadastro de clientes e fornecedores


                        Video aula 23 - Controle de Estoque com Cadastro de Clientes e Forncedores



Link para Donwload Compartilhado via Google Drive: 

Vídeo Aula mostra o funcionamento do formulário para controle de estoque e as implementações feitas no código... Cadastro de Clientes e Fornecedores, cálculo do estoque médio, busca de produtos no próprio formulário.

    Imagem 01. Janela principal do Formulário


           Imagem 02. Janela do Formulário de cadastro de clientes e fornecedores







segunda-feira, 5 de agosto de 2013

Carregando gráfico em formulário do excel - VBA

Video Aula 02 -  Carregando gráfico em formulário do excel - VBA


Videoaula descreve passo a passo como carregar um gráfico em formulário do excel com utilização de código VBA,

segue código... 

Private Sub UserForm_Initialize() 
Set CurrentChart = Sheets("Plan1").ChartObjects(1­).Chart 
CurrentChart.Parent.Width = 200 
CurrentChart.Parent.Height = 200 

'converter objeto de gráfico em imagem gif 

nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" 
CurrentChart.Export Filename:=nome, filtername:="GIF" 

' mostrar grafico como imagem no objeto 

image1 Image1.Picture = LoadPicture(nome)

 End Sub


COMPLEMENTO: Foi adicionado ao formulário uma combobox, responsável pela seleção dos gráficos.
Da seguinte forma... primeiro foram adicionados 3 gráficos na Plan2 conforme imagem...


Depois clicamos na guia desenvolvedor > Visual Basic e adicionamos um Formulário conforme figura...

adicionamos dois objetos, uma caixa de Listagem ou  Combobox e uma Caixa de Imagem ou simplesmente Image. Em vermelho os nomes dos objetos que devem ser inseridos na propriedade dos objetos...
 Dando um duplo clique no objeto cmb_grafico adicionamos o seguinte código:

Private Sub cmb_grafico_Click()

If cmb_grafico = "Grafico 01" Then 'faz o teste lógico e insere o gráfico respectivo ao objeto image1

Set CurrentChart = Sheets("Plan2").ChartObjects(1).Chart 'O número 1 se refere ao primeiro grafico inserido na plan2
CurrentChart.Parent.Width = 300
CurrentChart.Parent.Height = 200
'converter objeto de gráfico em imagem gif
nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=nome, filtername:="GIF"
' mostrar grafico como imagem no objeto image1
Image1.Picture = LoadPicture(nome)

ElseIf cmb_grafico = "Grafico 02" Then

Set CurrentChart = Sheets("Plan2").ChartObjects(2).Chart
CurrentChart.Parent.Width = 300
CurrentChart.Parent.Height = 200
'converter objeto de gráfico em imagem gif
nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=nome, filtername:="GIF"
' mostrar grafico como imagem no objeto image1
Image1.Picture = LoadPicture(nome)

Else

Set CurrentChart = Sheets("Plan2").ChartObjects(3).Chart
CurrentChart.Parent.Width = 300
CurrentChart.Parent.Height = 200
'converter objeto de gráfico em imagem gif
nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=nome, filtername:="GIF"
' mostrar grafico como imagem no objeto image1
Image1.Picture = LoadPicture(nome)

End If

End Sub

O seguinte código é adicionado dando um duplo clique em qualquer área livre do Userform e mudando-se o Procedimento de Click para Initiaze...

Private Sub UserForm_Initialize()

cmb_grafico.AddItem ("Grafico 01")
cmb_grafico.AddItem ("Grafico 02")
cmb_grafico.AddItem ("Grafico 03")

End Sub

O formulário funcionando deve ficar da seguinte forma...


Link para Download da planilha: compartilhado via Google Drive

https://docs.google.com/file/d/0B2tBlpeZsUSZVnhCUjhfT0ZTdDg/edit?usp=sharing


sábado, 3 de agosto de 2013

Pesquisar valores e retornar dados correspondentes em formulários VBA

Série de 4 Vídeo-Aulas mostrando como manipular dados no Excel com ajuda de formulários e programação em VBA. Nessas vídeo aulas mostro como fazer pesquisas dinâmicas com retorno de dados para as caixas de texto. 

Vídeo Aula 08 - Parte 1 - Pesquisar valores e retornar dados correspondentes em formulários VBA excel
Essa vídeo aula mostra como fazer uma pesquisa com base em um valor digitado dentro de uma caixa de texto (textbox) e retornar os dados correspondentes a esse valor. Útil para consulta de valores com baseados em códigos, por exemplo produtos, clientes, cidades


Vídeo Aula 08 - Parte 2 - Pesquisar valores, carregar e atualizar dados em formulários
Essa vídeo aula complementa a vídeo aula 08 e mostra como fazer a atualização das informações em um formulário VBA no excel, fazendo com que as informações cadastradas nele sejam atualizadas na planilha...

'Código da aula

Private Sub CommandButton1_Click()

Dim codigo As Integer
Dim quantidade As Double
Dim valor As Currency

linha = 2
codigo = txt_codigo
quantidade = txt_quantidade
valor = txt_valor_unitario

Sheets("estoque").Select
Do Until Sheets("estoque").Cells(linha, 1) = ""
    'condicção para localizar o código
    If Sheets("estoque").Cells(linha, 1) = codigo Then
       'seleciona célula com o código
       Sheets("estoque").Cells(linha, 1).Select
       
               ActiveCell.Offset(0, 1).Select
               ActiveCell = txt_produto
                                          
               ActiveCell.Offset(0, 1).Select
               ActiveCell = txt_unidade
               
               ActiveCell.Offset(0, 1).Select
               ActiveCell = quantidade
                              
               ActiveCell.Offset(0, 1).Select
               ActiveCell = valor
                              
               
               ActiveCell.Offset(0, 1).Select
               ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
               
               MsgBox ("Dados alteradados com sucesso!")
               
       End If
   
linha = linha + 1
Loop

Call txt_codigo_AfterUpdate

End Sub


Vídeo Aula 08 - Parte 3 - Pesquisar valores, criar botão para pesquisa de valores retorno de dados
Essa vídeo aula complementa a vídeo aula 08 parte 01 e  02... e  mostra como fazer a atualização das informações em um formulário VBA no excel, fazendo com que as informações cadastradas nele sejam atualizadas na planilha... com botão para busca de dados num formulário com listbox

'código para ser inserido no form que será usado para buscar os valores...
'lembrar que os objetos devem ter os mesmos nomes para o código funcionar
' listbox1 / userform4 / userform1 - altere conforme seu projeto...

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim valor_lista As Integer
Dim selecao As Integer

selecao = ListBox1.ListIndex
valor_lista = ListBox1.List(selecao, 0)

UserForm1.txt_codigo = valor_lista
UserForm1.txt_codigo.SetFocus
UserForm1.txt_produto.SetFocus

Unload Me


End Sub

Private Sub UserForm_Initialize()

'carrega intens na listbox1 com 2 colunas

linha = 2
linhalistbox = 0
conta_registros = 0

Do Until Sheets("estoque").Cells(linha, 1) = ""
    
     With UserForm4.ListBox1
            .AddItem
            .List(linhalistbox, 0) = Sheets("estoque").Cells(linha, 1)
            .List(linhalistbox, 1) = Sheets("estoque").Cells(linha, 2)
            linhalistbox = linhalistbox + 1
     End With
     
linha = linha + 1
conta_registros = conta_registros + 1

Loop

lbl_registros = conta_registros

End Sub

Vídeo Aula 08 - Parte 4 - Filtro dinâmico de valores em listbox em tempo real VBA excel

Nessa vídeo aula mostro como montar o código para criar uma busca dinâmica dentro de um formulário no excel com VBA. O código faz um filtro em tempo real com os caracteres digitados dentro da caixa de texto retornando dentro da listbox os valores que correspondem a pesquisa..

link para Download da planilha:
http://www.4shared.com/file/_65eLVbe/buscar_valores_1.html