| | Lançamento para Cadastro |  |
|
|
| Autor | Mensagem |
|---|
Anacleto
Mensagens : 86
Data de inscrição : 04/04/2012
| | Assunto: 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
| |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Lançamento para Cadastro Ter Ago 19, 2014 9:54 pm | |
| Boa tarde!! Você tem 2 botões confirmar  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 | |
|
| | |
Anacleto
Mensagens : 86
Data de inscrição : 04/04/2012
| | Assunto: 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.
| |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
Anacleto
Mensagens : 86
Data de inscrição : 04/04/2012
| | Assunto: 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. | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
Anacleto
Mensagens : 86
Data de inscrição : 04/04/2012
| | Assunto: Re: Lançamento para Cadastro Qui Ago 21, 2014 1:27 pm | |
| Bom dia,
show! muito obrigado..... | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Lançamento para Cadastro Qui Ago 21, 2014 2:04 pm | |
| Bom dia!!
Eu fico feliz por ter ajudado, obrigado pelo retorno!
Att | |
|
| | |
Conteúdo patrocinado
| | Assunto: Re: Lançamento para Cadastro | |
| |
|
| | |
| | Lançamento para Cadastro | |
|
