Necesito una macro para insertar tantas filas -1 lo indique una columna.
Buenas tardes.
1- Necesito agregar tantas filas lo indique la columna "G" -1 fila, para dar con el número deseado de filas.
2- En las filas insertadas me copie los datos de las columnas "D", "E" y "F" no así en "B" y "C".
3- En la columna A complete correlativamente desde el valor de A2 hasta el final, en este caso sería hasta el número 10.
4- Se podrá ejecutar automáticamente luego de presionar un botón??
Observar que la caja 6 contiene dos códigos lo que deja celdas en blanco.
A B C D E F G
1 Dde - Hasta Código Cant. Mts3 Cajas
2 1 - 2 71093602 200 0.096 2
3 3 - 3 71093503 100 0.096 1
4 4 - 5 71093503 150 0.096 2
5 6 - 6 71093501 100 0.096 1
6 71093502 100
7 7 - 10 71093502 120 0.096 4
MUCHAS GRACIAS!!
1 respuesta
Está bien tu ejemplo, pero podrías poner cómo quedaría el resultado que esperas. Utiliza el mismo ejemplo. ¿Y cómo saber que 71093501 y 71093502 son de la caja 6? Además en tu ejemplo el 71093502 también está en las cajas 7-¿10? Si vas a corregir algún dato envíame el ejemplo de cómo están y cómo los quieres.
Espero tus comentarios
Saludos. DAM
Muchas gracias por la pronta respuesta, esta macro es para desglosar un detalle de mercadería (packing List), la columna A indica desde que caja hasta que caja contiene el código descrito en la columna D en el caso de la caja 6 al tener la celda A6 sin valor alguno se entiende que el código de la celda D6 corresponde a la misma caja. Y con respecto al código 71093502 indica que está en la caja 6 con 100 unidades y de la 7 a la 10 con 120 unidades. Así querría yo que quede luego de la macro.
A B C D E F G
1 Dde - Hasta Código Cant. Mts3 Cajas
2 1 - 2 71093602 200 0.096 2
3 2 71093602 200 0.096
4 3 - 3 71093503 100 0.096 1
5 4 - 5 71093503 150 0.096 2
6 5 71093503 150 0.096
7 6 - 6 71093501 100 0.096 1
8 71093502 100
9 7 - 10 71093502 120 0.096 4
10 8 71093502 120 0.096
11 9 71093502 120 0.096
12 10 71093502 120 0.096
Espero haber sido claro. Muchas gracias!!
Saludos.
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: cajas
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub cajas()
'Por.DAM
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets.Add
h1.Select
h1.Rows(1).Copy h2.Rows(1)
k = 2
For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
If Cells(i, "A") = "" Then
h2.Cells(k, "D") = Cells(i, "D")
h2.Cells(k, "E") = Cells(i, "E")
k = k + 1
Else
For j = 1 To Cells(i, "G")
If j = 1 Then
m = Cells(i, "A")
h2.Cells(k, "B") = Cells(i, "B")
h2.Cells(k, "C") = Cells(i, "C")
h2.Cells(k, "G") = Cells(i, "G")
Else
m = m + 1
End If
h2.Cells(k, "A") = m
h2.Cells(k, "D") = Cells(i, "D")
h2.Cells(k, "E") = Cells(i, "E")
h2.Cells(k, "F") = Cells(i, "F")
k = k + 1
Next
End If
Next
h2.Cells.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues
Range("A1").Select
Application.DisplayAlerts = False
h2.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Proceso de insertar filas Terminado" & vbInformation
End SubSaludos.DAM
Si es lo que necesitas.
