EXCEL YARDIM

 
  Sub Dagitimiyap() 
  Dim x 
  Dim k 
  sayfaadi = ActiveSheet.Name 
  say = [a65536].End(3).Row 
  nearayalim = InputBox("", "Aranacak Kelimeyi Giriniz", "Aranacak İfadeyi Yaz") 
  Sheets.Add , After:=Sheets(Sheets.Count) 
  ActiveSheet.Name = nearayalim 
  Sheets(sayfaadi).Select 
  For k = say To 1 Step -1 
  Sheets(sayfaadi).Select 
  If Cells(k, 1).Text Like "*" & nearayalim & "*" Then 
  Rows(k & ":" & k).Select 
  Selection.Copy 
  Sheets(nearayalim).Select 
  sayisay = [a65536].End(3).Row + 1 
  Cells(sayisay, 1).PasteSpecial 
  End If 
  Next 
  End Sub