UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO insertar mas de dos filas el 17/04/18, 08:22 pm

edwinjo


Buenas tardes equipo,
Solicitándoles de su ayuda, para poder modificar el siguiente código, de tal forma que con un InputBox, pueda elegir el rango, por ejemplo b2, y con otro el numero de filas a insertar (con este código inserto filas cada vez que cambia el valor). Por su fina ayuda muchas gracias
Sub Comprobar3()
Dim valor As Double
Range("a1").Select
valor = ActiveCell.Value
Do While ActiveCell.Offset(1, 0).Value <> ""
Do While ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Loop
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
valor = ActiveCell.Value
Loop
End Sub
Archivos
insertar filas.xls
No tienes los permisos para descargar los archivos.
(47 KB)



Última edición por edwinjo el 17/04/18, 08:23 pm, editado 1 vez (Razón : Anexo archivo)

2RESUELTO Re: insertar mas de dos filas el 18/04/18, 12:53 am

Igtelo

avatar
Hola Edwin.

Sub Insertar()

w = InputBox("Dame número de fila")  'Escribir número de fila (NO la referencia)
c = InputBox("Dame cantidad de filas") 'Escribir también número
Rows(w & ":" & w + c - 1).EntireRow.Insert

End Sub


Saludos
Ignacio Téllez

3RESUELTO Adaptar el 18/04/18, 09:43 am

edwinjo


Buenos días Igtelo,
Gracias por tu apoyo, no pude adaptarlo al código, es que en el archivo que envié lo que hace es que cada vez que cambia un dato, me inserta una fila, pero yo lo que quiero es que inserte mas de una dependiendo el archivo que tenga y escoger la columna donde debo hacer, el el macro que me envías, cumple los requisitos de escoger  fila y cantidadad de filas, pero no donde cambia el dato ejemplo
1245
1245
1245
1258
1258
1258
1265
1265
1265
Tengo una lista de mas de 1000 datos y quiero insertale 3 ó 4 filas despues que cambia el dato asi
1245
1245
1245
inserta de 1 a tres espacios segun se requiera
1245
1245
1245
inserta de 1 a tres espacios segun se requiera
y asi sucesivamente en toda la columna, con el codigo que tengo solo inserta 1 y fijo en la columna 1
De anteman gracias por tu fina ayuda 

edwinjo

4RESUELTO Re: insertar mas de dos filas el 18/04/18, 12:39 pm

Igtelo

avatar
Hola de nuevo Edwin.

Dejo aquí el código, ya está en tu archivo.

Código:
Sub Insertar()
Dim valor As Double, inicio As String, w As Long

Application.ScreenUpdating = False
inicio = InputBox("Celda de inicio")
w = InputBox("Cantidad de filas")

Range(inicio).Select
valor = ActiveCell.Value
Do While ActiveCell.Offset(1, 0).Value <> ""
Do While ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Loop
Rows(ActiveCell.Row & ":" & ActiveCell.Row + w - 1).EntireRow.Insert
ActiveCell.End(xlDown).Select
valor = ActiveCell.Value
Loop
Application.ScreenUpdating = True
End Sub

Pregunta: ¿No sería más fácil agregar los datos que vayas metiendo al final del último dato y después ordenar? Para mi es más práctico que estar insertando y andar buscando...

Saludos
Ignacio Téllez
Archivos
Edwinjo-insertar filas.xls
No tienes los permisos para descargar los archivos.
(73 KB)

5RESUELTO Buenisimo el 18/04/18, 01:16 pm

edwinjo


Gracias Igtelo,
Funciona excelente.
La razón de hacerlo así es porque de una vez me separa los bloques y en esos espacio inserto otra información, antes lo hacia manual cada bloque le iba insertando manualmente, pero a veces me confundía, luego aplique insertar una fila y las otras manualmente, ahora con tu ayuda me he ahorrado mucho trabajo.
Gracia, 
por tu ayuda
edwinjo

6RESUELTO Consulta el 18/04/18, 02:05 pm

edwinjo


Buenos días,
Disculpas porque ya lo había dado por resuelto, el macro me funciono bien pero cuando ya lo pegue en el modulo del archivo completo me da el siguiente error: Se ha producido el error "13" en en tiempo de ejecución, si le doy finalizar lo trabaja, si le doy depurar, me marca en amarillo
valor = ActiveCell.Value
y otras veces
Como puedo corregirlo

edwinjo

7RESUELTO Re: insertar mas de dos filas el 18/04/18, 09:10 pm

Igtelo

avatar
Edwin.

Sin tu archivo no se por qué . Quita la definición de variables (los Dim).
Cada vez que una macro te de error, entra a la "ayuda" que brinda el fallo,así irás aprendiendo el por qué y posibles soluciones.


Saludos
Ignacio Téllez

8RESUELTO Gracias el 19/04/18, 09:34 am

edwinjo


Gracias Igtelo,
A si lo haré
edwinjo

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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