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