VBA Code require

[Vrushal]

Dear All,

I am Trying to build VBA code but not able to solve the problem and end-up with error. Any help in the code is Appreciated and Thank you for Help.

Set up is ---
there are number of worksheet in workbook and i need to run code in each worksheet.
Each Worksheet have three two Range Area ("A:I") & ("W:AF")

I want to Search for each raw value of Column "Y" in Column "C" of Range ("A:I") , if Value found Cut Row of range ("W:AF") of which value search and paste from Column "J" corresponding to Value found in column "C".

 

[DanteAmor]

Hi and welcome to MrExcel

In a copy of your book try the following macro:

Sub CopyValues()
  Dim sh As Worksheet, f As Range, c As Range
  Application.ScreenUpdating = False
  For Each sh In Sheets
    For Each c In sh.Range("Y1", sh.Range("Y" & Rows.Count).End(xlUp))
      If c.Value <> "" Then
        Set f = sh.Range("C:C").Find(c.Value, , xlValues, xlWhole)
        If Not f Is Nothing Then
          f.Offset(0, 7).Resize(1, 10).Value = c.Offset(0, -2).Resize(1, 10).Value
          c.Offset(0, -2).Resize(1, 10).Value = ""
        End If
      End If
    Next
  Next
End Sub

 

[Vrushal]

Thank you Sir,

Code is perfectly working. Code is part of Excel Utility but it is very important and where i was stucked. Thank you once again as this code complete my Excel utility.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.