Useful Macros -10
Copying The Values In The Column That Match The Criteria To The Other Page
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
in the code is "Column C".
The number of cutted and transferred rows are shown on MsgBox.