Elsa Matilde

¿Podrías dejar una imagen para comprender tu consulta? ¿El formulario... está diseñado en la hoja o es un Userform? ¿Qué significa que no está en la 'programación'?

Te estoy devolviendo libro con las macros explicadas como para que ajustes al resto de los botones. Sdos!

Voy a comentar algunos detalles, porque al seleccionar la hoja como bien dice James sucederán 2 cosas: - Que probablemente la instrucción te de error. En algunas versiones Sheets(hoja). Range(rgo).Select da error y requiere que sean separadas:...

La siguiente macro crea una lista de nombres de sitios y sus links. Se coloca en el botón 'Guardar' del formulario: Private Sub CommandButton1_Click() 'x Elsamatilde 'se colocarán los datos en la primer celda libre de col A x = ActiveSheet.Range("A"...

A continuación la macro para el rango solicitado. Sub coincidencias_vs() 'coincide con nros ubicados en rango AA1:AZ1 'x Elsamatilde Dim n As Range Dim lookup Application.ScreenUpdating = False 'se recorre rango AA1:AZ1, limpiando resultados...

La macro siguiente pasa el contenido de un Listbox de 1 columna ubicado en un userform, a la celda E2. Dejaste pocas aclaraciones... tendrás que adaptarla a tu modelo o enviar más detalles de lo que necesitas. Private Sub ListBox1_Click() 'x...

1 - Para no mostrar las celdas que se van seleccionando (y se pierda de vista tu rango) se utiliza la instrucción Application.ScreenUpdating en False. Reemplaza la macro anterior del evento Initialize por esta otra. Private Sub UserForm_Initialize()...

- Entra al Editor (con teclas ALT y F11) y selecciona con doble clic el objeto ThisWorkbook (o Este Libro) - Allí copia estas instrucciones: Private Sub Workbook_Open() 'x Elsamatilde 'si es día 1 del mes se borra una celda If Day(Date) = 1 Then Call...

Fijate si no se te cambió el tipo de teclado: También tengo un equipo de DE y se me suele pasar al teclado alemán cambiando algunas teclas. De todos modos cuando algo del tipo 'teclas' falla en un libro hay que ir a otros archivos y comprobar si se...

Si vas a introducir el texto manualmente o pegándolo (Ctrl V), entonces la macro es la siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$15" And Target.Value = "Disparar un MsgBox" Then MsgBox "Texto esperado" End...