¡ 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
Leer las respuestas