Cadipas spain

Para poder ayudarte mejor, neesitaria conocer como es la tabla, si dicha tabla hya que copiarla en la misma hoja o hay que crear hojas distintas, para cada piso, etc... Lo mejor sería ver un fichero de ejemplo, en el que tengas ya resuelto la tabla...

Si no te he entendido mal, podría ser algo así: Por ejemplo queremos numerar la columna A de tal forma que si pongo un dato en la columna B, me numera la columna A. En la celda A1 pon =SI(B1<>"";1;"") en la celda A2 pon...

Ya lo tengo bastante hilado, pero dame algo más de tiempo y suerte...

Una posible solución si no he entendido mal, podría ser: '------------------------ CODIGO --------------------------- Private Sub CommandButton1_Click() Do While Len(e32) <> 4 e32 = Application.InputBox("Teclea el nº de un año", "Seleccionar Año", ,...

Este tipo de proyectos son los que me gustan, nuevos retos que me hagan pensar. Ya tengo más o menos definido un fichero con ese formato. En la columna A tendrías que poner el la primera fecha del año y arrastrar hasta 31-diciembre y se te colorean...

Prueba esto: Range("AN3").Select Range(Selection, Selection.End(xlDown)).Sort Key1:=Range("An3"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Si necesitas más aclaraciones, no lo dudes. Si has...

Yo he probado eso y a mi me funciona, yo he interpretado que como son dos textbox, bien sean palabras o números, estos estarán separados por un espacio, de no ser así deberías de quitar & " ", espero que me entiendas. Ejemplo en el textbox1 pongo...

Vamos a intentar ayudarte, pero para ello sería interesante que si ya tienes un fichero más o menos creado me lo envíes o me des las pautas de como es dicho fichero. De tener que partir de un fichero nuevo, necesitaría saber cantidad de empleados,...

Cambialo por este otro código, de tal manera que si el textbox esta vacío no realiza nada. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 <> "" Then If WorksheetFunction.CountIf(Sheets("Hoja2").[A:A], TextBox1) = 0 Then...

Lo intentare, pero mejor sería ver un fichero tipo para poder hablar más claro. Si quieres posteame tu dirección y yo te envío un email para el intercambio de fichero. Si no quieres dar el email, lo podemos intentar porla web, pero nos puede costar...