Buenas tardes, tengo un libro con pedidos( cada pedido es una hoja) todos exactamente igual con el mismo formato , y quiero llevar una relacion de estos pedidos ( para eso la macro) , esta hoja la llamo resumen y siempre es la ultima. he
creado esta macro con ayuda, pero no me funciona. Me pone que no se puede ejecutar codigo en modo interrupcion. ¿ que es eso? Ademas solo me saca 5 registros
Sub alfredo()
Application.ScreenUpdating = False
destino = ActiveSheet.Name
primvac = 100
For Each pestaña In Worksheets
If pestaña.Name = destino Then GoTo otra:
pestaña.Activate
pedido = Range("q3").Value
fecha = Range("q4").Value
cantidad = Range("p29").Value
importe = Range("q29").Value
servicio = Range("q5").Value
cliente = Range("c8").Value
Sheets(destino).Range("a" & primvac) = pedido
Sheets(destino).Range("b" & primvac) = fecha
Sheets(destino).Range("c" & primvac) = cantidad
Sheets(destino).Range("d" & primvac) = importe
Sheets(destino).Range("e" & primvac) = servicio
Sheets(destino).Range("f" & primvac) = cliente
Range("f" & primvac).Select
Selection.NumberFormat = "#,##0.00 $"
primvac = primvac + 1
otra:
Next pestaña
Sheets(destino).Activate
Range("a1").Select
Application.ScreenUpdating = True
End Sub
- - - - - Mensaje combinado - - - - -
Tengo un segundo problema, al gaurdar el archivo,no me deja guardar el proyecto de VBy me dice elegir un archivo habilitado para macros. ¿ como se habilitan los archivos para macros?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes, tengo un libro con pedidos( cada pedido es una hoja) todos exactamente igual con el mismo formato , y quiero llevar una relacion de estos pedidos ( para eso la macro) , esta hoja la llamo resumen y siempre es la ultima. he
creado esta macro con ayuda, pero no me funciona. Me pone que no se puede ejecutar codigo en modo interrupcion. ¿ que es eso? Ademas solo me saca 5 registros
Sub alfredo()
Application.ScreenUpdating = False
destino = ActiveSheet.Name
primvac = 100
For Each pestaña In Worksheets
If pestaña.Name = destino Then GoTo otra:
pestaña.Activate
pedido = Range("q3").Value
fecha = Range("q4").Value
cantidad = Range("p29").Value
importe = Range("q29").Value
servicio = Range("q5").Value
cliente = Range("c8").Value
Sheets(destino).Range("a" & primvac) = pedido
Sheets(destino).Range("b" & primvac) = fecha
Sheets(destino).Range("c" & primvac) = cantidad
Sheets(destino).Range("d" & primvac) = importe
Sheets(destino).Range("e" & primvac) = servicio
Sheets(destino).Range("f" & primvac) = cliente
Range("f" & primvac).Select
Selection.NumberFormat = "#,##0.00 $"
primvac = primvac + 1
otra:
Next pestaña
Sheets(destino).Activate
Range("a1").Select
Application.ScreenUpdating = True
End Sub
- - - - - Mensaje combinado - - - - -
Tengo un segundo problema, al gaurdar el archivo,no me deja guardar el proyecto de VBy me dice elegir un archivo habilitado para macros. ¿ como se habilitan los archivos para macros?