Ayuda

hola, Daniel !

En una columna de una hoja tengo los nombres de distintas invitados a una fiesta a su lado la mesa que deben ocupar.
Quiero hacer una hoja que represente cada mesa en la cual aparezcan los invitados teniendo la posibilidad de que
si los cambio de mesa en la primer hoja me varien en la hoja que correzponde a cad amesa...

te sugeriria usar los filtros avanzados por codigo para "actualizar" cuando hagas cambios de mesa (pero)...
sin conocer (+/- exactamente) los detalles del arreglo de tus datos va a resultar menos sencillo proponer "algo" que te sea util

si te animas a comentar hojas, rangos, titulos, tipo de datos, formulas, (...) ;)
saludos,
hector.

On 12 mayo, 20:16, "Daniel" wrote:

Hola
Una ayudita por favor
En una columna de una hoja tengo los nombres de distintas invitados a una
fiesta a su lado la mesa que deben ocupar .Quiero hacer una hoja que
represente cada mesa en la cual aparezcan los invitados teniendo la
posibilidad de que si los cambio de mesa en la primer hoja me varien en la
hoja que correzponde a cad amesa
Saludo

Hola Daniel.

Mientras sale una mejor propuesta, y si te entendí lo que necesitas,
podrías hacerlo usando estos códigos.
Suponiendo que la hoja1 contenga algo así, y que las hojas están
nombradas de la forma en que aparecen en la columna mesas.
Nombres Mesa
Abel Mesa5
Abimael Mesa3
Adalberto Mesa5
Adela Mesa6
Adonis Mesa1
Adriana Mesa4
Albeiro Mesa2
Alberto Mesa5
Alejandra Mesa6
Alfonso Mesa3

Sub mesas()

Dim m As String
Dim nom As String
Dim hoja As Worksheet


Worksheets("Hoja1").Activate
Range("A2").Activate

While ActiveCell.Offset(0, 0).Value <> ""
For Each hoja In ThisWorkbook.Worksheets
nom = ActiveCell.Value
m = ActiveCell.Offset(0, 1).Value
If hoja.Name = m Then
hoja.Activate
Range("A2").Activate
While ActiveCell.Offset(0, 0).Value <> ""
ActiveCell.Offset(1, 0).Activate
Wend
ActiveCell.Offset(0, 0).Value = nom
ActiveCell.Offset(1, 0).Activate
Worksheets("Hoja1").Activate
ActiveCell.Offset(1, 0).Activate
End If
Next hoja
Wend

End Sub

Este código te lleva cada persona a la mesa (hoja) que le corresponda.
Pero (siempre hay un pero) cada vez que cambies una persona de mesa,
tendrías que limpiar las mesas y volver a cargarlas. Este código te
limpia las mesas (no es muy práctico, pero funciona, igual puedes
optimizarlo).
Sub limpiar()

Dim hoja As Worksheet


Worksheets("Hoja1").Activate

For Each hoja In ThisWorkbook.Worksheets
If hoja.Name <> ActiveSheet.Name Then
hoja.Activate
Range("A2").Activate
While ActiveCell.Offset(0, 0).Value <> ""
ActiveCell.Offset(0, 0).Value = ""
ActiveCell.Offset(1, 0).Activate
Wend

End If
Next hoja
Worksheets("Hoja1").Activate

End Sub

Si algo comentas. Espero te sirva.

Suerte.

Boris