[RESUELTO] Numero de Filas Empezando por patron

Discute sobre la aplicación de hojas de cálculo

[RESUELTO] Numero de Filas Empezando por patron

Notapor JotaEnter » Mié Jul 15, 2020 4:27 pm

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.
Última edición por JotaEnter el Jue Jul 16, 2020 8:11 am, editado 1 vez en total
OkOpenOffice 3.1 en Windows Vista / NeoOffice 2.2.3 con MacOS 10.4 / OpenOffice 2.4 en Ubuntu 9.04
JotaEnter
 
Mensajes: 15
Registrado: Mié Jun 20, 2018 11:40 am

Re: Numero de Filas Empezando por patron

Notapor PepeOooSevilla » Mié Jul 15, 2020 8:20 pm

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

Código: Seleccionar todo   Expandir vistaContraer vista
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.
Adjuntos
FORO_CALC_InsertarFilasConPatron.ods
LibO Calc 6.3.6
(15.66 KiB) 21 veces
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
Avatar de Usuario
PepeOooSevilla
 
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Numero de Filas Empezando por patron

Notapor JotaEnter » Jue Jul 16, 2020 8:10 am

Gracias PEPE, como siempre.
OkOpenOffice 3.1 en Windows Vista / NeoOffice 2.2.3 con MacOS 10.4 / OpenOffice 2.4 en Ubuntu 9.04
JotaEnter
 
Mensajes: 15
Registrado: Mié Jun 20, 2018 11:40 am


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados