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

Urge macro en excell

Estas en el tema de Urge macro en excell en el foro de Ofimática en Foros del Web. QUISIERA UN MACRO QUE ME ANALIZARA MAS DE 6000 LINEAS QUE RECIBO DE UN EQUIPO DE LABORATORIO, SOBRE LA COLUMNA "A" ESTAN EN ORDEN ASCENDENTE ...
  #1 (permalink)  
Antiguo 20/03/2010, 09:45
 
Fecha de Ingreso: marzo-2010
Mensajes: 1
Antigüedad: 12 años, 8 meses
Puntos: 0
Urge macro en excell

QUISIERA UN MACRO QUE ME ANALIZARA MAS DE 6000 LINEAS QUE RECIBO DE UN EQUIPO DE LABORATORIO, SOBRE LA COLUMNA "A" ESTAN EN ORDEN ASCENDENTE DEL 1 AL .... LOS VALORES , PERO CADA 4,5 O 6 LINEAS EXISTE UN CAMBIO POR LO QUE NECESITO QUE AÑADA UNA LINEA EN BLANCO, PARA QUE CADA NUMERO TENGA EXACTAMENTE 6 LINEAS. TENGO ESTE MACRO:

Sub Insert_Rows()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets //CICLO QUE LEA TODOS LOS VALORES DE LA COLUMNA A EN LA HOJA ACTIVA
If Range("A").Value = (An++) Then // CONDICION QUE ESPERO QUE LEA EL VALOR Y LO COMPARE CON EL SIGUIENTE, SI ES IGUAL NO HACE NADA
Else
CurrentSheet.EntireRow.Insert //SI ES DIFERENTE INSERTA UNA LINEA EN BLANCO
End If
End Sub

Etiquetas: excell, macro
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 16:10.