The Chosen Values Cutting And Pasting To Other Sheet

Useful Macros -10

Copying The Values In The Column That Match The Criteria To The Other Sheet

           The chosen value or values in any column are cut and transferred to other pages. While transfer  ,complete row are transmitted. Blank rows in the transfer page are deleted by the macro :

"Sheets("Data").Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).EntireRow.Delete”

In this example,data were searched in the "Column C" .For this reason the loop is used as follows :

“For i = 1 To a

If Cells(i, 3) = "Gardena" Or Cells(i, 3) = "Malibu" Then

…

“

Number 3 in the code is "Column C". The number of cutted and transferred rows are shown on MsgBox.