Elsa Matilde

Estuve leyendo el desarrollo de esta consulta y noto que falta esto que mencionas: '... Lo que quiero es que en la pantalla del formulario saliera el numero de la celda activa ... Entonces, en las primeras macros enviadas por James falta mostrar el...

Tendrías 2 opciones dependiendo de cómo es la numeración o en todo caso la fecha - Tal como lo tienes ahora, eliminando el anterior y guardando el nuevo al inicio. Aquí necesitas una macro para ordenar por nro o por fecha para que se coloque en su...

- 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...

Sí es posible, solo que para desarrollar la macro se necesitan referencias (nombres de hoja, celdas, etc). ¿Hay un libro por cada factura? Entonces debes enviarme uno de ellos para tomarlo como muestra. Los correos aparecen en mi sitio que dejo al...

Comprendido. En este caso entonces no se coloreará el rango original.

No hay motivo aparentemente para que esto suceda. Tendrás que enviarme tu libro (mis correos aparecen en sitio que dejo al pie... cibersoft. Arg de gmail).

Podés tomar uno de los correos que aparecen en la barra superior de mi sitio. Sdos!

Tenés que ubicar las columnas del rango a buscar (*) y luego estas serían las instrucciones para la función. En mi ejemplo el dato a buscar lo coloqué en A1 (ajusta a tu criterio y necesidad). rgo = Range(Cells(3, col1), Cells(20, col2)).Address...