[RESUELTO] Numero de Filas Empezando por patron

[JotaEnter]

Hola, como se puede insertar un número vacío de filas dado por el valor de una celda concreta:
Por ejemplo

Celda A1=10
(insertar 10 filas, que empiecen por el patron XXX01 hasta XXX10)

A2: XXX01
A3: XXX02
...
A10: XXX10

Gracias.

[PepeOooSevilla]

Hola.
Por favor, revisa la macro del archivo adjunto.

Código: Seleccionar todo

REM  *****  BASIC  *****
Option Explicit

Sub InsertarFilasConPatron()
	Dim HojaActiva As Object
	Dim Patron As String     'Celda B1
	Dim NumFilas As Integer  'Celda A1
	Dim i As Integer
	Dim CuantosCeros As String

	REM ¡Atención! No existe control de errores
	HojaActiva = ThisComponent.getCurrentController.getActiveSheet()
	With HojaActiva
		NumFilas = .getCellRangeByName("A1").getValue()
		Patron = .getCellRangeByName("B1").getString()
		CuantosCeros = String(Len(CStr(NumFilas)), "0")
		'Insertamos A1 filas a partir de la fila 2. La fila 1 es la 0
		.getRows.insertByIndex(1, NumFilas)
		For i = 1 To NumFilas
			.getCellByPosition(0, i).setString(Patron & Format(i, CuantosCeros))
		Next i
	End With
End Sub

Saludos cordiales.

[JotaEnter]

Gracias PEPE, como siempre.