Foros del Web » Programación para mayores de 30 ;) » Programación General »

Suma de Celdas condicionales con Visual Basic

Estas en el tema de Suma de Celdas condicionales con Visual Basic en el foro de Programación General en Foros del Web. 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, ...
  #1 (permalink)  
Antiguo 06/06/2012, 10:16
 
Fecha de Ingreso: junio-2012
Mensajes: 90
Antigüedad: 11 años, 10 meses
Puntos: 2
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

Etiquetas: basic, celdas, condicionales, excel, suma, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:18.