| Respuesta: Ayuda con macro
Ok, dejo todo el codigo por si a alguien le interesa, la verdad se me hizo medio chafa lo que hice pero funciono que era la idea.
Ahora necesito realizar la funcion inversa de lo que pedia:
Necesito crear las graficas de barras a partir de los valores que acabo de generar, aun no se como se crea una barra desde vba, supongo se puede sin necesidad de nada a parte. Abrire el tema correspondiente.
Slu2 y gracias a todos.
Que dijeron, este se fue y no dejo el codigo, pues no es cierto:
Código:
Sub copiarENEFEB()
Dim NuevaHoja As String
Dim row As String
Dim i As Integer, opc As Integer
opc = 1
For i = 3 To 64
Dim letra As String
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")
Sheets.Add
ActiveSheet.Select
Range("A1").Select
ActiveCell.formula = "='[Casos_Cerrados_Dic_2009.xls]ENE-FEB'!$" & letra & "2"
NuevaHoja = ActiveCell.Value
ActiveSheet.Name = NuevaHoja
Sheets("0900001").Select
Cells.Select
Selection.Copy
Sheets(NuevaHoja).Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Call Limpiar(NuevaHoja)
Call LlenarEncuesta(NuevaHoja, i, opc)
Next
Call copiarMARABR
Call copiarMAYJUN
Call copiarJULAGO
Call copiarSEPOCT
Call copiarNOVDIC
'ActiveWorkbook.Save
End Sub
|