Existe uma maneira de obter / programar o Excel para alternar entre as folhas quando você digitaliza um código de barras espacial?

0

Trabalho para uma pequena empresa e preciso de ajuda para configurar nosso novo sistema de gerenciamento de inventário. Eu tenho o documento excel pronto eo scanner de código de barras insere os códigos de barras diretamente para as células, mas estou tendo um problema. Temos mais de 100 partes e cada parte tem uma guia de planilha específica, cada uma rotulada com um número de peça específico. Existe alguma maneira que eu possa codificar uma planilha que, quando um número de código de barras for digitalizado, digamos 1234LOCK que o Excel irá automaticamente para a folha rotulada 1234LOCK?

    
por William Aaron Winfrey 31.07.2017 / 23:37

1 resposta

0

Coloque isso no módulo de planilha da planilha em que seu 1234LOCK é colocado ao digitalizar um código de barras.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim lastRow As Long

If Range("C" & Rows.Count).End(xlUp).Row = Range("D" & Rows.Count).End(xlUp).Row Then
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
ElseIf Range("C" & Rows.Count).End(xlUp).Row < Range("D" & Rows.Count).End(xlUp).Row Then
    lastRow = Range("D" & Rows.Count).End(xlUp).Row + 1
End If

If Target.Address = "$C$" & lastRow Then
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = Range("C" & lastRow).Value Then
            ws.Activate
        End If
    Next ws
End If
End Sub

Estou assumindo que sua varredura irá acionar uma mudança na planilha, e o nome entra em A1 .

    
por 01.08.2017 / 17:51