Condição de Entrada...
 
Notifications
Clear all

Condição de Entrada e SAIDA

12 Posts
2 Usuários
0 Reactions
2,641 Visualizações
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Boa tarde pessoal estou novamente aqui postando um arquivo de controle de pesagem
seguinte esta funcionando as funçoes adicionada ate o momentos
mais estou com alguns problemas estão comentado mais vou posta a minha duvida aqui,
seguinte tenho as condições EM ABERTO e FECHADO
essa condição quero que funcione da seguinte maneira quando eu clico no botão NOVO
ele ja adiciona o EM ABERTO depois eu salvo o mesmo
quando eu busca o mesmo e mandar editar e salvar ele muda para FECHADO
Bom nessa mesma condição eu tenho DATA e HORA DE ENTRADA e DATA E HORA DE SAIDA
a mesma condição para EM ABERTO E FECHADO vale para essas duas ai entenderam! certo estou com outro problema não consigo copiar para a planilha historico somente algumas colunas no botão salva do projeto logo abaixo da rotina de salvamento esta comentado a função de copiar para outra planilha

Obrigado pela atenção segue o anexo

At.
Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 28/02/2012 2:03 pm
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Alguem ai pra me ajudar,
obrigado.

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 02/03/2012 4:13 am
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Ola pessoal, andei tentando criar a condição
mais ainda não conseguir
tem um campo no meu form que se chama PESOFINAL
como faço para verificar se tem algum valor no mesmo
pois se eu conseguir isso acho que consigo por a condição
algo mais ou menos assim

If PesoFinal.Value<= 0 then
Cells(ProximaLinha, 36) = "Em Aberto"
else PesoFinal.Value => 0
Cells(ProximaLinha, 36) = "Fechado"

eu nao testei essa ideia loca, gostaria de saber se tem como pois eu acho que seria a forma mais viavel de se verificar e fecha o TICKET
desde ja agradeço a todos.

At.
Marcelo Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 11/03/2012 1:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tente :
If PesoFinal.Value = "" Then

Veja sobre a validação em TextBox :

ativar macro se for verdadeira
viewtopic.php?f=10&t=3261&p=14859&hilit=textbox1#p14859

[]d

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/03/2012 1:49 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

O que quer diser com ...

tem um campo no meu form que se chama PESOFINAL

è uma textbox?
Seria

If TextBox1.Value="" Then

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/03/2012 1:52 pm
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Mauro e alexandre obrigado por responde, eu ja conseguir verificar se existe algo no textbox
o problema agora e como faço para adicionar valores na planilha dependendo se o TEXTBOX tem ou não tem valor
seria mais ou menos assim

PesoLiquido.Text = "" Then
Cells(ProximaLinha, 36) = "Em Aberto" 'Aqui seria quando o textbox PESOLIQUIDO estiver vazio
Else
Cells(ProximaLinha, 36) = "Fechado" 'E aqui e quando o TextBox estiver com algum valor
Cells(ProximaLinha, 3) = Now 'E aqui e quando o TextBox estiver com algum valor
End If

Eu tentei aqui mais ele não se comportou da forma que eu esperava me entendem??
obrigado desde ja

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 11/03/2012 2:00 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não compreendi :

PesoLiquido.Text = "" Then Se o TextBox estiver Vazio
lança "Em Aberto" em Cells(ProximaLinha, 36)
Cells(ProximaLinha, 36) = "Em Aberto" 'Aqui seria quando o textbox PESOLIQUIDO estiver vazio
Else
'Aqui se tiver algum valor prenche a as linhas conforme a Variavel "ProximaLinha, coluna 36 e coluna 3" ?
Cells(ProximaLinha, 36) = "Fechado" 'E aqui e quando o TextBox estiver com algum valor
Cells(ProximaLinha, 3) = Now 'E aqui e quando o TextBox estiver com algum valor
End If

Qual o erro ?

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/03/2012 2:28 pm
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Não dar erro Mauro,
o que eu quero e quando o usa´rio clicar no botão salvar
o sistema verificar se o pesofinal ja foi preenchido
ou não se for falso ele fica EM ABERTO
se for verdadeiro ele é FECHADO e adicionado data e hora de saida
entende
é pra controle de pesagem ENTRADA E SAIDA
FECHADO E EM ABERTO
compreende?

At.
Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 11/03/2012 2:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Araujo, a principio eu entendi, só não compreendi da maneira que postou acima, mas veja se é isto utilizando a dica do tópico que passei :

Private Sub CommandButton1_Click()

        If PesoLiquido.Text = "" Then 'Se estiver em Branco
                MsgBox "Preenchimento Obrigatorio !!"
                'Seleciona o TextBox
                PesoLiquido.SetFocus
                
                'Sai da Rotina
                GoTo Linha1
       
            ElseIf PesoLiquido.Text <> "" Then
                    MsgBox "TextBox - PesoLiquido - Preenchido"
                    
                    'Lança na Planilha
                    Cells(ProximaLinha, 36) = "Fechado"
        End If

Linha1:

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/03/2012 6:22 pm
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bom dia Mauro
cara eu fiz como tu postou ai mais não sei porque não funcionou
segue a planilha com o codigo mandando por te para melhor entendimento
o codigo foi adicionado no botão salvar.

At.
Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 13/03/2012 8:09 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Araujo,
o codigo que vc adicionou tem como variavel "ProximaLinha", porem, pelo que pude ver, em lugar nenhum é determinado o valor dessa variavel.
Outra, onde é alimentado o valor do peso liquido? Só achei uma menção em "Ardidos".

  ' Dica enviada por Mauro Coutinho no Forum Planilhando
  If PesoLiquido.Text = "" Then
      Cells(ProximaLinha, 36) = "Em Aberto"
      
       'GoTo Linhal ' aqui dar erro de copilação ROtulo não definido
       
   ElseIf PesoLiquido.Text <> "" Then
       Cells(ProximaLinha, 36) = "Fechado"
       Cells(ProximaLinha, 3) = Now
   End If

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/03/2012 8:56 am
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Boa tarde Reinaldo
tudo bem ?
a variavel a que se refere é

'Ativa Plan Lancamentos
Sheets("Lancamentos").Activate
Range("a1").Select
ActiveSheet.ShowAllData
' Determina a proxima linha vazia
ProximaLinha = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
Cells(ProximaLinha, 1) = ProximaLinha - 1
Cells(ProximaLinha, 2) = Data2
Cells(ProximaLinha, 3) = Now()
Cells(ProximaLinha, 36) = "Em Aberto"

NTicket.Text = Cells(ProximaLinha, 1)
DataAtual.Text = Cells(ProximaLinha, 2)
DataHoraEnt.Text = Cells(ProximaLinha, 3)

obrigado .

At.
Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 13/03/2012 9:44 am