Sumar.si en visual basic

26/09/2011 - 06:44 por javiee | Informe spam
¡ Hola ! tengo una macro la cual me suma una celda contaste de todos los libros (que tienen mismo formato) guardados dentro de la misma carpeta. Me funciona perfectamente, aahora necesito otra macro que tenga el mismo procedimiento pero con la funcion sumar.si

la macro que tengo es:

Sub SumaDeVariosLibros()
Dim MyBook As String, myForm As String
Const Celda As String = "N11"
With ThisWorkbook
MyBook = Dir(.Path & "\*.xls")

Do
If MyBook <> .Name Then
With Range("C3")
myForm = .Formula & " + '" & ThisWorkbook.Path & "\[" & MyBook & "]FACTURA'!" & Celda
.Value = "=" & myForm: .Value = .Value
End With
End If
MyBook = Dir
Loop Until MyBook = ""
End With

End Sub

Necesito crear una macro similar adaptada a la siguiente funcion sumar.si:

Range("B4").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF([FACTURA1.xls]FACTURA!R14C1:R33C1,[FACTURA1.xls]INVENTARIO!R5C1,[FACTURA1.xls]FACTURA!R14C2:R33C2)"

Donde (FACTURA1.slx) seria reemplazado por ThisWorkbook.Path & "\[" & MyBook & "] para que se ejecute la macro con todos los libros dentro de la misma carpeta.

Muchas gracias
 

Preguntas similares