Hi all,
i am using this code but want to few changes, please help
Private Sub CommandButton1_Click()
a = Worksheets(“Sheet1”) .Cells(Rows.Count, 1) .End(x1Up) .Row
For I = 2 To a
If Worksheets (“Sheet1”) .Cells(I, 3) .Value = “North” Then
Worksheets (“Sheet1”) .Rows(i) .Copy...