Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/04/2009, 12:41
Avatar de TheJez
TheJez
 
Fecha de Ingreso: agosto-2004
Ubicación: México - Distrito Federal
Mensajes: 176
Antigüedad: 19 años, 9 meses
Puntos: 0
Abrir documento desde VBA function

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...
__________________
"Knowledge is power..."
"Conocimiento es poder"
TheJez^