Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Lançamento para Cadastro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Lançamento para Cadastro   Ter Ago 19, 2014 5:00 pm

Bom dia,

Estou tentando desenvolver uma forma dinâmica de cadastro, até que estou conseguindo, mas estou precisando de alguns auxilio, como faço para que ao clicar no botão confirmar as informações lançadas na BD_Entrada, seja ordenado pelo código.
Outro auxilio, seria na verificação das informações, caso falte informações, tipo não informado o Carro, nome, Terminal;Estação/Projeto/ Obs, não permita o lançamento, apresentando uma mensagem informando o que está faltando, só seja permitido se caso todas as informações estejam devidamente informadas.

http://www.4shared.com/file/bJtJ7KEece/Controle_de_Portaria.html

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Lançamento para Cadastro   Ter Ago 19, 2014 9:54 pm

Boa tarde!!

Você tem 2 botões confirmar confused confused confused 

use...
Código:
With Sheets("BD_Entrada")
        .Range("A:G").Sort _
        Key1:=Sheets("BD_Entrada").Range("A1").Value, _
        Order1:=xlAscending, Header:=xlYes
    End With

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Re: Lançamento para Cadastro   Ter Ago 19, 2014 10:13 pm

Sim! seria um botão para cadastrar a entrada e outra para Saída dos Veículos, o código funcionou perfeito para a ordenação, muito obrigado.

Na questão de não permitir a confirmação do cadastro caso falte a informações, teria como me auxiliar?

Desde já agradeço sua atenção.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Lançamento para Cadastro   Ter Ago 19, 2014 10:38 pm

Boa tarde!!

Tente assim..
Código:
Sub Transfere_Entrada()
If Range("H9, K9, F12,H12,K12").Value = "" Then
    MsgBox "Favor prencher os campos"
    Exit Sub
Else
    Application.Goto Reference:="Entrada_Transferir"
    Selection.Copy
    Sheets("BD_Entrada").Select
    Application.Goto Reference:="R3C1"
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Application.Goto Reference:="R2C1"
    Application.Goto Reference:="Edita_Entrada"
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("F9").Select
 End If
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Lançamento para Cadastro   Ter Ago 19, 2014 11:02 pm

Boa tarde!!

Você pode mudar seu código para....
Código:
Sub Transfere_Entrada()
Dim ws As Worksheet
Dim wsDest As Worksheet
Set ws = Worksheets("F_Cadastro")
Set wsDest = Worksheets("BD_Entrada")

Application.ScreenUpdating = 0
    Worksheets("F_Cadastro").Activate
    If Range("H9, K9, F12,H12,K12").Value = "" Then
        MsgBox "Favor prencher os campos"
        Exit Sub
    Else
        Range("T9").Value = Range("F9").Value
        Range("U9").Value = Range("H9").Value
        Range("V9").Value = Range("J9").Value
        Range("W9").Value = Range("N9").Value
        Range("X9").Value = Range("F12").Value
        Range("Y9").Value = Range("H12").Value
        Range("Z9").Value = Range("J12").Value
        ws.Range("T9:Z9").Copy Sheets("BD_Entrada").Cells(Rows.Count, "A").End(xlUp).Offset(1)
        wsDest.UsedRange.Value = wsDest.UsedRange.Value
    End If
    'Classifica os dados
    With Sheets("BD_Entrada")
        .Range("A:G").Sort _
        Key1:=Sheets("BD_Entrada").Range("A1").Value, _
        Order1:=xlAscending, Header:=xlYes
    End With
   
Application.ScreenUpdating = 1
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Lançamento para Cadastro   Ter Ago 19, 2014 11:20 pm

Boa tarde!!

Eu dei uma melhorada na usa versão planilha e fiz um formulário!!
https://www.sendspace.com/file/iknemz


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Re: Lançamento para Cadastro   Qua Ago 20, 2014 7:39 pm

Boa Tarde,

Muito bom, você sabe muito! Ficou show de bola. Tem algum site que possa estar estudando os códigos em vba, para chegar perto do seus conhecimentos.

Fico muito grato pela sua atenção.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Lançamento para Cadastro   Qua Ago 20, 2014 10:32 pm

Boa tarde!!

Eu fiz um pequeno modelo com algumas funcionalidades, só para que você tenha uma ideia superficial.
https://www.sendspace.com/file/7k16h5

Para aprender um pouco sobre VBA leia:
http://www.bertolo.pro.br/FinEst/SemanaContabeis2007/MacroExcel.pdf

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Re: Lançamento para Cadastro   Qui Ago 21, 2014 1:27 pm

Bom dia,

show! muito obrigado.....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Lançamento para Cadastro   Qui Ago 21, 2014 2:04 pm

Bom dia!!

Eu fico feliz por ter ajudado, obrigado pelo retorno!

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Lançamento para Cadastro   Hoje à(s) 8:58 pm

Voltar ao Topo Ir em baixo
 
Lançamento para Cadastro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Bada 2.0 para Wave 533 ?
» [FAQ] Gerir a função "Lançar dados"
» Em busca de sonoplasta para lançamento de jogo
» Lançamento de Dados exclusivos para certas Categoria/Forums
» LANÇAMENTO DUOSAT TWIST PROMETE ABRIR HDs DA CÉU !

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: