Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code help
Hi,
Is there a way to simplyfy this code? I'm basically updating the Master sheet in 5 adjacent columns. Sub LookupUpdateExisting() Dim Cel As Range, c As Range With Sheets("Master") For Each Cel In Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)) Set c = Sheets("Update").Columns(1).Find(Cel, lookat:=xlWhole) If Not c Is Nothing Then Cel.Offset(, 1) = c.Offset(, 1) End If Next End With With Sheets("Master") For Each Cel In Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)) Set c = Sheets("Update").Columns(1).Find(Cel, lookat:=xlWhole) If Not c Is Nothing Then Cel.Offset(, 2) = c.Offset(, 2) End If Next End With With Sheets("Master") For Each Cel In Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)) Set c = Sheets("Update").Columns(1).Find(Cel, lookat:=xlWhole) If Not c Is Nothing Then Cel.Offset(, 3) = c.Offset(, 3) End If Next End With With Sheets("Master") For Each Cel In Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)) Set c = Sheets("Update").Columns(1).Find(Cel, lookat:=xlWhole) If Not c Is Nothing Then Cel.Offset(, 4) = c.Offset(, 4) End If Next End With With Sheets("Master") For Each Cel In Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)) Set c = Sheets("Update").Columns(1).Find(Cel, lookat:=xlWhole) If Not c Is Nothing Then Cel.Offset(, 5) = c.Offset(, 5) End If Next End With End Sub Thanks in advance. -- By persisting in your path, though you forfeit the little, you gain the great. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Simplify code | Excel Worksheet Functions | |||
Please help me simplify the given code | Excel Programming | |||
Need to simplify code | Excel Discussion (Misc queries) | |||
Simplify Code | Excel Programming | |||
Help to simplify code. | Excel Programming |