Thực hiện lệnh cho tất cả các Sheet

[lhthai]

Em học hỏi từ Code anh Quanghai1969 để áp dụng
Không biết code sai chỗ nào sao kết quả vẫn trả về sheet KH
nên nhờ các anh chỉ giúp

[COLOR=#0000cd]Private Sub CommandButton1_Click()[/COLOR]
[COLOR=#0000cd]Dim Arr(), i As Long, Rng As Range, Sh As Worksheet[/COLOR]
[COLOR=#0000cd]For Each Sh In Worksheets[/COLOR]
[COLOR=#0000cd]If Sh.Name <> "KH" Then[/COLOR]
[COLOR=#0000cd]      Arr = Sh.Range("F4", Sh.[F65536].End(3)).Resize(, 5).Value[/COLOR]
[COLOR=#0000cd]   For i = 1 To UBound(Arr)[/COLOR]
[COLOR=#0000cd]      Set Rng = Sheet1.[A:A].Find(Arr(i, 1), , , xlWhole)[/COLOR]
[COLOR=#0000cd]      If Not Rng Is Nothing Then[/COLOR]
[COLOR=#0000cd]         If Arr(i, 5) = Empty Then[/COLOR]
[COLOR=#0000cd]            Arr(i, 5) = Rng.Offset(, 3)[/COLOR]
[COLOR=#0000cd]         End If[/COLOR]
[COLOR=#0000cd]      End If[/COLOR]
[COLOR=#0000cd]   Next i[/COLOR]
[COLOR=#0000cd]    End If[/COLOR]
[COLOR=#0000cd]    Sh.[F4].Resize(i - 1, 5) = Arr[/COLOR]
[COLOR=#0000cd]    Next[/COLOR]
[COLOR=#0000cd]End Sub[/COLOR]

 

[Quang_Hải]

Em học hỏi từ Code anh Quanghai1969 để áp dụng
Không biết code sai chỗ nào sao kết quả vẫn trả về sheet KH
nên nhờ các anh chỉ giúp

[COLOR=#0000cd]Private Sub CommandButton1_Click()[/COLOR]
[COLOR=#0000cd]Dim Arr(), i As Long, Rng As Range, Sh As Worksheet[/COLOR]
[COLOR=#0000cd]For Each Sh In Worksheets[/COLOR]
[COLOR=#0000cd]If Sh.Name <> "KH" Then[/COLOR]
[COLOR=#0000cd]      Arr = Sh.Range("F4", Sh.[F65536].End(3)).Resize(, 5).Value[/COLOR]
[COLOR=#0000cd]   For i = 1 To UBound(Arr)[/COLOR]
[COLOR=#0000cd]      Set Rng = Sheet1.[A:A].Find(Arr(i, 1), , , xlWhole)[/COLOR]
[COLOR=#0000cd]      If Not Rng Is Nothing Then[/COLOR]
[COLOR=#0000cd]         If Arr(i, 5) = Empty Then[/COLOR]
[COLOR=#0000cd]            Arr(i, 5) = Rng.Offset(, 3)[/COLOR]
[COLOR=#0000cd]         End If[/COLOR]
[COLOR=#0000cd]      End If[/COLOR]
[COLOR=#0000cd]   Next i[/COLOR]
[COLOR=#0000cd]    End If[/COLOR]
[COLOR=#0000cd]    Sh.[F4].Resize(i - 1, 5) = Arr[/COLOR]
[COLOR=#0000cd]    Next[/COLOR]
[COLOR=#0000cd]End Sub[/COLOR]

      Next i
      Sh.[F4].Resize(i - 1, 5) = Arr
   End If
Next