Foro Excel

Hola amigos, necesito ayuda para completar las macros de las hojas Clientes y Articulos.

Lo que necesito es que al abrir estas hojas quede seleccionada la última fila vacia. espero que no sea muy dificil para ustedes.

Gracias por vuestra colaboración.

Un saludo muy cordial para todos.

prueba con esto si te sirve...
Private Sub Worksheet_Activate()
NEXTROW = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(NEXTROW, 1).Select
End Sub

yimysys. Muchisimas GRACIAS por su rapida respuesta, funciono perfectamente.

Abusando de su paciencia y conocimentos, le pido un segundo favor.
Quiro ocultar las hojas Clientes y artí­culos (formato - hojas - ocultar), hasta aquí­ todo bien.
Pero lo que realmente pretendo, es que no puedan abrir las hojas mencionadas otras personas con el fin que no puedan hacer modificaciones ¿Hay posibilidad de hacer una macro para que solo puedan abrir una u otra hoja según las necesidades?.

Reciba un cordial saludo.

Perdonad la intromision.
Puedes deshabilitar el menu FORMATO - HOJA utilizando esto:

Private Sub Workbook_Open()

Application.CommandBars("Worksheet Menu Bar").Controls(5).Controls(4).Enabled = False

end sub

SALU2

IWOLLS. Aplique tu macro y la cosa salio mal, sa han deshabilitado los menus FOMATO y INSERTAR. he borrado la macro y no los recupero, no se habilitan, han quedado inoperativos, probe cambiando "False" por "True y tampoco funciona.

Que puedo hacer para recuperar los menu FOMATO y INSERTAR y poder utilizarlos.

Como dicen en mi pueblo "Virgencita que me como estaba".

Un saludo.

hace esto, en el menu que te queda ubicate en la esquina izquierda del menu hasta que aparezca la cruz y haciendo clic sin soltar llevala al medio de la hoja, en resumen hace que el menu flote. una vez que esta flotando a la derecha del menu se encuentra una flecha en forma de triangulo apuntando hacia abajo, clic ahi agregar o quitar botones|barra de menus de la hoja| y los demas es pan comido.

pone este codigo en las hojas que quieras que se oculten, si te fijas esta en el evento activate, si tu hoja tiene otro nombre pone el nombre de la hoja...
Private Sub Worksheet_Activate()
If Sheets("hoja1").Visible = True Then
Sheets("hoja1").Visible = False
End If
End Sub

Para restaurar las barras de herramientas usa lo siguiente:
Application.CommandBars("Worksheet Menu Bar").Reset
Application.CommandBars("Worksheet Menu Bar").Enabled = True

No entiendo porque te ha hecho eso, yo lo utilizo habitualmente y no tengo ningun problema. LO SIENTO!!




salu2