AndreasLim92
New Member
- Joined
- Nov 24, 2019
- Messages
- 2
- Office Version
- 365
- Platform
- Windows
I am trying to loop from rows to columns with a different worksheet. From the [DATA] sheet check for two statements, First, I check the [Type] and then check the [Series]. After getting the value from [Type] range and [Series] range, copy [Result] range value to [RESULT] with according to the [DATA] sheet of [Part] range value. And the result I want is like this [RESULT].
I am trying with some code, but it doesn't work properly. Please help me how to fix my code. And I am very sorry for my poor English.
DATA Sheet DATA
RESULT sheet RESULT
I am trying with some code, but it doesn't work properly. Please help me how to fix my code. And I am very sorry for my poor English.
DATA Sheet DATA
RESULT sheet RESULT
VBA Code:
Option Explicit
Private Sub Result_Click()
Dim DATA As Worksheet: Set DATA = Worksheets("DATA")
Dim Result As Worksheet: Set Result = Worksheets("Result")
Dim i As Long
Dim j As Long: j = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row
Dim k As Long
For i = 3 To j
With DATA
If .Cells(i, 2).Value = Worksheets("Result").Range("B4").Value Then
If .Cells(i, 3).Value = Worksheets("Result").Range("C2").Value Then
For k = 4 To 32
Worksheets("Result").Cells(k, 3).Resize(, 4).Value = .Cells(i, 5).Value
i = i + 4
Next k
End If
End If
End With
Next i
End Sub