Need to Concatenate two columns by a macro

[rsami]

Hi all,
I'm new to here,
my question should be explain with a excel sheet.but i can't find any option to attach a page.
so i upload the page to file shearing site and here is the link for below described problem
beni help.xlsx

I need to concatenate B and C columns in beni help.xls using a VB Macro.concatenated result should be in W column.
from the sheet 1 i filter a column(Y2:AZ2) according to a date and remove the blanks from that column.
then i need to concatenate B and C columns according to the filtered column.that means i don't need to concatenate all the rows in B and C columns .i just only need to concatenate rows according to the filtered column.

as an example consider sheet 2 and 3
in sheet 2 i have filtered AG column and removed blanks.then i need to concatenate column B and C in to the column W,and other valued should not be concatenate
in sheet 3 i have filtered AL column and removed blanks.then i need to concatenate column B and C in to the column W,and other valued should not be concatenate

in this manner B and C should be concatenate in to W depending on the filtered Column

i tried it with recording a macro,but it didn't work and i don't know the reason for it.
could you please help me to find a macro which satisfy my requirement

thanks

 

[rsami]

i found this macro

Sub Concat()

Dim lRow As Long

lRow = Range("B" & Rows.Count).End(xlUp).Row

For i = 3 To lRow
Cells(i, 23) = Cells(i, 2) & "_" & Cells(i, 3)
Next i

End Sub

but it concatenate all the rows in column B and C.
i just need to concatenate only the rows which have values in filtered rows
any comment is highly appreciate

 

[CodeNinja]

Test to see if the row is hidden... if it is not then concatenate.... Be sure to change the sheet# to suit your needs...

Sub Concat()

Dim lRow As Long

lRow = Range("B" & Rows.Count).End(xlUp).Row

For i = 3 To lRow
    If Sheet1.Rows(i).Hidden = False Then
        Cells(i, 23) = Cells(i, 2) & "_" & Cells(i, 3)
    End If
Next i

End Sub

 

[par60056]

You don't need to specify the sheet if nothing else is specifying the sheet. Just test "Rows(i).Hidden"

 

[rsami]

Test to see if the row is hidden... if it is not then concatenate.... Be sure to change the sheet# to suit your needs...

thanks very much CodeNinja!
it works perfectly

 

[rsami]

You don't need to specify the sheet if nothing else is specifying the sheet. Just test "Rows(i).Hidden"

yes i tried your suggestion and it works with CodeNinja's code.
thanks very much for both of you