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

Intercalar Filas en Grupos Homogéneos

Ver el tema anterior Ver el tema siguiente Ir abajo

Intercalar Filas en Grupos Homogéneos

Mensaje por GalileoGali el Sáb Jun 07, 2008 7:22 pm

[Tienes que estar registrado y conectado para ver este vínculo]

1) selecciona una celda cualquiera de la lista codigos
2) Datos autofiltro
3) Filtra por uno de los Codigo donde irntecalar, el que esta en segundo termino En este caso elegi a6
4)posiciónate en la primera celda con a6.Manten Oprimida Mayusc+ Ctrl + Flecha Abajo
5) Edicion >> Ir a >>Especial>>Solo celdas visibles
6) Insertar > Filas
7) Con la pestaña del autofiltro eliges "Todas"
Vuelve a filtrar ahora, elige "Vacias"
9) Selecciona a mano las 50 celdas Vacias
10) Edicion >> Ir A >> Especial >> Solo celdas visibles
11) si cambiar la selección. Vas a la "Barra de Formulas y escribe el codigo que agregas, en mi ejemplo A5.2, Debes mantener la Tecla Ctrl Oprimida mientras Das Enter
12) Elimino el autofiltro

ahi va un codigo que habria que adpatar al Rango en cuestion:



Código:
Sub Macro1()

Dim rng As Range
    Range("A17").AutoFilter Field:=1, Criteria1:="a6"
    Range("A17").Select
    With Range(Selection, Selection.End(xlDown))
    For Each rng In .SpecialCells(xlCellTypeVisible).Areas
    rng.EntireRow.Insert
    Next rng
    .AutoFilter Field:=1
    .AutoFilter Field:=1, Criteria1:="="
    End With
    With Range("A22:A99")
    .SpecialCells(xlCellTypeVisible).FormulaR1C1 = "a5.1"
    Range("a16").AutoFilter
    End With
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

Ver el tema anterior Ver el tema siguiente Volver arriba


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