Foros


Inicio » Excel

Página: 1

Mensaje Autor

Arriba
24/Ago/05 19:38
AYUDA SOBRE MACRO

COMO HAGO UNA MACRO QUE PUEDA INSERTAR EL NUMERO DE FILAS QUE YO QUIERA PARA NO INSETAR FILA POR FILA

GRACIAS
 
Perfil

alavro04
Soldado

Mensajes: 8
Ingresó: Octubre 01, 2004
Ubicación:

No Conectado

Agregar como amigo

Arriba
25/Ago/05 14:02
Re: AYUDA SOBRE MACRO

Mi estimado Alavro04
Espero que la siguiente macro te ayude a resolver tu problema:


Sub Insertarfilas()
'
' Insertar el numero de filas dado por el usuario
' Macro grabada el 25/08/2005 por Ruben GG
Dim a As Integer
a = 0
a = InputBox("Cuantos renglones quieres insertar? ")
While a > 0
ActiveCell.Offset(1, 0).Range("a1").Select
Selection.EntireRow.Insert
a = a - 1
Wend

End Sub

Colocas el cursor donde quieres insertar las filas y le indicas el numero de filas a insertar
Listo!!! inserta el numero de filas que tecleaste.
Saludos.
 
Ruben Guardado "Cuando hables, procura que tus palabras sean mejores que el silencio." [img:a70cdfd4e2]http://www.gifmania.com.mx/banderas/America_Central/Mexico/mexico-clear.gif[/img:a70cdfd4e2]
 
Perfil

villas
Sargento Primero

Mensajes: 121
Ingresó: Abril 05, 2005
Ubicación:

No Conectado

Agregar como amigo

Arriba
25/Ago/05 14:25

Está excelente villas... pero tendrás uno parecido para insertar columnas??
 
Perfil

Silver
Sargento Primero

Mensajes: 128
Ingresó: Mayo 19, 2004
Ubicación:

No Conectado

Agregar como amigo

Arriba
25/Ago/05 15:13
Re: AYUDA SOBRE MACRO

Dame un chance y mañana me encargo de hacerla o si alguien mas la tiene pues adelante, tengo algo de trabajillo y nada mas lo saco y la hago.
Son sencillas.
Saludos.
 
Ruben Guardado "Cuando hables, procura que tus palabras sean mejores que el silencio." [img:a70cdfd4e2]http://www.gifmania.com.mx/banderas/America_Central/Mexico/mexico-clear.gif[/img:a70cdfd4e2]
 
Perfil

villas
Sargento Primero

Mensajes: 121
Ingresó: Abril 05, 2005
Ubicación:

No Conectado

Agregar como amigo

Arriba
25/Ago/05 15:59
Re: AYUDA SOBRE MACRO

Aqui esta la de columnas:


Sub Insertarcolumnas()
'
' Macro grabada el 25/08/2005 por Ruben GG
Dim a As Integer
a = 0
a = InputBox("Cuantas columnas quieres insertar? ")
While a > 0
Selection.Insert Shift:=xlToRight
a = a - 1
Wend

End Sub

Espero te sirva,

Saludos.
 
Ruben Guardado "Cuando hables, procura que tus palabras sean mejores que el silencio." [img:a70cdfd4e2]http://www.gifmania.com.mx/banderas/America_Central/Mexico/mexico-clear.gif[/img:a70cdfd4e2]
 
Perfil

villas
Sargento Primero

Mensajes: 121
Ingresó: Abril 05, 2005
Ubicación:

No Conectado

Agregar como amigo

Arriba
25/Ago/05 16:42

GRACIAS VILLAS ES EXACTAMENTO LO QUE NECESITABA

TENGO POCO TIEMPO QUE EMPECE A ENTRAR A LOS FOROS Y REALMENTE HE ENCONTRADO MUCHAS COSAS MUY INTERESANTES Y DE GRAN AYUDA.
ESPERO MAS ADELANTE PONER MI GRANITO DE ARENA Y CONTRIBUIR EN ALGO PARA EL FORO

GRACIAS Y NOS VEREMOS AQUI
 
Perfil

alavro04
Soldado

Mensajes: 8
Ingresó: Octubre 01, 2004
Ubicación:

No Conectado

Agregar como amigo

Arriba
26/Ago/05 9:29

Excelente villas, te agradezco la aportación, funciona muy bien.

Saludos.
Silver.
 
Perfil

Silver
Sargento Primero

Mensajes: 128
Ingresó: Mayo 19, 2004
Ubicación:

No Conectado

Agregar como amigo

Arriba
26/Ago/05 12:34

Esta bien tu aportación villas,

Saludos.
 
'Si he llegado a ver más lejos que otros, es porque me subí a hombros de gigantes ' Sir ISAAC NEWTON
 
Perfil

jleeglz
Capitán Primero

Mensajes: 704
Ingresó: Abril 05, 2005
Ubicación:

No Conectado

Agregar como amigo

Arriba
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» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2077
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo


Página: 1