| Suma de Celdas condicionales con Visual Basic
Buenas, esta muy bonito este foro, muy util....aqui les tengo mi primer duda respecto a visual basic con excel....
Tengo un reporte creado con excel, lo que necesito hacer es que me genere una formula predilecta que me sume ciertas celdas que vendrian siendo los dias de la semana, de Lunes a Sabado (dependiendo del mes ) para que me los copie en otra hoja en otra tabla, tomando la info de la primer hoja para la segunda, no se si soy muy especifico...xD
Vera, este es el codigo dentro de mi macro...
Sheets("Datos Gráfico Defectos").Cells(5, 2 + nWeek - 1).Value = "=SUM(" & First & "49:" & last & "49)"
Sheets("Datos Gráfico Defectos").Cells(6, 2 + nWeek - 1).Value = "=SUM(" & First & "50:" & last & "50)"
Sheets("Datos Gráfico Defectos").Cells(8, 2 + nWeek - 1).Value = "=SUM(" & First & "62:" & last & "62)"
Sheets("Datos Gráfico Defectos").Cells(9, 2 + nWeek - 1).Value = "=SUM(" & First & "63:" & last & "63)"
Sheets("Datos Gráfico Defectos").Cells(10, 2 + nWeek - 1).Value = "=SUM(" & First & "64:" & last & "64)"
Sheets("Datos Gráfico Defectos").Cells(11, 2 + nWeek - 1).Value = "=SUM(" & First & "65:" & last & "65)"
Sheets("Datos Gráfico Defectos").Cells(12, 2 + nWeek - 1).Value = "=SUM(" & First & "66:" & last & "66)"
Sheets("Datos Gráfico Defectos").Cells(13, 2 + nWeek - 1).Value = "=SUM(" & First & "67:" & last & "67)"
Sheets("Datos Gráfico Defectos").Cells(15, 2 + nWeek - 1).Value = "=SUM(" & First & "75:" & last & "75)"
Sheets("Datos Gráfico Defectos").Cells(16, 2 + nWeek - 1).Value = "=SUM(" & First & "76:" & last & "76)"
Sheets("Datos Gráfico Defectos").Cells(17, 2 + nWeek - 1).Value = "=SUM(" & First & "77:" & last & "77)"
Sheets("Datos Gráfico Defectos").Cells(18, 2 + nWeek - 1).Value = "=SUM(" & First & "78:" & last & "78)"
Sheets("Datos Gráfico Defectos").Cells(19, 2 + nWeek - 1).Value = "=SUM(" & First & "79:" & last & "79)"
Sheets("Datos Gráfico Defectos").Cells(21, 2 + nWeek - 1).Value = "=SUM(" & First & "89:" & last & "89)"
Sheets("Datos Gráfico Defectos").Cells(22, 2 + nWeek - 1).Value = "=SUM(" & First & "90:" & last & "90)"
Sheets("Datos Gráfico Defectos").Cells(23, 2 + nWeek - 1).Value = "=SUM(" & First & "91:" & last & "91)"
Sheets("Datos Gráfico Defectos").Cells(24, 2 + nWeek - 1).Value = "=SUM(" & First & "92:" & last & "92)"
Sheets("Datos Gráfico Defectos").Cells(26, 2 + nWeek - 1).Value = "=SUM(" & First & "103:" & last & "103)"
Sheets("Datos Gráfico Defectos").Cells(27, 2 + nWeek - 1).Value = "=SUM(" & First & "104:" & last & "104)"
Sheets("Datos Gráfico Defectos").Cells(28, 2 + nWeek - 1).Value = "=SUM(" & First & "105:" & last & "105)"
Sheets("Datos Gráfico Defectos").Cells(29, 2 + nWeek - 1).Value = "=SUM(" & First & "106:" & last & "106)"
Sheets("Datos Gráfico Defectos").Cells(30, 2 + nWeek - 1).Value = "=SUM(" & First & "107:" & last & "107)"
Sheets("Datos Gráfico Defectos").Cells(31, 2 + nWeek - 1).Value = "=SUM(" & First & "108:" & last & "108)"
Sheets("Datos Gráfico Defectos").Cells(32, 2 + nWeek - 1).Value = "=SUM(" & First & "109:" & last & "109)"
Sheets("Datos Gráfico Defectos").Cells(33, 2 + nWeek - 1).Value = "=SUM(" & First & "110:" & last & "110)"
Sheets("Datos Gráfico Defectos").Cells(34, 2 + nWeek - 1).Value = "=SUM(" & First & "111:" & last & "111)"
Sheets("Datos Gráfico Defectos").Cells(35, 2 + nWeek - 1).Value = "=SUM(" & First & "112:" & last & "112)"
Sheets("Datos Gráfico Defectos").Cells(36, 2 + nWeek - 1).Value = "=SUM(" & First & "113:" & last & "113)"
Sheets("Datos Gráfico Defectos").Cells(37, 2 + nWeek - 1).Value = "=SUM(" & First & "114:" & last & "114)"
Sheets("Datos Gráfico Defectos").Cells(38, 2 + nWeek - 1).Value = "=SUM(" & First & "115:" & last & "115)"
Las variables "First & Last" la verdad no tiene uso....lo que no se es como hacerle para que en esta parte
"=SUM(" & First & "115:" & last & "115)"
me salga las celdas que quiero, claro esta, que las celdas van a air variando dependiendo el mes, ya que previamente realize un macro que me genera los dias del mes y acomoda las celdas de acuerdo a su dia, tomando en cuenta que tengo los domingos como dias inactivos..espero puedan ayudarme :S aunque no se si me explique como es?
Saludos |