macro que no me funciona

[alfredoecija]

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?

[Abraham Valencia]

Hola:

Creo que no es necesario repetir las preguntas:

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/consulta-macro-que-no-me-funciona-26162/

Y tampoco entiendo el porque crearse otro usuario, como parece ser.

Abraham