Vba to search and copy cells in row [Closed]

Question

Vba to search and copy cells in row [Closed]

Report

PM - Apr 27, 2010 at 03:45 AM
venkat1926

Posts: 1862
Registration date: Sunday June 14, 2009
Status: Contributor
Last seen: July 30, 2015

- Apr 27, 2010 at 06:21 AM

Hi,

i need to know how to copy certain cells in a row. I have the vba to search for a value in column A, but i need to know how to do the following....

e.g
Cell A24 contains the value im looking for, now i need to copy cells in that row (B24, D24, F24, G24).

I need this to happen for any value i search for in column A.

Hope this makes sense.

Thanks in advance for your help.

PM

Excel 2003

Vba to search and copy cells in row
Excel vba find first empty cell in row - How-To - Excel
Vba excel search - How-To - Excel
Excel vba paste data below the last used row - How-To - Excel
Excel vba find last non empty cell in column - How-To - Excel
Excel vba open file path in cell - How-To - Excel

1 reply

Ask a question

venkat1926 · Answer 1 · 2010-04-27T06:21:27-0400

try this macro
all columns must have headings in row no. 1

Sub test()
Dim x As Double, r As Range, y(1 To 4) As Double, cfind As Range
Dim j As Integer
x = InputBox("type the number you want to find e;g. 21")
Set r = Range(Range("A2"), Range("A2").End(xlDown))
Set cfind = r.Cells.Find(what:=x, lookat:=xlWhole, LookIn:=xlValues)

y(1) = Cells(cfind.Row, "B")
y(2) = Cells(cfind.Row, "d")
y(3) = Cells(cfind.Row, "f")
y(4) = Cells(cfind.Row, "g")

For j = 1 To 4
Worksheets("sheet2").Range("A1").Offset(0, j - 1) = y(j)
Next j

End Sub

Vba to search and copy cells in row [Closed]

1 reply

Your reply

Subscribe To Our Newsletter!