Home / user-9449

Priscila Estala's questions

Martin Hope
Priscila Estala
Asked: 2020-06-24 08:35:42 +0800 CST
  • 3

I have the error 91 in VBAwith the following code:

Dim i, c, b, a, 

With wsMissingSCM2.ListObjects("tblReportData2")
    .TableStyle = "TableStyleLight6"
    '
    ' LocationColumn
    '
    i = 1
    .ListColumns(i).DataBodyRange.HorizontalAlignment = xlCenter 'ERROR HERE
    .HeaderRowRange.Columns(i).Value = "Missing Item"
    .ListColumns(i).DataBodyRange.ColumnWidth = 14

Any suggestion?

vba
Martin Hope
Priscila Estala
Asked: 2020-06-21 13:17:35 +0800 CST
  • 3

I'm working with a macro and what I want to do is compare the values ​​of a column against the values ​​in an array and if it finds it delete the entire row, what I don't know is the instruction to find the value, my code:

Dim i, c, last_row As Integer
Dim myarray As Variant
Dim Product As String

myarray = Array("J8031A#ACC", "J8031A#ACQ", "A2W80A")
last_row = wsMissingSCM2.Range("A22").End(xlDown).Row

For c = 22 To last_row

 Product = wsMissingSCM2.Cells(c, 4).Value

 **If IsArray(Product) Then** 'Tengo este codigo pero no me funciona

    Rows(c).EntireRow.Delete

 End If
Next c
array