Hola amigos del foro, gracias al aporte de tierra_pampa en este foro estoy intentando aplicar el siguiente código con formula a mi archivo, en la hoja llamada BD, la formula la he logrado aplicar acorde a su evaluación pero no consigo que evalúe las celdas restantes hacia abajo para las columnas E, G e I a partir de la celda# 4 de cada columna, adjunto el código:
Por ultimo en la hoja llamada Reporte si es posible me puedan ayudar a crear una macro que aplique la siguiente fórmula: =SUMAR.SI(BD!B4:B13;C7;BD!E4:E11), donde los criterios serán los nombres de personas y me devuelva la cantidad total de los desayunos, almuerzos y cenas para cada personas.
Muchas gracias por la ayuda que me puedan brindar.
Buenas tardes,
Hola amigos del foro, gracias al aporte de tierra_pampa en este foro estoy intentando aplicar el siguiente código con formula a mi archivo, en la hoja llamada BD, la formula la he logrado aplicar acorde a su evaluación pero no consigo que evalúe las celdas restantes hacia abajo para las columnas E, G e I a partir de la celda# 4 de cada columna, adjunto el código:
Sub convertir2()
'V11/03/2016 - macro para jose-bn.80149
Hoja1.Activate
ufila = Cells(Rows.Count, 1).End(xlUp).Row
With Hoja1.Range("E4:E" & ufila)
.FormulaR1C1 = "=IF(RC4="""","""",(IF(RC4<=RC14,1,0)))"
End With
With Hoja1.Range("G4:G" & ufila)
.FormulaR1C1 = "=IF(RC6="""","""",(IF(RC4<=RC17,(IF(RC6>=RC15,1,0)),0)))"
End With
With Hoja1.Range("I4:I" & ufila)
.FormulaR1C1 = "=IF(RC8="""","""",(IF(RC8>=RC16,1,0)))"
End With
ThisWorkbook.RefreshAll
With Hoja1.Range("E4:E" & ufila)
.Formula = .Value
End With
With Hoja1.Range("G4:E" & ufila)
.Formula = .Value
End With
With Hoja1.Range("I4:I" & ufila)
.Formula = .Value
End With
End Sub
Por ultimo en la hoja llamada Reporte si es posible me puedan ayudar a crear una macro que aplique la siguiente fórmula: =SUMAR.SI(BD!B4:B13;C7;BD!E4:E11), donde los criterios serán los nombres de personas y me devuelva la cantidad total de los desayunos, almuerzos y cenas para cada personas.
Muchas gracias por la ayuda que me puedan brindar.
Saludos
Jose
Foro excel.rar