Visual Basic para Aplicaciones - macro para insertar fila previo recorrido de celdas.

Life is soft - evento anual de software empresarial
 
Vista:

macro para insertar fila previo recorrido de celdas.

Publicado por Manuel Venero (2 intervenciones) el 07/09/2017 17:34:22
hola, quisiera que me ayuden a solucionar un problema. Tengo registros en una hoja excel aproximadamente en 15,000 filas, y necesito insertar dos filas nuevas cada 40 filas. Es muy tedioso estar contando cuarenta filas y luego insertar dos nuevas.. mas aun porque tengo como 15 hojas excel y tengo que repetir la misma operación. Necesito una macros o una formula en VB. porfavor una ayuda. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

macro para insertar fila previo recorrido de celdas.

Publicado por JuanC (564 intervenciones) el 08/09/2017 00:52:31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Sub test()
Dim rng As Range, ws As Worksheet
Dim fil&, step%, n%
With Application
     .ScreenUpdating = False
     .EnableEvents = False
     .Calculation = xlCalculationManual
End With
 
step = 40
n = 2
 
For Each ws In ThisWorkbook.Sheets
    Set rng = ws.Range("a1")
    fil = step
 
begin:
    rng.Offset(fil).Resize(n).EntireRow.Insert
    fil = fil + step + n
    If rng.Offset(fil).Value <> "" Then GoTo begin
Next
 
With Application
     .ScreenUpdating = True
     .EnableEvents = True
     .Calculation = xlCalculationAutomatic
End With
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

macro para insertar fila previo recorrido de celdas.

Publicado por Manuel Venero (2 intervenciones) el 09/09/2017 19:00:57
Graciass... me quedo estupendo!!! créditos para este foro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar