vba code to return range values (text) to message box after autofilter

[Nurzhan]

Hallo. After using the autofilter, the visible cells text values should be returned on message box. My initial code is below. The problem is that it returns only 1st visible cell's value.

Sub Wood()Dim rngVisible As Range
Dim xStr As String


Set rngVisible = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
xStr = xStr & rngVisible.Value & vbTab


     Range("A1").AutoFilter field:=3, Criteria1:="Wood"
     MsgBox xStr, vbOKOnly, "Wooden Coasters"


End Sub

 

[Fluff]

You need to loop through rngVisible, updating xStr each time

 

[Nurzhan]

it's a shame but i got stuck. Pls help me.

 

[Fluff]

Like

Sub Wood()
Dim rngVisible As Range
Dim xStr As String


For Each rngVisible In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).row).SpecialCells(xlCellTypeVisible)
   xStr = xStr & rngVisible.Value & vbTab
Next rngVisible

     Range("A1").AutoFilter field:=3, Criteria1:="Wood"
     MsgBox xStr, vbOKOnly, "Wooden Coasters"


End Sub

 

[Nurzhan]

Thank you so much Fluff!

 

[Fluff]

You're welcome