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