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:
debugeando llega hasta el while por que deja el archivo como nothing... 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

