Elsa Matilde

En libros compartidos no está disponible la opción 'Combinar celdas'... paso previo a lo de 'centrar en la selección'. Desde el botón de Ayuda de Excel, ingresá como tema 'Compartir libros' y allí verás la lista completa de las cosas que en un libro...

Confirmemos los detalles antes de desarrollar la macro: Si se selecciona Apartado... se copia el valor de AM en AN ...(*) Si se selecciona Disponible... se borra AN Si se selecciona Vendido... se copia el valor de AM en AN Si se selecciona Bloqueado...

Descargá la demo de mi Guía Temática N° 6 (Bucles). Allí encontrarás 3 ejemplos y seguramente alguno te servirá. Si luego necesitas ayuda para adaptarlo a tu 'modelo', escribime nuevamente ampliando tu consulta (qué tipo de formato, si es formato...

En la demo de mi Guía Temática N° 2 tenés el ejemplo completo. Debes agregar una línea en el evento donde se cambia los valores del primer desplegable, por ej: Private Sub ComboBox1_Click() 'este es el 1er desplegable ComboBox2.ListIndex = -1 'este...

En un rato te la preparo, solo confirma x favor si solo hay que copiar las celdas de col A o toda la fila.

Te preparé una macro que se ejecuta cada vez que ingresas un valor en A1, devolviendo la nueva lista en col F. En el Editor de macros, seleccioná con doble clic el objeto HOJA1 y allí copiá esto: Private Sub Worksheet_Change(ByVal Target As Range) 'x...

En la sección Guías de mi sitio, descargá la demo de la guía n° 2 que tiene desarrollado un ejemplo para lo que necesitas. En tu caso solo utilizá los 2 primeros controles, no parece que te hiciera falta el 3ro. Cuando lo tengas todo armado, si...

Si la hora debe aparecer al introducir datos en TextBox1, entonces la macro debe ser colocada en el evento Change (o algún otro) pero del TEXTBOX1. Y para mostrar datos sin posibilidad de realizar cambios, utilizá un control Label en lugar del...

Probalo de esta manera: Private Sub CommandButton4_Click() 'x Elsamatilde If Sheets("Sheet1").Range("A1") = "" Then Sheets("Sheet1").Range("A1") = 1 Else Sheets("Sheet1").Range("A1") = Sheets("Sheet1").Range("A1") +1 End If Es decir, que si la celda...

Entrá a la Ayuda Excel con el tema: Compartir libros (buscate alguna versión en español, sino te copio el tema completo en un doc que podes solicitarlo a mi correo). Allí aparece una lista completa bajo el título:En los libros compartidos no se...