show data ranges dynamically on the msgbox based on condition

[abdelfattah]

hello
i need the code it shows the data from a2:e of course dynamic on msgbox based on condition in column e is date if e=date+10 then show the data relating this date
i try with this code but not dynamic it's specific range and i stuck how i write the condition more over this code shows all of data

Sub mesage()

    Dim xRg As Range

    Dim xTxt As String

    Dim xCell As Range

    Dim xStr As String

    Dim xRow As Long

    Dim xCol As Long

    On Error Resume Next

    If ActiveWindow.RangeSelection.Count > 1 Then

      xTxt = ActiveWindow.RangeSelection.AddressLocal

    Else

      xTxt = ActiveSheet.UsedRange.AddressLocal

    End If

    Set xRg = Range("a2:e10")

    If xRg Is Nothing Then Exit Sub

    On Error Resume Next

    For xRow = 1 To xRg.Rows.Count

        For xCol = 1 To xRg.Columns.Count

            xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab

        Next

        xStr = xStr & vbCrLf
    Next

    MsgBox xStr, vbInformation, "xrg"

End Sub

 

[abdelfattah]

thanks GWTEB you're code works perfectly now it's useful two codes different to learn more i just would simple thing how can i show the header like dante's code

 

[DanteAmor]

Glad we could help & thanks for the feedback

 

[GWteB]

it's useful two codes different to learn more i just would simple thing how can i show the header like dante's code

Happy learning! As you see there are many ways to get what you're after. With the kind of approach I started with it could be like this.

Sub Message()

    Dim xRg     As Range
    Dim xCell   As Range
    Dim xStr    As String
    Dim i       As Long

    Set xRg = Range("A2:E10")

    For Each xCell In xRg.Offset(-1, 0).Resize(1, xRg.Columns.Count)
        xStr = xStr & xCell.Value & vbTab
    Next
    xStr = xStr & vbCr & vbCr

    For Each xCell In xRg.Offset(0, 4).Resize(xRg.Rows.Count, 1)
        If xCell.Value = Date + 10 Then   '<<< in this line the condition is set related to Column "E:E"
            For i = -4 To 0 Step 1
                xStr = xStr & xCell.Offset(0, i).Value & vbTab
            Next i
            xStr = xStr & vbCrLf
        End If
    Next
    MsgBox xStr, vbInformation, "xRg"
    Set xRg = Nothing
End Sub

 

[abdelfattah]

well done Gwteb it's great thanks for your time

 

[GWteB]

You're welcome!