excel中的Visual Basic代码

Question

This is my table:

I want to search data from raw table and then feed the data according to date and brand in selected m1,m2,m3,issue,wastage,extra,repack fields. the problem here is that my table is not apdating as per my needs . here my code is not updating data for brand 'b' of selected date.

This is my code:

Sub FindMatches()
    Dim oldrow As Integer
    Dim newrow As Integer
     For oldrow = 4 To 14
        For newrow = 3 To 20
            If Cells(oldrow, 12) = Cells(1, newrow) And Cells(oldrow, 13) = Cells(newrow, 1) Then  'date and brand
                    If Cells(1, 14) = Cells(newrow, 2) Then
                          Cells(newrow, 3).Value = Cells(oldrow, 14).Value ' m1
                    End If
                    If Cells(1, 15) = Cells(newrow + 1, 2) Then
                          Cells(newrow + 1, 3).Value = Cells(oldrow, 15).Value ' m2
                    End If
                    If Cells(1, 16) = Cells(newrow + 2, 2) Then
                                    Cells(newrow + 2, 3).Value = Cells(oldrow, 16).Value ' m3
                    End If
                    If Cells(1, 17) = Cells(newrow + 3, 2) Then
                                        Cells(newrow + 3, 3).Value = Cells(oldrow, 17).Value ' issue
                    End If
                    If Cells(1, 18) = Cells(newrow + 4, 2) Then
                                            Cells(newrow + 4, 3).Value = Cells(oldrow, 18).Value ' repack
                    End If
                    If Cells(1, 19) = Cells(newrow + 5, 2) Then
                                                Cells(newrow + 5, 3).Value = Cells(oldrow, 19).Value ' extra
                    End If
                    If Cells(1, 20) = Cells(newrow + 6, 2) Then
                    Cells(newrow + 6, 3).Value = Cells(oldrow, 20).Value ' wastage
                    End If
         End If

        Next newrow
        Next oldrow
End Sub

Answer 1

I'd go with the following

Option Explicit
Sub FindMatches()

Dim rawRng As Range, newTableDateRng As Range, newTableBrandRng As Range, cell As Range, foundDate As Range, foundBrand As Range

Set rawRng = Worksheets("shet").Range("L3:T100")
Set newTableDateRng = Worksheets("shet").Range("C2:I2")
Set newTableBrandRng = Worksheets("shet").Range("A4:A100")

With rawRng    

    For Each cell In .Columns(1).SpecialCells(xlCellTypeConstants)
        Set foundDate = newTableDateRng.Find(What:=cell, LookIn:=xlValues, LookAt:=xlWhole)
        If Not foundDate Is Nothing Then
            Set foundBrand = FindValue(newTableBrandRng, cell.Offset(, 1))
            If Not foundBrand Is Nothing Then
                cell.Offset(, 2).Resize(, 7).Copy
                Intersect(foundDate.EntireColumn, foundBrand.EntireRow).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, , True
            End If
        End If
    Next cell

End With

End Sub


Function FindValue(rng As Range, value As String) As Range

On Error Resume Next
Set FindValue = rng.Cells(Application.WorksheetFunction.Match(value, rng, 0))
On Error GoTo 0

End Function

please note that all initial settings are specific to data "structure" as per your screenshot example. should you need to change it, you have to follow the same "pattern" (ie rawRng starts from the first "raw table" data row under the header, and so on). also note that the 7 number used in cell.Offset(, 2).Resize(, 7).Copy statement comes out from your posted data structure , where you need to copy values from "m1" to "wastage" fields included, and that you must then make sure that each "brand" rows group in "new table" must match this pattern (namely, have 7 rows)