Edlenon1983

Neste cso ele da interferencia, pois já existe outro nome "Private Sub ComboBox1_Change()"....

Pois é, eu consegui fazer funcionar a parte em que ao fechar a caixa selecionando a opção "REINICIO", ela trava a hora em "K7". Até ai ta legal.

Private Sub cmdFechar_Click()
Unload Me
If Range("k5") = "REINICIO" Then
Range("k7") = Time
End If
End Sub

 

Mas quando eu abro insere a hora em "k6". Dai eu coloquei desta forma:

 

Private Sub ComboBox1_Change()
Range("k5").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox1.Value
Frame1.Caption = "Nome inserido [ " & ComboBox1.Value & "]"
Frame1.ForeColor = H000040C0&
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Initialize()
With Worksheets("Dados")
UserForm1.ComboBox1.List = .Range("A3:B20" & .Range("A3").End(xlDown).Row).Value
If Range("K5").Value = "BRIEFING" Then
Range("k6") = Time
End If
End With
      
' UserForm1.ComboBox1.List = Saber1.Range("B4:B38").Value  'limitando o range
  SendKeys "%{down}"
End Sub

 

Tava funcionando quando eu seleciono a palavra "BRIEFING", mas agora parou de funcionar.

 

Boa tarde,

 

Ainda esta colocando a data e hora quando clico no dropdown, não sei porque.

 

Private Sub ComboBox1_Change()
Range("k5").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox1.Value
Frame1.Caption = "Nome inserido [ " & ComboBox1.Value & "]"
Frame1.ForeColor = H000040C0&
End Sub

Private Sub Label1_Change()
End Sub
Private Sub UserForm_Initialize()
'carregar uma combobox com auxílio de instrução with
With Worksheets("Dados")
UserForm1.ComboBox1.List = .Range("A3:B20" & .Range("A3").End(xlDown).Row).Value

Range("K5").Value = .Range("A3:B20" & .Range("A3").End(xlDown).Row).Value
Range("k6") = Time

Range("k5") = "REINICIO"
Range("k7") = Time

End With
 
     
' UserForm1.ComboBox1.List = Saber1.Range("B4:B38").Value  'limitando o range
  SendKeys "%{down}"

End Sub
 
Private Sub cmdFechar_Click()
Unload Me
End Sub

 

Boa noite!!!

 

Wendell,

 

Ainda assim não funcionou.....mas obrigado!

Bom dia pessoal,

 

Tenho a seguinte necessidade. O código abaixo, me traz uma caixa para eu selecionar algumas opções que são demonstradas em uma determinada célula.

Private Sub ComboBox1_Click()
Range("k5").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox1.Value
Frame1.Caption = "Nome inserido [ " & ComboBox1.Value & "]"
Frame1.ForeColor = H000040C0&
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Initialize()
'carregar uma combobox com auxílio de instrução with
With Worksheets("Dados")
   UserForm1.ComboBox1.List = .Range("A3:B20" & .Range("A3").End(xlDown).Row).Value
         
End With
    
' UserForm1.ComboBox1.List = Saber1.Range("B4:B38").Value  'limitando o range
  SendKeys "%{down}"
  
       
End Sub
 
Private Sub cmdFechar_Click()
Unload Me
End Sub

 

 

Tentei colocar a opção, que quando eu escolho determinanda palavra desta Caixa, e esta palavra aparecendo em uma determinada célula "K5", automaticamente na célula abaixo "K6" era inserido a hora e quando novamente eu chamar a Caixa e selecionasse a palavra "REINICIO" em "K5", automaticamente em "K7" era inserido a hora.

Range("K5").Value = .Range("A3:B20" & .Range("A3").End(xlDown).Row).Value
Range("k6") = Time

Range("K5").Value = "REINICIO"
Range("k7") = Time

 

 

Só que quando eu abro a Caixa, automaticamente a hora atualizada em K6 e K7.

 

Segue planilha palavra melhor entendimento!!!!

 

 

 

 

 

 

 

 

 

Controle_de_Produção_Shrink_-_Leitor_Código_de_Barras.zip

Wendell,

 

Obrigado era isso que eu precisava!!!

Pessoal,

 

Tenho o seguinte código abaixo, para excluir a linha onde contém o dado digitado:

 

Sub ExcluirComCritério ()

'Excluir código por linha

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="aba"

resp = InputBox("Digite o Código a ser Excluído")

Range("A9:A50000").Select
Selection.Find(What:=resp).Activate
lin = ActiveCell.Row
Rows(lin).Select
Selection.Delete Shift:=xlUp

ActiveSheet.Protect Password:="aba"
     
Application.ScreenUpdating = True
    
End Sub

 

Porém, eu trabalho com código 12 NC (ex.:420613671661), quando eu digito qualquer numero de forma incorreta, ou seja, se eu digito "1" e confirmo a exclusão, o código considera a primeira linha que contem o numero "1" de qualquer 12NC inputado, isso acabo gerando uma exclusção incorreta. 

 

Há alguma forma de considerar erro e cancelar a ação de excluir, se eu digitar incorretamente? Algo do tipo se não for um código 12 NC ele não exclui!!!!

 

Me ajudem!

 

 

Boa noite, pessoal!

 

Tenho estes dois códigos abaixo, porém não consigo colocar os dois de modo que funcionem juntos, ou sem dar erro:

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo z
    Application.EnableEvents = False

    If Not Intersect(Target, Range("c4")) Is Nothing Then
        [c6].Activate
    ElseIf Not Intersect(Target, Range("c6")) Is Nothing Then
       [c8].Activate
    ElseIf Not Intersect(Target, Range("c8")) Is Nothing Then
        [c10].Activate
    ElseIf Not Intersect(Target, Range("c10")) Is Nothing Then
        [e10].Activate
    ElseIf Not Intersect(Target, Range("e10")) Is Nothing Then
        [c12].Activate
    ElseIf Not Intersect(Target, Range("c12")) Is Nothing Then
        [c14].Activate
    ElseIf Not Intersect(Target, Range("c14")) Is Nothing Then
        [c4].Activate
        
    End If

Continue:
    Application.EnableEvents = True
    Exit Sub
z:
    MsgBox Err.Description
    Resume Continue
End Sub

 

Private Sub Worksheet_Change(ByVal Target As Range)

'Utilizar este recurso para gravar hora e data ao digitar na linha selecionada ou coluna selecionado

Dim i As Long

If Not Intersect(Target, Range("c10")) Is Nothing Then

i = Sheets("Plan3").Cells(Rows.Count, "d").End(xlUp).Row + 0

Sheets("Plan3").Range("d" & 4).Value = Date
Sheets("Plan3").Range("d" & 6).Value = Time

End If

End Sub

 

Não consegui utilizar os dois, não sei se é possível?

 

Coloquei a planilha em anexo, me ajudem!!!

 

 

 

 

 

 

 

Recebimento Entradas NF.zip

Pessoal,

 

Boa noite a todos, primeiro post meu aqui.

Tenho um pouco de conhecimento em Excel avançado e este ano comecei a enfrentar os desafios do vba.

Estou tentando fazer uma planilha, para substituir o apontamento manual de duas maquinas embaladoras de produto eletroeletrônico. A cada pallet processado é anotado num formulário manualmente, porém, temos 3 checagens de códigos que são realizados visualmente antes de  iniciar cada pallet. Estes checks eu estou tentando substituir pelo leitor de código de barras, pois o índice de erro humano hoje é alto.

Também neste processo não temos como acompanhar o tempo que os operadores levam para terminar cada pallet, muito menos checar cada parada programada ou não programada.

 

Enfim, é uma área com  oportunidades de melhorias e minha ideia seria substituir o apontamento manual pelo leitor, de forma que ao checar os 3 códigos de barras inicia-se a contagem do tempo do processo, se caso houver alguma parada programada ou não programada, isto tb seria contabilizado no tempo total do processo de cada pallet.

 

Estou deixando em anexo a planilha que eu havia começado a fazer e travei, por falta de conhecimento em vba no que se diz respeito a cronometrar o tempo.

 

Espero que alguém consiga me ajudar.

 

 

Controle de Produção Shrink - Leitor Código de Barras - Copia.xlsx