Coletas | |
| 2007-06-17 12:29 - Respuestas: 2 - Tema nº: 2453404
Características: Windows XP Home, 2 gigas mémoria.
Un saludo a todos.
Macro en Código vb para Excel
Veamos si puedo explicarme con claridad, disculpadme si no lo consigo,
Importo de una base de datos, un bloque de datos de 9 columnas y 50000 filas.
Para su posterior uso, debo enumerar las filas del 1 al 10 y separar el bloque insertando una fila en blanco.
Y asi, sucesivamente has ta fila 50000.
Agradezco cualquier sugerencia, y os doy las gracias por vuestro interés y dedicación.
Saludos
| |
|
|
ebolo | |
|
Re: Macro en Código vb para Excel (Solucionado) - 2007-06-17 17:06 - Respuesta 2
Hola coletas, te lo voy a dejar para 2 bortones de comando; con uno separas filas primero; con el otro las enumeras en la columna 1, que previamente las insertado tú.
Private Sub CommandButton1_Click()
'añade 1fila cada 10
Dim t As Long
t = 1
While Cells(t, 1) ""
If t Mod 11 = 0 Then Me.Rows(t).Insert
t = t + 1
Wend
End Sub
Private Sub CommandButton2_Click()
'Enumera fila 1 (cellst,1)
Dim t, p As Long
p = 1
For t = 1 To 55000
Cells(t, 1) = p
p = p + 1
If t Mod 11 = 0 Then p = 1
Next t
End Sub
SAludos.
PD: si quieres te puedes crear las macros, si es para una vez sóla te pones los 2 botones de comando y los ejecutas.
| |
|
|
Coletas | |
|
Re: Macro en Código vb para Excel (Solucionado) - 2007-06-17 18:35 - Respuesta 3
Hola ebolo un cordial saludo
Saludos a todos
Me sorprende la sencillez de tus enfoques, y te doy las gracias por tu super rapida respuesta.
Por lo que debe hacer construire la macro, siguiendo tu planteo.
Bueno repito te doy las gracias por tu soporte y generosidad.
Espero que todo te vaya bien y celebro verte como moderador en este foro.
gracias de nuevo y felicidades
Saludos a todos
Coletas
| |
|
|
|