pregunta

Hola J.LL.R,

Prueba con el siguiente codigo.

Saludos,
KL

Sub LlenarCeldas(Nombre As String)
Dim rng As Range
Dim c As Range
Dim Contador As Long

Set rng = ActiveSheet.Range("A2:A64")
rng.ClearContents

Select Case Nombre
Case "ADM": Contador = 21
Case "PCM": Contador = 30
Case "PQ1": Contador = 63
End Select

For Fila = 1 To Contador
rng.Cells(Fila, 1).Value = Fila
Next Fila
End Sub

Sub test()
Call LlenarCeldas("PCM")
End Sub



"J.LL.R" wrote in message
news:5cb801c52633$f6c32960$

Hola ,no se como con una matriz segun una condicion
ej:nombre­M me ponga los numeros consecutivo desde A2=1
hasta A22!,
Si nombre PCM es entonces sea A2=1 y A310
Si nombre es PQ1 sea A2=1 y A64c
Mucha gracias por su ayuda