Dante Amor

Ya lo revisé, falta el objeto del libro Public RunWhen As Double ' Sub Parpadear() ThisWorkbook.Worksheets("NEW STYLES").Unprotect With ThisWorkbook.Worksheets("NEW STYLES").Range("B2").Font If .ColorIndex = 48 Then .ColorIndex = 2 Else .ColorIndex =...

Te anexo la macro Sub Presentar_Mensaje() fila = InputBox("Escribe el número de fila") If fila = "" Or Not IsNumeric(fila) Then MsgBox "Proceso cancelado" Exit Sub End If Set dam = CreateObject("Outlook.Application").CreateItem(0) dam.Subject =...

¿Pero los quieres en la misma hoja o en otra hoja? ¿En qué columnas está cada dato?

Podrías poner un ejemplo de tu hoja, para ver en qué filas y en qué columnas tienes los productos y los precios. Si capturas un producto_x, se busca en la hoja, quieres tomar el precio correspondiente al producto_x, pero en dónde lo quieres poner,...

Te anexo el código, tal vez falta afinar algo en los colores, pero prueba el funcionamiento de las operaciones y me comentas. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Row < 3 Then...

Para preparar la macro, puedes poner por cada planta qué columnas van a quedar visibles. Si tú quieres se puede hacer que las columnas, además de ocultas también queden protegidas, esto para evitar que las muestren y las modifiquen. Si las quieres...

Ya revisé ambas macros y están bien. Pero si ejecutas la macro "noparpadear", sin haber ejecutado previamente la macro "Parpadear", entonces te aparece el error: 1004 en tiempo de ejecución. Podrías solucionarlo si pones la sentencia On Error Resume...

Utiliza la siguiente fórmula matricial =SI.ERROR(INDICE(Hoja1!P$1:P$50;K.ESIMO.MENOR(SI(Hoja1!$P$5:$P$50=7;FILA());FILA()-4));"") Para aceptar la fórmula debes presionar las tres teclas Shift + Control + Enter También te anexo la macro, el resultado...

La captura la estás haciendo con un userform o estás capturando en una hoja. Quieres que la validación sea con una macro. Envíame tu archivo para revisarlo y me explicas dónde capturas, en dónde está el código y su existencia. Mi correo...

Pon la siguiente macro en un módulo Sub Buscar_Valor() Set valor = Range("D2") If valor.Value = "" Then MsgBox "Introducir un dato en la celda" valor.Select Exit Sub End If Set b = Columns("A").Find(valor.Value, lookat:=xlWhole) If Not b Is Nothing...