Dante Amor

¿Puedes poner la macro? ¿En qué línea se detiene la macro o cuál línea se pone de color azul? Revisa en el menú de VBA, Herramientas, Referencias, si alguna de las referencias activadas aparecen con la palabra "Falta", si es así, desactiva esa...

H o l a: Intenta utilizar un combobox pero de control activex. Este control tiene la propiedad Backcolor para poner color: También puedes ocupar las propiedades de Listfillrange para poner el rango de entrada; y la propiedad LinkedCell para vincular...

H o l a: Te recomiendo que pongas en una hoja cada "Registro". De esa forma podrías utilizar la misma rutina, solamente tienes que cambiar de hoja. Además existe otra desventaja, por ejemplo, en el registro de urgencias tienes de la fila 45 a la 48...

H o l a: Utiliza el siguiente formato en tu textbox: TextBox1 = Format(Range("K6"), "hh:mm:ss AM/PM") Cambia textbox1 por el nombre de tu textbox Cambia Range("K6") por el rango de celda que tiene la hora. Ahora, recuerda que en el textbox tendrás...

H o l a: Te anexo la macro actualizada: Private Sub CommandButton1_Click() 'Act.Por.Dante Amor If TextBox1.Value = "" Then Exit Sub 'si el texbox es vacío se sale ' Set r = Sheets("Hoja1").Range("I54") If r.Value = "" Or r.Value = 0 Then r.Value =...

H o l a: Podrías explicarlo con ejemplos, de preferencia si puedes poner imágenes de lo que tienes y de lo que esperas como resultado. O envíame tu archivo y me explicas paso a paso qué es lo que quieres lograr, utiliza en la hoja ejemplos y me...

H o l a: ¿Qué tienes en la columna "F"? ¿Tienes la palabra "Avisar"? ¿O tienes una fecha? ¿Puedes poner un ejemplo de una fecha que caduca? Cómo sabes que una fecha caduca en 60 días, puedes explicarlo con ejemplos, de preferencia pon una imagen.

H o l a: Te anexo la macro actualizada: Sub BorrarCeldas() 'Act.Por.Dante Amor For Each h In Worksheets h.Range("C11:Z11,AE11,AF11:AG11,AI11").ClearContents h.Range("F13:G24, J13:K24, O13:P24, T13:U24, Y13:Z24, AF13:AG24, AI13:AI24").ClearContents...

Prueba así: Sub Send_Range() Row = ActiveCell.Row Customer = Row Custname = Range("O" & Customer & "") Cmail = Range("N" & Customer & "") CCmail = Range("O8") Fromm = Range("N10") ActiveSheet.Range("P23").CurrentRegion.Select...

H o l a: No entendí muy bien lo que tienes en la macro. Mejor explícame qué necesitas. Entiendo que quieres buscar un dato en una base datos. Podrías poner una imagen de tu hoja del libro1 Y otra imagen de tu hoja donde tienes tu base de datos....