Hola!! gracias por revisar mi post, estoy tratando de crear una funcion vba para excel la cual al ejecutarla desde una celda me abra otro documento de excel y obtenga datos de ahi(esto lo he hecho con un sub)...
es importante ke sea funcion y no sub ya que las funciones las puedo usar desde la hoja de calcula con =mifuncion...
aqui les dejo un fragmento de mi codigo
Código:
Function SumaSaldos(ByVal pedido As String, ByVal codigo As String) As Double
Dim contador As Double
Dim i As Integer
i = 1
contador = 0
Dim archivo As Workbook
Set archivo = Workbooks.Open("C:\registro.xlsm", , , , "0525", "0525")
While (archivo.Sheets(1).Cells(i, "E") <> "" And archivo.Sheets(1).Cells(i, "F") <> "")
If (archivo.Sheets(1).Cells(i, "E") = pedido And archivo.Sheets(1).Cells(i, "F") = codigo) Then
contador = contador + Val(archivo.Sheets(1).Cells(i, "I"))
End If
i = i + 1
Wend
SumaSaldos = contador
End Function
debugeando llega hasta el while por que deja el archivo como nothing...