............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Intercalar Filas vacías en tabla

Ver el tema anterior Ver el tema siguiente Ir abajo

Intercalar Filas vacías en tabla

Mensaje por Nostradamus el Jue Feb 14, 2008 8:53 pm

Estimados todos:
Tengo una base de datos en la cual deseo insertar filas intercaladas, vale decir que cada linea de datos este separada por una fila vacia. Una forma en la que logre hacerlo, fue marcando cada fila precionando la tecla CTL y luego insertar filas; funciona de esta forma pero es un trabajo muy tedioso.
Saludos
Nostradamus

Nostradamus

Cantidad de envíos : 6
Fecha de inscripción : 26/01/2008

Volver arriba Ir abajo

Re: Intercalar Filas vacías en tabla

Mensaje por GalileoGali el Vie Feb 15, 2008 11:27 pm

suponiendo una tabla compacta con encabezamientos en fila 1 y primera columna en "A"....

Sub InsertarFilas()
Dim ultfila As Long, j as long
ultfila = Cells(Rows.Count, "A").End(xlUp).Row
For j = ultfila To 3 Step -1
Cells(j, 1).EntireRow.Insert
Next j
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Intercalar Filas vacías en tabla

Mensaje por Farrah el Vie Jul 01, 2011 5:55 pm

como se usa visual basic?? qe hago para usar esta instruccion?? me puedes ayudar?

Farrah

Femenino Cantidad de envíos : 1
Edad : 39
Ciudad - Pais : Valdivia, Chile
Version de Excel : 2007
Fecha de inscripción : 01/07/2011

Volver arriba Ir abajo

Re: Intercalar Filas vacías en tabla

Mensaje por GalileoGali el Vie Jul 01, 2011 6:02 pm

Podriamos escribir varios libros, o sea que no te respondo nada interesante, sin embargo te sugiero que busques el tema Grabar Macro y trates de usarlo para automatizar alguna serie de tareas concatenadas, si despues de eso sientes que te ha "picado el bichito de las macros", llegó la hora de empezar a ejercitarte y crear las tuyas leyendo algun manual "ad-hoc" (VBA para Excel, Macros en Excel)

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Intercalar Filas vacías en tabla

Mensaje por Cacho R el Dom Jul 03, 2011 11:37 am

Hola! Farrah.
Tanto para utilizar el código que nos ha dejado Galileo como el siguiente:

Código:
Sub InsertarFilas2()
Dim ii As Long, C As Range
On Error Resume Next
Set C = Application.InputBox("Selecciona una celda del encabezado", Type:=8)
On Error GoTo 0
If C Is Nothing Then Exit Sub
Application.ScreenUpdating = False
With C(1)
  ii = .CurrentRegion.Rows.Count - 1: .EntireColumn.Insert
  With .Offset(1, -1).Resize(ii)
    .Value = Evaluate("row(" & .Address & ")")
  End With
  With .Offset(1 + ii, -1).Resize(ii - 1)
    .Value = Evaluate("0.5 + row(" & .Offset(-ii).Address & ")")
  End With
  .Offset(1).Resize(2 * ii - 1).EntireRow.Sort Key1:=.Offset(1, -1), Order1:=xlAscending, Header:=xlNo
  .Offset(, -1).EntireColumn.Delete
End With
Application.ScreenUpdating = True
End Sub

puedes hacer esto:

a) Haz clic con el botón derecho de tu ratón en la solapa de la hoja y selecciona: Ver código

b) En la ventana que se te abrirá, copia y pega alguno de los códigos mostrados.

c) Cierra todas las ventanas del ambiente Visual Basic for Application (VBA) en el que te encuentras y retorna al Excel.

d) Ejecuta el código

Saludos, Cacho R.



avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Intercalar Filas vacías en tabla

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.