ytjjjtyj
07-31-2019, 01:01 PM
Hello,
Can anybody please help me find a faster and quicker way to code this without having to make this super long and repetitive. I am only changing a few things like location and the named range(fed_a..., fed_b... etc.)
For i = 1 To 100
Range("A307").Item(i, 1) = Hundred.Item(i, 1)
Range("A307").Item(i, 2) = Hundred.Item(i, 2)
Range("A307").Item(i, 3) = wkshtData.Range("Fed_A_" & Run.text).Item(i, 2)
Next i
wkshtDataAgg.Range("D307:EE406") = vntData_R
Range("A307:DD406").Name = "Fed_R_" & Run.text & "_Mapped"
For i = 1 To 100
Range("A408").Item(i, 1) = Hundred.Item(i, 1)
Range("A408").Item(i, 2) = Hundred.Item(i, 2)
Range("A408").Item(i, 3) = wkshtData.Range("Fed_A_" & Run.text).Item(i, 2)
Next i
wkshtDataAgg.Range("D408:EE507") = vntData_O
Range("A408:DD507").Name = "off_" & Run.text & "_Mapped"
For i = 1 To 100
Range("A509").Item(i, 1) = Hundred.Item(i, 1)
Range("A509").Item(i, 2) = Hundred.Item(i, 2)
Range("A509").Item(i, 3) = wkshtData.Range("Feed_A_" & Run.text).Item(i, 2)
Next i
wkshtDataAgg.Range("D509:EE608") = vntData_L
Range("A509:DD608").Name = "pop_" & Run.text & "_Mapped"
I don't know why the emojis are showing but it is suppose to be : D
Can anybody please help me find a faster and quicker way to code this without having to make this super long and repetitive. I am only changing a few things like location and the named range(fed_a..., fed_b... etc.)
For i = 1 To 100
Range("A307").Item(i, 1) = Hundred.Item(i, 1)
Range("A307").Item(i, 2) = Hundred.Item(i, 2)
Range("A307").Item(i, 3) = wkshtData.Range("Fed_A_" & Run.text).Item(i, 2)
Next i
wkshtDataAgg.Range("D307:EE406") = vntData_R
Range("A307:DD406").Name = "Fed_R_" & Run.text & "_Mapped"
For i = 1 To 100
Range("A408").Item(i, 1) = Hundred.Item(i, 1)
Range("A408").Item(i, 2) = Hundred.Item(i, 2)
Range("A408").Item(i, 3) = wkshtData.Range("Fed_A_" & Run.text).Item(i, 2)
Next i
wkshtDataAgg.Range("D408:EE507") = vntData_O
Range("A408:DD507").Name = "off_" & Run.text & "_Mapped"
For i = 1 To 100
Range("A509").Item(i, 1) = Hundred.Item(i, 1)
Range("A509").Item(i, 2) = Hundred.Item(i, 2)
Range("A509").Item(i, 3) = wkshtData.Range("Feed_A_" & Run.text).Item(i, 2)
Next i
wkshtDataAgg.Range("D509:EE608") = vntData_L
Range("A509:DD608").Name = "pop_" & Run.text & "_Mapped"
I don't know why the emojis are showing but it is suppose to be : D