Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda com Código
 
Notifications
Clear all

Ajuda com Código

 
2024 - VBA & Macros
Post Recente por wfranca 10 anos atrás
4 Posts
3 Usuários
0 Reactions
883 Visualizações
RSS
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Pessoal, como posso modificar esse código para que ele leia de cima para baixo?

a cada momento que vou preenchendo as textbox, uma outra textbox me atualiza um status

porém o código não está respeitandoa sequencia, ele sempre atualiza a última mensagem do status mesmo os de cima estando vazios

Private Sub status()
   
    If Me.txtNferemessa.Text = "" Then
        Me.txtstatus.Text = "Aguardando Entrada na Galleria"
   End If
      If Me.txtNFT.Text = "" Then
        Me.txtstatus.Text = "Aguardando NFT"
    End If
  If Me.txtpedido.Text = "" Then
        Me.txtstatus.Text = "Aguardando Pedido Zucchi"
  End If
  If Me.txtov.Text = "" Then
        Me.txtstatus.Text = "Aguardando Ordem de Venda"
  End If
If Me.txtov.Text = "" Then
        Me.txtstatus.Text = "Aguardando Ordem de Venda"
  End If
If Me.txtnferetorno.Text = "" Then
        Me.txtstatus.Text = "Aguardando NFe Retorno"
  End If
If Me.txtnfeindustr.Text = "" Then
        Me.txtstatus.Text = "Aguardando NFe Industrialização"
  End If

If Me.txtmigoentrada.Text = "" Then
        Me.txtstatus.Text = "Aguardando Migo Entrada"
  End If
If Me.txtcompensacao.Text = "" Then
        Me.txtstatus.Text = "Aguardando Compensação"
  End If
  If Me.txtmiro.Text = "" Then
        Me.txtstatus.Text = "Aguardando MIRO"
  Else
  Me.txtstatus.Text = "Processo Concluído"
  
  End If
end sub
 
Postado : 13/02/2015 2:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tem como postar seu arquivo modelo?

Att

 
Postado : 13/02/2015 2:17 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Isso é porque todos os IF - End if estão independentes.

Se vc percorrer o código linha a linha (F8), vai ver que ele passar por todos os IFs.

Vc teria que colocar todos os Ifs, um dentro do outro:

IF textbox1 = "" then
     o que fazer
Else
     IF textbox2 = "" then
          o que fazer
     Else
          IF textbox3 = "" Then
               o que fazer
          End if
     End if
End if

Porém, eu acho que seria mais elegante vc habilitar apenas 1 textbox por vez:

Private Sub UserForm_Activate()
Me.textbox1.Enabled = true
Me.textbox2.Enabled = False
Me.textbox2.Enabled = False
End Sub

Private Sub textbox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(textbox1_KeyUp.Value) >= 5 Then 'coloquei 5 caracteres, defina a quantidade que deseja
    Me.textbox2.Enabled = True
Else
    Me.textbox2.Enabled = False
End If
End Sub
 
Postado : 13/02/2015 2:36 pm
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Shooww gtsalikis.

Obrigado

 
Postado : 23/02/2015 9:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico