wyatt7613's questions

Estou tentando fazer uma matriz que armazena todos os valores na coluna A da "Pasta de trabalho B" para que eu possa fazer referência e ver se o valor de uma célula está nessa matriz na coluna A da "Pasta de trabalho A".

Isto é o que eu tenho até agora para essa matriz:

Dim StrArray() As String
Dim TotalRows As Long
Dim X As Long

Workbooks.Open Filename:="filepath", ReadOnly:=True

With Workbooks("file").Worksheets("sheet")
    TotalRows = Rows(Rows.Count).End(xlUp).Row
    ReDim StrArray(1 To TotalRows)
    For X = 2 To TotalRows
        StrArray(X) = Cells(X, 1).Value
    Next X
End With

Esta parte da matriz funciona bem, confirmei que está funcionando corretamente exibindo todos os valores da matriz em um MsgBox. O problema surge quando tento referenciar essa matriz na "Pasta de trabalho A" para verificar se o valor de uma célula está nessa matriz.

Isto é o que eu tenho para esse código:

For RowCounter = LastRow To 1 Step -1
    If IsInArray(Range("B" & RowCounter).Value, StrArray) Then
        Range("K" & RowCounter).Value = "MATCH"
    End If
Next RowCounter

Workbooks("file").Close SaveChanges:=False

Aqui está a função que estou usando:

Public Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
    Dim i
    For i = LBound(arr) To UBound(arr)
        If arr(i) = stringToBeFound Then
            IsInArray = True
            Exit Function
        End If
    Next i
    IsInArray = False

End Function

Ele não coloca o valor "MATCH" na coluna K. Eu tentei solucionar problemas colocando um MsgBox na instrução If para ver se ele está correspondendo ao valor da matriz, e isso me deu um loop sem fim do MsgBox. Se for importante, atualmente existe texto na coluna K sobre o qual este código está escrevendo.

Eu tenho um monte de variáveis ​​que armazenei em uma matriz. Estou tentando usar uma instrução If Then para ver se o valor de uma célula específica está nessa matriz. Aqui está o meu código:

Dim Vars1 As Variant
Vars1 = Array("Stage 2", "Stage 3", "Stage 4", "Stage 5", "Stage 6", "Stage 7", "WIP Cleanup", 
"Road Test", "Test", "Test Cleanup", "In Bay Inspection", "In Bay Clean Up", "PDI", "PDI 
Cleanup", "Verify", "Complete", "Pictures", "Remove", "ECD", "Platform Install", "#N/A")
'Cuts special delivery parts for Line 3
For RowCounter = LastRow To 1 Step -1
    If InStr(1, Range("F" & RowCounter), "underslung", vbTextCompare) Then 'Underslung
        If Range("B" & RowCounter).Value = "FA Line 3" And Range("N" & RowCounter).Value = Vars1 Then
            Rows(RowCounter).EntireRow.Cut _
                Destination:=Sheets("FA3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    End If
Next RowCounter

Eu não acho que o código está funcionando porque não está cortando e colando a linha. Como faço para obter a instrução if then para verificar e ver se o valor em "Range("N" & RowCounter)" está na matriz?

Tenho um loop for que passa pela Coluna I e procura quando o valor ultrapassa um determinado ponto. Em seguida, insere uma linha. Eu preciso editar esta linha. Eu preciso mesclar uma parte dele e inserir texto e quais não. No momento, meu código apenas mescla as colunas inteiras de E - I. Como faço para mesclar essa linha?

Isto é o que eu tenho agora:

For Each cel In Range("I:I")
    If cel.Value >= "15AQ08" And Pick = "Truck" And cel.Row <> 1 Then
        cel.EntireRow.Insert
        Range("E:I").Merge
        Exit For
    End If
Next

Estou tentando usar uma variável definida no Excel no Word. Estou usando duas macros separadas, mas todo o código está escrito no Excel. Estou tentando controlar o Word do Excel.

Aqui está o código que tenho na minha macro do Excel:

Public DJ, Pick, Customer, Line, Model As Variant
Public LineOne, LineThr As Integer
Dim OP As String
Dim LastRow As Long

'Dims variables for pick stickers
Public Subinv, Loc, PN, Req, Desc As String

Public Sub Picklist()

Neste Sub, ele passa a definir a variável DJ como um conjunto aleatório de 8 números (ou seja, 94673920), ela muda a cada vez. Então estou tentando passar essa variável no Word em um sub diferente. Aqui está o código para isso:

Public Sub PickLabel()

Dim WordApp, WordDoc As Object
    Set WordApp = CreateObject("Word.Application") 'Opens up the Pick Stickers Generator in Word
    Set WordDoc = WordApp.Documents.Add
        WordApp.Visible = True
Dim WordSel
    Set WordSel = WordApp.Selection
    
With WordSel
    .Font.Size = 60
    .Font.Name = "Arial"
    .TypeText ("DJ: " & DJ)
    .ParagraphFormat.Alignment = wdAlignCenter
End With

Finalizar Sub

Não está inserindo a variável DJ como eu quero. O que estou fazendo errado?

Quero destacar uma linha de células nas colunas BK se essa parte tiver menos de 5 QOH (Coluna J). Também quero que ele destaque apenas a linha se a peça estiver no subinventário "W1" ou "OUTSIDE" (Coluna H).

Este é o código que tenho até agora:

'Highlights row if quantity on hand is 5 or less
Dim LastRow As Long, c As Range
Dim MyRange As Range
    LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row
    Set MyRange = Range("J1:J" & LastRow)
With ActiveWorkbook.Worksheets("Sheet1")
    For Each c In MyRange
        If c <= 5 Then
            c.Select
            If ActiveCell.Offset(0, -2).Value = "W1" Or "OUTSIDE" Then 'Checks if part is in a specified subinventory
                Range("B" & ActiveCell.Row & ":K" & ActiveCell.Row).Interior.Color = vbYellow 'Highlists the row from columns B-K if QOH is less than 5
            End If
        End If
    Next
End With

Consegui destacar as linhas BK se o QOH for menor que 5. No entanto, o problema surge quando tento destacar apenas a linha se o subinventário for "W1" ou "OUTSIDE". Quando executo a macro, acabo recebendo o código de erro "Erro em tempo de execução '1004': Erro definido pelo aplicativo ou definido pelo objeto".

Todos os dias eu corro uma lista, é sempre diferente. Ele terá diferentes quantidades de linhas com valores diferentes todos os dias.

Eu codifiquei para que eu tenha bordas horizontais exatamente como eu quero, mas agora eu preciso das bordas verticais (laterais - esquerda e direita). Eu gostaria de bordas finas em todas as células que contenham texto ou um valor de algum tipo, em todas as colunas e todas as linhas após incluir a linha 1. Novamente, a quantidade de linhas e colunas variará todos os dias, por isso é importante que o código possa contabilizar por isso.

Option Explicit
Sub Borders()
    Dim WS As Worksheet
    Dim dataRange As Range
    Dim v As Variant, I As Long

Set WS = ActiveWorkbook.Worksheets("Sheet1")

With WS
    Set dataRange = Range(.Cells(2, 1), Cells(.Rows.Count, 10).End(xlUp))
    Set dataRange = dataRange.Resize(rowsize:=dataRange.Rows.Count + 1)
    With dataRange
        v = .Columns(10)
        For I = 1 To UBound(v) - 1
            If v(I, 1) <> v(I + 1, 1) Then
                With .Rows(I).Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .Color = vbBlack
                    .Weight = xlMedium
                 End With
            Else
                .Rows(I).Borders(xlEdgeBottom).LineStyle = 1 'Default Border
            End If
        Next I
    End With
End With

'This is where I'd like the code for the vertical borders to go

End Sub

Gostaria que o produto final ficasse assim.

Imagem 1

Imagem 2

Estou tentando verificar a semelhança de texto para o texto no "Line-Side Loc" na coluna J. Se o texto na coluna J não for o mesmo, gostaria de aplicar uma borda inferior grossa nas colunas AJ para anunciar a diferença . Se o texto for o mesmo, gostaria que fosse uma linha fina. A imagem 1 é a aparência atual quando a macro termina. Idealmente, seria parecido com a Imagem 2.

Este é o meu código e onde gostaria de inserir o novo código para adicionar as linhas grossas

Não sei escrever este código. Qualquer ajuda seria apreciada.

Obrigado!

Atualmente, é isso que está acontecendo. Com o código que tenho abaixo.