Sub LlenarEncuesta(NuevaHoja As String, i As Integer, opc As Integer)
Sheets(NuevaHoja).Select
Dim row As String
For cont = 0 To 472
row = CStr(cont + 2)
Range("C4").Select
ActiveCell.Value = "=[Casos_Cerrados_Dic_2009.xls]CERRADOS!$A$" & row
If NuevaHoja = ActiveCell.Value Then
Range("K10").Select
ActiveCell.Value = "=[Casos_Cerrados_Dic_2009.xls]CERRADOS!$A$" & row
Range("D9").Select
ActiveCell.formula = "=[Casos_Cerrados_Dic_2009.xls]CERRADOS!$AC$" & row
Range("K9").Select
ActiveCell.formula = "=[Casos_Cerrados_Dic_2009.xls]CERRADOS!$K$" & row
End If
Next
Range("C4").Select
ActiveCell.Value = ""
Dim celda As String, valor As String, formula1 As String, formula2 As String, formula3 As String, formula4 As String, formula5 As String
Dim grilla1 As String, grilla2 As String, grilla3 As String, grilla4 As String, grilla5 As String
Dim letra As String
If opc = 1 Then
letra = Switch(i = 3, "C", i = 4, "D", i = 5, "E", i = 6, "F", i = 7, "G", i = 8, "H", i = 9, "I", i = 10, "J", i = 11, "K", i = 12, "L", i = 13, "M", i = 14, "N", i = 15, "O", i = 16, "P", i = 17, "Q", i = 18, "R", i = 19, "S", i = 20, "T", i = 21, "U", i = 22, "V", i = 23, "W", i = 24, "X", i = 25, "Y", i = 26, "Z", i = 27, "AA", i = 28, "AB", i = 29, "AC", i = 30, "AD", i = 31, "AE", i = 32, "AF", i = 33, "AG", i = 34, "AH", i = 35, "AI", i = 36, "AJ", i = 37, "AK", i = 38, "AL", i = 39, "AM", i = 40, "AN", i = 41, "AO", i = 42, "AP", i = 43, "AQ", i = 44, "AR", i = 45, "AS", i = 46, "AT", i = 47, "AU", i = 48, "AV", i = 49, "AW", i = 50, "AX", i = 51, "AY", i = 52, "AZ", i = 53, "BA", i = 54, "BB", i = 55, "BC", i = 56, "BD", i = 57, "BE", i = 58, "BF", i = 59, "BG", i = 60, "BH", i = 61, "BI", i = 62, "BJ", i = 63, "BK", i = 64, "BL")
grilla1 = "$" + letra + "$3"
grilla2 = "$" + letra + "$4"
grilla3 = "$" + letra + "$5"
grilla4 = "$" + letra + "$6"
grilla5 = "$" + letra + "$7"
formula1 = "='[Casos_Cerrados_Dic_2009.xls]ENE-FEB'!" & grilla1
formula2 = "='[Casos_Cerrados_Dic_2009.xls]ENE-FEB'!" & grilla2
formula3 = "='[Casos_Cerrados_Dic_2009.xls]ENE-FEB'!" & grilla3
formula4 = "='[Casos_Cerrados_Dic_2009.xls]ENE-FEB'!" & grilla4
formula5 = "='[Casos_Cerrados_Dic_2009.xls]ENE-FEB'!" & grilla5
End If
If opc = 2 Then
letra = Switch(i = 3, "B", i = 4, "C", i = 5, "D", i = 6, "E", i = 7, "F", i = 8, "G", i = 9, "H", i = 10, "I", i = 11, "J", i = 12, "K", i = 13, "L", i = 14, "M", i = 15, "N", i = 16, "O", i = 17, "P", i = 18, "Q", i = 19, "R", i = 20, "S", i = 21, "T", i = 22, "U", i = 23, "V", i = 24, "W", i = 25, "X", i = 26, "Y", i = 27, "Z", i = 28, "AA", i = 29, "AB", i = 30, "AC", i = 31, "AD", i = 32, "AE", i = 33, "AF", i = 34, "AG", i = 35, "AH", i = 36, "AI", i = 37, "AJ", i = 38, "AK", i = 39, "AL", i = 40, "AM", i = 41, "AN", i = 42, "AO", i = 43, "AP", i = 44, "AQ", i = 45, "AR", i = 46, "AS", i = 47, "AT", i = 48, "AU", i = 49, "AV", i = 50, "AW", i = 51, "AX", i = 52, "AY", i = 53, "AZ", i = 54, "BA", i = 55, "BB", i = 56, "BC", i = 57, "BD", i = 58, "BE", i = 59, "BF", i = 60, "BG", i = 61, "BH", i = 62, "BI", i = 63, "BJ", i = 64, "BK", _
i = 65, "BL", i = 66, "BM", i = 67, "BN", i = 68, "BO", i = 69, "BP", i = 70, "BQ", i = 71, "BR", i = 72, "BS", i = 73, "BT", i = 74, "BU", i = 75, "BV", i = 76, "BX", i = 77, "BY", i = 78, "BZ", i = 79, "CA", i = 80, "CB", i = 81, "CC", i = 82, "CD", i = 83, "CE", i = 84, "CF", i = 85, "CG", i = 86, "CH", i = 87, "CI", i = 88, "CJ", i = 89, "CK", i = 90, "CL", i = 91, "CM", i = 92, "CN", i = 93, "CO", i = 94, "CP", i = 95, "CQ", i = 96, "CR", i = 97, "CS", i = 98, "CT", i = 99, "CU", i = 100, "CV")
grilla1 = "$" + letra + "$3"
grilla2 = "$" + letra + "$4"
grilla3 = "$" + letra + "$5"
grilla4 = "$" + letra + "$6"
grilla5 = "$" + letra + "$7"