Buenos días,

Espero que me podías ayudar. He intentado ver algo parecido pero no he encontrado ninguna solución.

Me han pasado una hoja de excel con formulas y macros, que no entiendo.

Era de un cocinero frances, y quien me la ha pasado ha cambiado algun nombre y ahora da error.

Segun me ha dicho mi jefe sirve para dar contolar el coste/ingtreso de la comida dándo entrada a la mercancia por albaranes.

No se si me podéis ayudar, y si necesitais ayuda em lo decís. La verdad es que yo estoy un poco perdido con la hoja...

Muchas gracias!

Un saludo

food cost.rarFetching info...

_____________________________________________________

Sustituye el código VBA de la hoja:

Inventario

Private Sub CommandButton1_Click()

    Application.DisplayAlerts = False

    Sheets("Inventario").Select

    Range("A1").Select

    ActiveSheet.PivotTables("PivotTable1").RefreshTable

    Range("A2").Select

    ActiveSheet.PivotTables("PivotTable1").RefreshTable

    Range("A4").Select

    ActiveSheet.PivotTables("PivotTable1").RefreshTable

    Application.DisplayAlerts = True

End Sub

[/CODE]

[b][u][color=#0000b3]Proveedor[/color][/u][/b]

[CODE]Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Sheets("Provedor").Select
Range("A4").Select
ActiveSheet.PivotTables("PivotTable1").RefreshTable
Columns("D:D").Select
Selection.Copy
Columns("E:E").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
Application.DisplayAlerts = True
End Sub
[/CODE]

____________________________________________________________

Tampoco me funciona.

Bueno, le cambio el código y en la pestaña inventario me hace un cambio de celdas, pero no me coge datos. Y

en proveedores me da un error de código.

Y es que realmente no se como funciona y para que son las siguientes pestañas.

Se q en la primera se rellena el pedido recibido..luego voy a la segunda y no se mas, y la tercera hoja tampoco.

Gracias por vuestra ayuda