mgabriel2490
New Member
- Joined
- Mar 1, 2016
- Messages
- 41
i started out with code like this...
but i want to look something like....
Additionally i have....
that goes on and on through column YJ, so i need something like...
what am i missing with these "i loops" ?
thank you all for your help in advance
Code:
Sheets("DailyDisp").Range("a104").AutoFill Destination:=Sheets("DailyDisp").Range("A104").Resize(Sheets("Employees").Range("ap2").Value, 1)
Sheets("DailyDisp").Range("b104").AutoFill Destination:=Sheets("DailyDisp").Range("b104").Resize(Sheets("Employees").Range("ap2").Value, 1)
Sheets("DailyDisp").Range("c104").AutoFill Destination:=Sheets("DailyDisp").Range("c104").Resize(Sheets("Employees").Range("ap2").Value, 1)
Sheets("DailyDisp").Range("g104").AutoFill Destination:=Sheets("DailyDisp").Range("g104").Resize(Sheets("Employees").Range("ap2").Value, 1)
Sheets("DailyDisp").Range("h104").AutoFill Destination:=Sheets("DailyDisp").Range("h104").Resize(Sheets("Employees").Range("ap2").Value, 1)
but i want to look something like....
Code:
For i = a To m
Sheets("DailyDisp").Range("104" & i).AutoFill Destination:=Sheets("DailyDisp").Range("104" & i).Resize(Sheets("Employees").Range("ap2").Value, 1)
'Sheets("DailyDisp").Range("A104").AutoFill Destination:=Sheets("DailyDisp").Range("A104").Resize(Sheets("Employees").Range("ap2").Value, 1)
Next i
Additionally i have....
Code:
'Sheets("Master Data").Range("c105").AutoFill Destination:=Sheets("Master Data").Range("c105").Resize(Sheets("Employees").Range("ap2").Value, 1)
'Sheets("Master Data").Range("d105").AutoFill Destination:=Sheets("Master Data").Range("d105").Resize(Sheets("Employees").Range("ap2").Value, 1)
'Sheets("Master Data").Range("e105").AutoFill Destination:=Sheets("Master Data").Range("e105").Resize(Sheets("Employees").Range("ap2").Value, 1)
'Sheets("Master Data").Range("f105").AutoFill Destination:=Sheets("Master Data").Range("f105").Resize(Sheets("Employees").Range("ap2").Value, 1)
'Sheets("Master Data").Range("h105").AutoFill Destination:=Sheets("Master Data").Range("h105").Resize(Sheets("Employees").Range("ap2").Value, 1)
that goes on and on through column YJ, so i need something like...
Code:
For i = c To YJSheets("Master Data").Range("105" & i).AutoFill Destination:=Sheets("Master Data").Range("105" & i).Resize(Sheets("Employees").Range("ap2").Value, 1)
'Sheets("Master Data").Range("c105").AutoFill Destination:=Sheets("Master Data").Range("c105").Resize(Sheets("Employees").Range("ap2").Value, 1)
Next i
what am i missing with these "i loops" ?
thank you all for your help in advance
Last edited: