View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Qaspec Qaspec is offline
external usenet poster
 
Posts: 96
Default Can I loop this somehow?

Public Sub UpdateVarianceSheets()


Worksheets("Variance").Range("C5:E5").Value =
Worksheets("Numbers").Range("C3:E3").Value
Worksheets("Variance").Range("C6:E6").Value =
Worksheets("Numbers").Range("F3:G3").Value
Worksheets("Variance").Range("C7:E7").Value =
Worksheets("Numbers").Range("I3:K3").Value

End Sub

The destination range ("Variance") is in 3 columns increasing by a row for
each label. The target range ("Numbers") is in 3 columns but moves over to
the next 3 columns on the same row for each label. This goes until row 19
for "Variance" and columns AV-AX for "Numbers"