Macro No funciona despues de fila 4420

3 envíos / 0 nuevos
Último envío
oskkk4
Imagen de oskkk4
Offline
última acción: Hace 2 semanas 4 días
alta: 24/06/2020 - 04:45
Puntos: 105
Macro No funciona despues de fila 4420

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

Etiquetas: 

FernandoML
Imagen de FernandoML
Offline
última acción: Hace 1 semana 5 días
alta: 01/02/2018 - 19:53
Puntos: 185
Respuesta Macro No funciona despues de fila 4420

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

oskkk4
Imagen de oskkk4
Offline
última acción: Hace 2 semanas 4 días
alta: 24/06/2020 - 04:45
Puntos: 105
Gracias

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....!!!!