Foros del Web » Soporte técnico » Ofimática »

file debajo de fila

Estas en el tema de file debajo de fila en el foro de Ofimática en Foros del Web. Que tal amigos del foro, como puedo insertar una fila en blanco debajo de cada fila en excel 2010??...
  #1 (permalink)  
Antiguo 04/10/2013, 17:27
Avatar de timoteo666  
Fecha de Ingreso: agosto-2011
Ubicación: /home/Gdl
Mensajes: 242
Antigüedad: 8 años
Puntos: 11
Busqueda file debajo de fila

Que tal amigos del foro, como puedo insertar una fila en blanco debajo de cada fila en excel 2010??
__________________
( + ) lineas de código ( - ) televisión
  #2 (permalink)  
Antiguo 08/10/2013, 15:33
Avatar de timoteo666  
Fecha de Ingreso: agosto-2011
Ubicación: /home/Gdl
Mensajes: 242
Antigüedad: 8 años
Puntos: 11
Busqueda Respuesta: file debajo de fila

la idea es esta:
tengo:
fila_1
fila_2
fila_3
fila_4

Y quiero que quede asi:
fila_1

fila_2

fila_3

fila_4


Cita:
Iniciado por timoteo666 Ver Mensaje
Que tal amigos del foro, como puedo insertar una fila en blanco debajo de cada fila en excel 2010??
__________________
( + ) lineas de código ( - ) televisión
  #3 (permalink)  
Antiguo 13/11/2013, 08:16
 
Fecha de Ingreso: marzo-2010
Ubicación: Lima
Mensajes: 31
Antigüedad: 9 años, 5 meses
Puntos: 2
Respuesta: file debajo de fila

Hola timoteo666:
Aqui te paso el codigo para que realices lo que deseas.
Pasos:

-Abre archivo de excel
-Presiona Alt+F11
-Crea un modulo
-Pega esto

Código vb:
Ver original
  1. Option Explicit
  2. Sub Agregar_Linea()
  3. Dim NumRow As Integer
  4. Dim i As Integer
  5. Application.ScreenUpdating = False
  6. NumRow = Range("A1", Range("A1").End(xlDown)).Count
  7. For i = 1 To (NumRow * 2)
  8.     If i Mod 2 Then
  9.     Else
  10.        Rows(i & ":" & i).Select
  11.        Selection.Insert Shift:=xlDown
  12.     End If
  13. Next i
  14. Application.ScreenUpdating = True
  15. End Sub

Espero que te sirva. Saludos
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. Y del Universo no estoy seguro.

Última edición por elunico22; 13/11/2013 a las 08:27 Razón: Agregar información
  #4 (permalink)  
Antiguo 17/11/2013, 16:29
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
Respuesta: file debajo de fila

Hola! Timoteo (y elunico). Un método que suele ser eficiente es el siguiente:

Código PHP:
Sub Agregar_Linea_2()
Application.ScreenUpdating False
With Range
("a1", [a1].End(xlDown))
  .
EntireColumn.Insert
  With 
.Offset(, -1)
    .
Formula "=row()"
    
.Value = .Value
    
.Offset(.Count) = "=0.5 + " & .Cells(1).Address(00)
    .
Offset(.Count).Value = .Offset(.Cells.Count).Value
    With 
.Resize(* .Count).EntireRow
      
.EntireColumn.Sort key1:=.Cells(1), order1:=xlAscendingHeader:=xlYes
    End With
    
.EntireColumn.Delete
  End With
End With
Application
.ScreenUpdating True
End Sub 
¡Espero te sea de utilidad!
Saludos, Cacho R.

Etiquetas: excel
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:20.