en el siguiente archivo que cuelgo la macro ContarSiV solo me llega a la fiala 4420 y si tengo menos filas tampoco me la completa, siempre llega como a 3 cuartos de los datos, porque?, de antemano gracias.
las macros estan en la Hoja 1 (Basicos) "No" en los mudulos.
bueno ya que cargue el archivo vi que les va a dar un error, porque le estuve modificando otras cosas, y se me olvido ponerla a estado original, este error es porque no cambie "b:b"&final en .range de la aplicacion.countif, ustedes solo cambien a "b9:b" o "b9"&":b" y ya les da.. y asi solo llega a 4420 faltando todas las demas filas hata mas de 5mil
Adjunto | Tamaño |
---|---|
![]() | 206.6 KB |
Despues de revisar el codigo he observado que estas usando "Application.CountA(Worksheets("Basicos").Range("B:B"))"
Si usas CountA, no va a contar las celdas en blanco. Si lo que quieres es saber cual es la ultima celda escrita te recomiendo que sustituyas la linea:
final = Application.CountA(Worksheets("Basicos").Range("B:B"))
por esta otra
final = Cells.SpecialCells(xlCellTypeLastCell).Row
Espero te sirva
Un Saludo
Espero te sirva
Un Saludo
Fernando
Oh, si me funciono Gracias, de las dos formas, quiero decir que en efecto en la columna B tengo datos en blanco, y los rellene con ota macro y eche andar la de CountA y funciono, y despues heche andar la macro con tu propuesta de SpecialCells, y tambien me funciono, quiere decir que mejor voy a usar tu opcion, pues asi me ahorro una macro para rellenar celdas vacias en la columna B... mil gracias....!!!!