Ayuda con formula en macro

[Jose BN]

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

[Jose BN]

Hola amigos,

Si alguno me pudiera colaborar se lo agradecería.

Saludos

Jose