contar filas de rango no continuo

[fjchavez]

Hola,
como hago para contar el numero de filas del siguiente rango:

dim x as range

set x=range("A1:A2,A8:A15")
fila=x.rows.count


Hago esto y me da como resultado 2, pork me esta contando de A1:A2 pero no me incluye el "A8:A15". Como puedo contar el total de filas directamente???

[Pablus00]

Hola fjchavez, fijate si te sirve hacerlo por separado:

dim x as range

set x=range("A1:A2")
fila1=x.rows.count

set x=range("A8:A15")
fila2=x.rows.count

filatotal = fila1 + fila2

Saludos

[fjchavez]

Gracias!!! pero la idea es que no lo separe.
Encontré esto, cada rango continuo constituye un area, en mi caso tengo 2 areas

Código:

For each rango in range("A1:A2,A8:A15").Areas
totalfilas=totalfilas + rango.rows.count
next

[mrocf]

Cada rango de celdas contiguas de una selección múltiple se denomina en VBA: Área.

El código debe contemplar esa cuestión, por ejemplo así:

Código vb:

Sub Macro793()
Dim mArea As Range, nRow As Long
For Each mArea In Range("A1:A2,A8:A15").Areas
  nRow = nRow + mArea.Rows.Count
Next mArea
MsgBox nRow
End Sub
 

Saludos, Cacho.

[JoaoM]

[QUOTE=mrocf;3726979][FONT="Comic Sans MS"][SIZE="2"]
¿Cuenta las filas ocupadas? dá 10

¿Se le llamaria rango fijo?
¿y rango variable?