VBA – Modelo de Registro de Ponto no Excel

Então, sabe o fórum… aprontou mais uma vez!

Desta vez quem assina é o colega Rafael.

O modelo é um registro de horas simples, mas permite que facilmente os próprios usuários registrem com idoneidade os apontamentos de suas horas, caracterizando o Registro de Ponto, ou quase um Relógio de Ponto.

Registro de ponto
Registro de ponto

Download do Arquivo

Registro de ponto.zipRegistro de ponto – Modelo pronto107.99 KiB)

Tópico do Fórum

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&p=8181

VBA – Arrastar Dados para ListBox

… e lá vem mais de nossa incansável comunidade do fórum! Dessa vez, é o colega joseA é quem assina.

Segundo o próprio, seguindo a Ajuda do VBA (lembra? Aquela que aparece quando você clica em F1, normalmente sem querer…). O resultado é este modelo simpático de arrastar itens entre controles ListBox. Confira!

Arrastar dados no ListBox
Arrastar dados no ListBox

Download da planilha

ArrastarListboxJoseA.zip (17.41 KiB)

Tópico do Fórum

http://www.tomasvasquez.com.br/forum/viewtopic.php?t=1715&p=8178

Bom proveito!

VBA – Exportar Planilha para TXT

Nascido das mãos do colega Rafael do nosso fórum, o código abaixo realiza a exportação de uma planilha ativa no Excel para um arquivo Texto:

Sub Exportar()
    Application.DisplayAlerts = False
 
    template_file = ActiveWorkbook.FullName
 
    fileSaveName = Application.GetSaveAsFilename( _
                   InitialFileName:="C:\users" + _
                                    VBA.Strings.Format(Now, "mmddyyyy") + ".txt", _
                   fileFilter:="Text Files (*.txt), *.txt")
 
    If fileSaveName = False Then
        Exit Sub
    End If
 
    'cria uma cópia da pasta de trabalho atual da planilha atual
    Dim newBook As Workbook
    Dim plan As Worksheet
    Set newBook = Workbooks.Add
 
    ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1)
 
    'exclui as demais planilhas
    For Each plan In newBook.Sheets
        If plan.Name <> ActiveSheet.Name Then
            newBook.Worksheets(plan.Index).Delete
        End If
    Next
 
    newBook.SaveAs Filename:= _
                          fileSaveName, FileFormat:=xlTextWindows, _
                          CreateBackup:=False
 
    'fecha a pasta de trabalho gerada
    newBook.Close SaveChanges:=True
    Set newBook = Nothing
 
    MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos"
 
End Sub

A parte bacana deste código é não necessidade de utilizar ou precisar conhecer de manipulação de arquivos, uma vez que estamos utilizando o “Salvar Como” arquivo texto. Fica bem mais fácil de customizar!

O link original do código do fórum pode ser visto aqui:

www.tomasvasquez.com.br/forum/viewtopic.php?t=1651&p=8162

Bom proveito!

Modelos Prontos – Módulo de Orçamento em Excel VBA

Olha o pessoal do fórum aprontando de novo. Dessa vez foi o colega Leandro Alves o autor da proeza. Abaixo coloco o post do fórum referente ao excelente modelo de planilha disponibilizado pelo colega:

Olá Pessoal,

Estou disponibilizando este modelo de orçamento que fiz para o meu próprio uso. E modéstia a parte ficou legalzinho. Conforme a minha necessidade, não o fiz para realizar pesquisas num banco de dados porque colho as informações manualemte direto do site dos meus fornecedores.

Este é um aplicativo que calcula automaticamente o preço de venda de uma mercadoria baseado no seu preço de custo e na margem de lucro escolhida pelo usuario. Também pode-se estipular um preço de venda e ele calcula automaticamente a margem obtida. No rodapé ele mostra os dados financeiros do orçamento sendo eles Custo Total, Média da Margem de Lucro, Lucro por Produto e Lucro Total. Temos opções para desconto, acrescimo e ocultar informaçoes financeiras caso o cliente precise ver o orçamento.

É possivel Gravar, Editar, imprimir e Apagar um orçamento buscando-o através da tela de pesquisa onde o usuario realiza filtros por uma data especifica, por nome e até por intervalo de datas. E outro detalhe importante é que ao gerar um novo orçamento sempre é gerado num novo numerio sequencial para o mesmo automanticamente.

*Lembrando que todas as informações contidas no arquivo são ficticias e foram inseridas somente para testes.

Espero que gostem!

😀

Abraços

Imagens do Modelo

Orcamento - Tela de Cadastro

Orcamento - Tela de Pesquisa

Download da planilha

Orçamento.rar (92.06 KiB)

Tópico do Fórum

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&t=1654

E um merecido agradecimento ao colega pela contribuição!

Há muitos outros colegas disponibilizando disversos modelos em nosso fórum. Vale a pena dar uma olhada!

Um grande abraço e bom proveito!