Regresar a la Pagina de Inicio

5 mar. 2010

buscar archivos en el directorio con macros

Las necesidades informáticas van en aumento día a día. Si bien los lenguajes son cada vez mas poderosos, los programadores nos encontramos con que los requerimientos de nuestros clientes son también cada vez mayores.
[+/-] Ver el resto / Ocultar

6 comentarios:

Anónimo dijo...

Hola busco un archivo como el jfksoft, el cual siendo un libro de excell puedo realizar cotizaciones, factura, orden de servicio, genera un listado decotizaciones de ordenes de servicio etc tendras algo asi lourdesyuyi@hotmail.com

Damian Omar Silva dijo...

Lourdes: gracias por escribir en mi blog, pero lamentablemente no puedo ayudarte al respecto. En las distintas entradas podrás encontrar ejemplos de como, por ejemplo, enviar mails o realizar impresiones selectivas, pero en la actualidad no poseo ningún proyecto de esas características, o bien se los he programado y vendido a distintos clientes, por lo cual los derechos son de ellos.
Decime si puedo ayudarte en algún punto en particular (que es mas que nada el "espíritu" de este blog, por que son trabajos muy extensos y complejos de realizar, que la mayoría de las veces se encuentran personalizados a los gustos y necesidades de cada usuario.

Felemaru dijo...

Excelente justo lo que necesitaba

Damian Omar Silva dijo...

Felemaru: gracias por tu comentario

Anónimo dijo...

Tengo el siguiente codígo:

Sub Prueba()
'
' Prueba Macro
' Calcula valores
'
Range("J2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+1"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-3]"
Range("M2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]/24"
Range("J2:M2").Select
Selection.AutoFill Destination:=Range("J2:M19"), Type:=xlFillDefault
Range("J2:M19").Select
End Sub

Como le digo a la macro que vaya a la ultima celda que tenga valor, dado que es un reporte que se baja y los rangos cambian, le puedo ampliar el rango y listo. Pero como hacer para que busque el último dato de la columna (I) y empiece a subir para calcular lo anterior.

Damian Omar Silva dijo...

Para ver cual es la última fila de un rango te conviene este código sencillo:
Fila=Cells(Cells.rows.count, "I").end(xlup).row

esto hace que Excel vaya hasta la última fila de la hoja (primer argumento) de la columna I (segundo argumento) y "suba" (end(xlup)) hasta encontrar la fila ocupada, la cual almaceno en el ejemplo dentro de la variable Fila.
Luego puedes usar un bucle For...Next para recorrer ese rango.
Cualquier ayuda que necesites al respecto, avisame. Gracias x el mensaje.

Publicar un comentario

Regresar a la Pagina de Inicio

ENTRADAS MAS RECIENTES (ULTIMAS 10)


las + vistas

10 ULTIMOS COMENTARIOS DE MIS LECTORES

Free counters!
blog de periodismo




GRAFICA RIO BRAVO
Serigrafia-Offset
Rosario - Santa Fe - Argentina
TE: 0341 4664028