Alguem ai pra me ajudar,
obrigado.

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

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

Boa tarde!!

O que quer diser com ...

tem um campo no meu form que se chama PESOFINAL

è uma textbox?
Seria

If TextBox1.Value="" Then

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

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

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

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

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

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

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