SamB's questions

Tenho uma tabela do Excel (Tabela de Vendas) que usa uma função INDEX MATCH em algumas colunas. Há 2 colunas específicas (Produto e Número da Peça) que estão usando uma coluna de número de material para extrair outros valores de outras tabelas. A coluna de número de material é preenchida com números que são armazenados como "Geral" e cada célula tem um erro que diz "Número Armazenado como Texto". O "Número armazenado como texto" não é um problema para a coluna do produto, mas É um problema para a coluna do número da peça. Quando altero a coluna para "Número", a coluna do número da peça se corrige (então sei que não é um problema com a função).

Além disso, a tabela de referência de número de peça tem os números de material e NÃO mostra um erro nos valores de número de material. No entanto, na tabela de produtos, o número de material MOSTRA um erro.

Alguém pode explicar por que os números armazenados como texto afetariam uma coluna e não a outra? Para sua informação: a fonte de dados é importada para a tabela principal por meio do VBA e não consigo alterar o conteúdo do arquivo de entrada. Talvez eu precise alterar o texto da coluna por meio do VBA na importação, mas realmente quero entender por que é um problema em um ponto, mas não no outro.

Fórmula para o produto:

=IF([@Location]="Non-AT","Non AT",INDEX(Table_Material,MATCH([@[Material Number]],Table_Material[Material Number],0),MATCH($T$2,'Material No. to Product'!Print_Titles,0)))

Fórmula para número de peça:

=INDEX(Table_ATNo,MATCH([@[Material Number]],Table_ATNo[SAP Material Number],0),2)

Mesa principal

No meu código, tenho uma combobox em um userform. O usuário seleciona uma opção do menu suspenso e o userform define o valor selecionado para uma variável global "monthYearEntered".

Então eu tenho uma sub-rotina que usa a variável global. No entanto, o valor da variável global não está sendo transferido para a sub-rotina. Eu sei porque eu fiz uma MsgBox da variável de dentro do userform e depois novamente na sub-rotina. Eu obtenho o valor certo no formulário, mas não na rotina.

Pesquisei um pouco e vi algumas soluções potenciais, mas nenhuma delas funcionou para mim. Em alguns códigos anteriores, fiz uma solução alternativa definindo cell para o valor e, em seguida, referenciando a cell para definir a variável na subrotina. Gostaria de evitar isso, pois é apenas um Band-Aid.

CÓDIGO DO FORMULÁRIO DE USUÁRIO

Private Sub CBN_OK_Click()

If YearMonthField = "" Then
    MsgBox "Value cannot be blank. Please enter correct value."
    Exit Sub
Else
    monthYearEntered = YearMonthField.Value
    MsgBox monthYearEntered
    Me.Hide
    Application.Run "DeleteMonth"
End If

End Sub

MÓDULO

Option Explicit
Dim monthYearEntered As String

Private Sub RangetoDelete()

    Application.DisplayAlerts = False
    
    Dim ws As Worksheet
    Dim tableSalesCombined As ListObject
    Dim cell, rng As Range

    Set ws = ThisWorkbook.Worksheets("Sales Data Combined")
    Set tableSalesCombined = ws.ListObjects("Table_SalesCombined")
    Set rng = ws.Columns("I:I")
    
    DeleteMonthForm.Show 'show user form
    
    'monthYearEntered.ClearContents
    Application.Run "Protect"
    Application.DisplayAlerts = True
    
End Sub

Private Sub DeleteMonth()

    Application.DisplayAlerts = False
    
    Dim ws As Worksheet
    Dim tableSalesCombined As ListObject
    'Dim monthYearValue
    Dim cell, rng As Range

    Set ws = ThisWorkbook.Worksheets("Sales Data Combined")
    Set tableSalesCombined = ws.ListObjects("Table_SalesCombined")
    Set rng = ws.Columns("I:I")
    
    ws.Unprotect Password:=PassW

    'look for value entered by user (monthYearValue)
    Set cell = rng.Find(What:=monthYearEntered, LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)
    
    MsgBox monthYearEntered
    
    If cell Is Nothing Then
        MsgBox monthYearEntered & "not found in Combined Sales Data.  Please confirm value and try again."
        Exit Sub
    End If
    
    With tableSalesCombined
         .Range.AutoFilter Field:=9, Criteria1:=monthYearEntered
         If Not .DataBodyRange Is Nothing Then
            '.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
         End If
         '.Range.AutoFilter
    End With

    tableSalesCombined.AutoFilter.ShowAllData
    
    'monthYearEntered.ClearContents
    Application.Run "Protect"
    Application.DisplayAlerts = True
    
End Sub
  

Tenho uma tabela do Excel dentro de uma planilha protegida. Estou tentando fazer os seguintes passos:

1. Adicione uma nova coluna chamada "decisão"
2. desbloquear as células dentro da coluna "decisão"
3. Filtrar a tabela com base nos valores de outra coluna "vendido" (se uma linha apresentar erro, mantenha-a visível e oculte todas as outras)
4. Aplique a validação de dados a todas as células visíveis para permitir apenas 2 valores "excluir" ou "classificar"

Tenho o seguinte código abaixo. Quando o executo, não recebo nenhum erro, mas não há validação nas células esperadas e as células não são desbloqueadas. Além disso, estou pensando que o desbloqueio provavelmente deve vir depois da filtragem, mas estou aberto a ideias.

    Private Sub HandleErrors()

    Dim ws, wsList As Worksheet
    Dim importTable As ListObject
    Dim DecisionColumn As ListColumn
    Dim listRange, valRange, cell As Range
    Dim listOptions As String

    Set ws = Worksheets("Sales Import")
    Set importTable = ws.ListObjects("Table_SalesImport")
    Set wsList = ThisWorkbook.Worksheets("Lists")
    Set listRange = wsList.Range("A1:A2")
    Set cell = ws.Range("W2")
    listOptions = "Delete, Classify"

    ws.Unprotect Password:=PassW

    With importTable

        ws.Unprotect Password:=PassW

        Set DecisionColumn = importTable.ListColumns.Add
        DecisionColumn.Name = "Select Decision"

        Range("W2").Select
        Set valRange = Range(cell, cell.End(xlDown))
        valRange.Locked = False
        valRange.Locked = False

        If .Parent.FilterMode Then .Range.AutoFilter
 
        .Range.AutoFilter Field:=22, Criteria1:="Error"

        With valRange.Validation
            .Delete 'delete previous validation
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                Formula1:=listOptions
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = False

        End With

        Application.Run "Protect"

    End With

    End Sub