Hỏi về Msg Box (1 người xem)

[humucxt]

Em đang làm Msg box để thông báo như sau:
i=10
For k = 2 To i
If Sheet1.Range("C"&k)<>"" Then
MsgBox "Cac san pham moi" & vbCrLf & vbCrLf & _
vbTab & Sheet1.Range("B" & k), vbInformation
End if
Next k

Nếu theo dòng lệnh này thì với mỗi giá trị k theo và theo điều kiện if sẽ hiển thị 1 box thông báo.
Em muốn hiển thị box thông báo 1 lần cho toàn bộ giá trị từ B2:B10 đáp ứng yêu cầu giá trị tương ứng ở cột C<>"".
Nhờ các bác chỉ giáo giúp ah?
Em cảm ơn!

 

[befaint]

Sub vidu()
    Dim sText As String
    sText = "Cac san pham moi:"
    Dim k As Long
    For k = 2 To 5
        sText = sText & vbNewLine & vbTab & k
    Next k
    MsgBox sText, vbInformation
End Sub

 

[humucxt]

Sub vidu()
    Dim sText As String
    sText = "Cac san pham moi:"
    Dim k As Long
    For k = 2 To 5
        sText = sText & vbNewLine & vbTab & k
    Next k
    MsgBox sText, vbInformation
End Sub

Cảm ơn bác.
Bác thêm giúp số thứ tự (1,2, 3....) hoặc dấu "-" trước mỗi sản phẩm được không ah?

 

[befaint]

Cảm ơn bác.
Bác thêm giúp số thứ tự (1,2, 3....) hoặc dấu "-" trước mỗi sản phẩm được không ah?

Sub vidu()
    Dim sText As String, i As Long
    sText = "Cac san pham moi:"
    Dim k As Long
    For k = 2 To 10
        If k Mod 2 = 0 Then
            i = i + 1
            sText = sText & vbNewLine & vbTab & i & " - " & k
        End If
    Next k
    MsgBox sText, vbInformation
End Sub