Automate copying data

Asked Aug 24 '22 at 07:41

Active Aug 25 '22 at 09:31

Viewed 34 times

I have some data in one sheet of excel. From that I want to find certain particular value from a column and then copy that row of value in new sheet.I there are multiple values in a column,then it will copy all those value. For Example in the image below. I want to find 409539 and all the rows corresponding to these values will be pasted in next sheet. I am using Excel Vba and used below code for reference but i am getting some error

For Each c In rngSearch
    If c.Value = SearchRange Then
        For Each K In ActiveWorkbook.Sheets("Search").Range("1:10")
            If K.Value = "" Then
                ActiveWorkbook.Sheets("Search").K.Value = c.Value
            End If
        Next K
        Replace = c.Offset(0, 5).Value
        ActiveWorkbook.Sheets("Search").Range("B2").Value = Replace
    End If
Next c

enter image description here

edited Aug 25 '22 at 09:31

Thomas C.

asked Aug 24 '22 at 07:41

Serious_programmer

There are many answered questions about copying data from worksheet to worksheet, here's one https://stackoverflow.com/a/48560444/19179399, next time it will be wise to research a little more – Thomas C. Aug 24 '22 at 08:11
What is the error that you get? – Walter Kloosterboer Aug 26 '22 at 12:27

Automate copying data

0 Answers0