diazjosej

Dante Amor respondió: ¿Quieres la macro o la instrucción que copia? Con estas instrucciones encuentras la última columna con datos y la última fila con datos ufila = ActiveCell.SpecialCells(xlLastCell).Row ucol = ActiveCell.SpecialCells(xlLastCell).Column Entonces para...

Luis Mondelo respondió: Te mando mi solución: Tenemos la columna A completada desde A1 hasta A193 y la columna B tiene datos alternos. Ejecuta esta macro y todo listo: Sub valores() 'macro creada por Luismondelo Range("b1").Select Do While ActiveCell.Offset(0, -1).Value <>...

Elsa Matilde respondió: Podes usar esta fórmula: =CONTAR.SI(A2:L2;"<> 0") Aquí te devolverá la cantidad de celdas con valor <> 0, es decir que las vacías también se consideran <> 0. Sdos. No olvides finalizar si el tema queda resuelto, sino solicitá aclaraciones.

prozac respondió: Con la información que das no sé exactamente que es lo que quieres. ¿A qué llamas exportar los archivos a excel? Por lo que entiendo, importas desde Excel archivos a distintos libros u hojas excel, pero habría que saber que haces manualmente para...

Luis_P respondió: Si, lo que pasa es que lo pegaste en la ventana de edición para el código de la hoja... y lo que yo te señale es que debes pegarlo en un "modulo". Vuelve a hacer lo mismo: 1. Abrí un excel que solo tuviera una hoja. 2. Le di click derecho en la hoja...

Luis_P respondió: Ok. Entonces asi: Option Explicit Private Const MAX_PATH = 64 Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long...