Ver originales (Francés)

[VBA Excel] número de celdas no vacías en una columna

Raph -  
 ensatien -
Hola,

¿Cómo conocer el número de celdas no vacías en la columna A, por ejemplo, de la hoja1?
A través de una función es simple, está el CONTAR.SI, pero ¿en VBA?

¿Alguien tiene alguna idea?

Gracias

Raph
Configuración: Windows XP Internet Explorer 6.0

2 respuestas

  1.
    xjl Mensajes publicados 232 Estado Miembro 183
     
    Hola,

    ¿Puedes hacer esto:

    Sub conteo()
    n = 0
    For Each Celda In Sheets(1).Columns(1).Cells
    If IsEmpty(Celda) Then n = n + 1
    Next Celda
    MsgBox n

    End Sub
    13
    1. Raph
       
      Gracias Xjl, lo encontré más corto ;)

      nbcells = Application.WorksheetFunction.CountA(Hoja1.Range("$A:$A"))
      0
    2. hammougua
       
      Ab44 25 jul. 2009 a las 13:15
      ¿y para una columna B, ¿cómo lo harías?
      ¿y cómo lo declaran nbcells?
      0
    3. Gotts
       
      Dim nbcells As Integer

      y para B solo necesitas reemplazar las A por B ...
      0