inajica
09-24-2008, 02:36 PM
I am tring to add the following statements into my loop:
LastRow = Range("A65536").End(xlUp).Row
Range("g2:g" & LastRow).FormulaR1C1 = "1"
LastRow = Range("A65536").End(xlUp).Row
Range("g2:g" & LastRow).FormulaR1C1 = "2"
LastRow = Range("A65536").End(xlUp).Row
Range("g2:g" & LastRow).FormulaR1C1 = "3"
These FormulaR1C1 goes up to fifty. So it would be easier to put them into a loop, if possible. This is the For loop I have so far.
Dim open1 As String
open1 = "C:\Recent\40Copy\1_9-20-08\50"
For i = 1 To 50
Workbooks.Open Filename:=open1 & "\win01_" & i & ".xlsx"
Call call1part1
Next i
Thank you for any help.
LastRow = Range("A65536").End(xlUp).Row
Range("g2:g" & LastRow).FormulaR1C1 = "1"
LastRow = Range("A65536").End(xlUp).Row
Range("g2:g" & LastRow).FormulaR1C1 = "2"
LastRow = Range("A65536").End(xlUp).Row
Range("g2:g" & LastRow).FormulaR1C1 = "3"
These FormulaR1C1 goes up to fifty. So it would be easier to put them into a loop, if possible. This is the For loop I have so far.
Dim open1 As String
open1 = "C:\Recent\40Copy\1_9-20-08\50"
For i = 1 To 50
Workbooks.Open Filename:=open1 & "\win01_" & i & ".xlsx"
Call call1part1
Next i
Thank you for any help.