Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Another Copy/Paste Question
I'm really close to getting this right. I'm sure this code looks like
a mess but it basically does this: it looks in Sheet1 Column 1 for "MCC", if it finds it, the data in Columns 2 and 3 are copied and pasted into a spreadsheet called ("Lookup.xls") where values are populated into Column 6, the values in Column 6 are then pasted back into Column 4 of Sheet1. The problem is that the data is pasted at the top of column 4 in Sheet1, I need it to paste into the same row from which it was copied. Can someone please help me with this? Sub Get_Data() Dim CP As Range Dim iR As Range Dim i As Long Dim Wb As Workbook Dim dRange1 As Range Dim dRange2 As Range Dim dRange3 As Range Application.ScreenUpdating = False With Worksheets("Sheet1") Set CP = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) Set dRange3 = Cells(2, 4) End With i = 1 Set Wb = Workbooks.Open("A:\Lookup.xls") Set dRange1 = Wb.Sheets(13).Range("B3") For Each iR In CP If UCase(Trim(iR.Value)) = "MCC" Then iR.Cells(1, 2).Copy dRange1.Cells(i, 1).PasteSpecial xlPasteValues, , False, False iR.Cells(1, 3).Copy dRange1.Cells(i, 2).PasteSpecial xlPasteValues, , False, False i = i + 1 With Wb.Sheets(13) Set dRange2 = .Range("F3", .Cells(Rows.Count, 6).End(xlUp)) End With dRange2.Copy dRange3.PasteSpecial xlPasteValues, , False, False Application.ScreenUpdating = True End If Next End Sub Thanks again, -- Dan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy and Paste Question | Excel Discussion (Misc queries) | |||
Copy/Paste Question | Excel Discussion (Misc queries) | |||
Copy/Paste question | Excel Worksheet Functions | |||
Odd copy and paste question | Excel Programming | |||
Copy Paste Question | Excel Discussion (Misc queries) |