'copy C value from match row + 2 next rows for C If wsCopy.Cells(i, intACol).Value = wsCopy.Cells(i, intBCol).Value Then WsCopy.Cells(i, intBCol).Value = "" And _ Private Sub CopyMatch()ĭo Until wsCopy.Cells(i, intACol).Value = "" And _ When A matches B in the same row, copy C from that row and C from the next 2 rows to another worksheet. You will have to modify the constants and worksheets to fit your application.įrom your description and example you want VBA for:
#Relative cell reference excel definition quizlet code#
I could not follow your code so I threw something together based on your example and description. Worksheets("Sheet4").Range("F" & x).PasteSpecial Paste:=xlPasteValues Range(Cells(Selection.Row, 1), Cells(Selection.Row, 3)).Copy Set rngprice2 = Sheets("Sheet2").Range("X" & j) Set rngprice = Sheets("Sheet3").Range("X" & i) Set rngmake2 = Sheets("Sheet2").Range("F" & j) Set rngmake = Sheets("Sheet3").Range("F" & i) Set rngsize2 = Sheets("Sheet2").Range("E" & j) Set rngsize = Sheets("Sheet3").Range("E" & i) Sub test()ĭim rngsize As Range, rngsize2 As Range, rngmake As Range, rngmake2 As Range, rngprice As Range, rngprice2 as range, i As Integer, j As Integer, x As Integerįor i = 2 To Sheets("Sheet3").Range("E" & Rows.Count).End(xlUp).Rowįor j = 7 To Sheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Row I have tried Resize, Range(Cells(Selection.Row, 1), Cells(Selection.Row, 3)).Copy etc. For example, I would like to copy number 1,3 and 6 from column C because A and B match in third row. I want to copy the following 3 values from column C if there is a match between column A and B. I have data in three columns, A, B and C.
0 kommentar(er)
