Copy chuyển cột thành hàng theo điều kiện qua các sheet (1 người xem)

[lhthai]

Em có file dữ liệu muốn chuyển từ cột thành hàng qua các sheet theo điều kiện
Tại sheet(NVY) 'copy từ dòng F4:F8 dán thành hàng ngang qua 5 sheet linh kiện cột B
Nếu cột E bằng 1 copy dán hàng ngang qua sheet linh kien 1 cột I
Nếu cột E bằng 2 copy dán hàng ngang qua sheet linh kien 2 cột I
Tiếp tục 3 , 4 ,5

 

[lhthai]

Học hỏi từ code anh Quanghai
Em điều chỉnh được điều kiện copy từ dòng F4:F8 sang cột B
Còn điều kiện còn lại nhờ các anh giúp.

[COLOR=#0000cd]Private Sub CommandButton21_Click()[/COLOR]
[COLOR=#0000cd]Dim data(), i, j, kq()[/COLOR]
[COLOR=#0000cd]data = Sheet8.Range("F4", Sheet8.[F8].End(xlToRight)).Value[/COLOR]
[COLOR=#0000cd]ReDim kq(1 To UBound(data, 2), 1 To UBound(data))[/COLOR]
[COLOR=#0000cd]For i = 1 To UBound(data)[/COLOR]
[COLOR=#0000cd]   For j = 1 To UBound(data, 2)[/COLOR]
[COLOR=#0000cd]      kq(j, i) = data(i, j)[/COLOR]
[COLOR=#0000cd]   Next[/COLOR]
[COLOR=#0000cd]Next[/COLOR]
[COLOR=#0000cd]Sheet3.Range("B60000").End(xlUp)(2).Resize(UBound(kq), UBound(kq, 2)) = kq[/COLOR]
[COLOR=#0000cd]Sheet4.Range("B60000").End(xlUp)(2).Resize(UBound(kq), UBound(kq, 2)) = kq[/COLOR]
[COLOR=#0000cd]Sheet5.Range("B60000").End(xlUp)(2).Resize(UBound(kq), UBound(kq, 2)) = kq[/COLOR]
[COLOR=#0000cd]Sheet6.Range("B60000").End(xlUp)(2).Resize(UBound(kq), UBound(kq, 2)) = kq[/COLOR]
[COLOR=#0000cd]Sheet7.Range("B60000").End(xlUp)(2).Resize(UBound(kq), UBound(kq, 2)) = kq[/COLOR]
[COLOR=#0000cd]End Sub[/COLOR]