Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Should be easy...what's missing?
Code doesn't work due to error on line: c.Address.Select
With Worksheets("Sheet2").Range("G2:G76") Set c = .Find(F.Value, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Worksheets("Sheet3").Range("Q2:V2").Select Application.CutCopyMode = False Selection.Copy c.Address.Select ActiveCell.Offset(0, -6).Range("A1").Select ActiveSheet.Paste Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address < firstAddress End If End With I want to.. 1) find where F.Value = the Value of a cell in Worksheets("Sheet2").Range("G2:G76") 2) paste values from cells Worksheets("Sheet3").Range("Q2:V2") into columns A through F (in the same row as the cell that was just found in .Find) |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Type.Missing vs. System.Reflection.Missing.Value as WSF parameters? | Excel Programming | |||
Am I missing some easy solution to my problem? | Excel Worksheet Functions | |||
Toolbars Missing, And option to Add Missing | Excel Discussion (Misc queries) | |||
On Error? Creates 1 missing worksheet then never detects any other missing worksheets | Excel Programming | |||
new user with easy question? not easy for me | New Users to Excel |