PDA

View Full Version : Solved: Small Update For Solved Changing Ranges



sooty8
09-23-2010, 12:59 PM
Hi P45Cal

I wondered if it was possible for a small update to the original - I have put the site id's on row1 and leave all columns C3 thru L3 empty - if I enter the ID numbers in column B anthing from row 3 to 53 the Site Id's would copy down to the row where the ID's end. Have attached a sample as is now.

Regards

Sooty8

xld
09-23-2010, 02:44 PM
Public Sub ProcessData()
Dim Lastrow As Long
Dim i As Long

Application.ScreenUpdating = False

With ActiveSheet

Lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = 3 To 12

.Cells(3, i).Resize(Lastrow - 2).Value = .Cells(1, i).Value
Next i
End With

Application.ScreenUpdating = True
End Sub

sooty8
09-24-2010, 03:04 AM
Hi Xld

Thank you for your help - everything now working spot on and exactly as required.

Regards

Sooty8