08/Sep/05 19:07
Re: AYUDA SOBRE MACRO
Solo quiero agragar algo a esta ayuda, muy buena de Villas, Gracias
con esta macro podrán agregar las filas según lo defina el usuario, además de que copiará las formulas que esten en ellas, pruebenla y espero les sea de utilidad.
[code:1:ce97903839]Sub InsertRowsAndFillFormulas()
Dim vRows As Integer
ActiveCell.EntireRow.Select
If vRows <> 1 Then
vRows = Application.InputBox(prompt:= _
"Cuantas filas quiere añadir?", Title:="Agregar Filas", _
Default:=1, Type:=1)
If vRows = False Then Exit Sub
End If
Dim sht As Worksheet, shts() As String, i As Integer
ReDim shts(1 To Worksheets.Application.ActiveWorkbook. _
Windows(1).SelectedSheets.Count)
i = 0
For Each sht In _
Application.ActiveWorkbook.Windows(1).SelectedSheets
Sheets(sht.Name).Select
i = i + 1
shts(i) = sht.Name
Selection.Resize(rowsize:=2).Rows(2).EntireRow. _
Resize(rowsize:=vRows).Insert Shift:=xlDown
Selection.AutoFill Selection.Resize( _
rowsize:=vRows + 1), xlFillDefault
On Error Resume Next
Selection.Offset(1).Resize(vRows).EntireRow. _
SpecialCells(xlConstants).ClearContents
Next sht
Worksheets(shts).Select
End Sub[/code:1:ce97903839]
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═