fjulianes

Karisma : Desde Excel, tipeá Alt+F11 para ingresar a Visual Basic. Insertá un módulo (con menu "Insertar/Modulo") . Y copiá allí el siguiente código: Sub auto_open() Dim mensaje As String Dim DiaSemana DiaSemana = WeekDay(Now, vbMonday) Select Case...

Athenas : ¿Me podrías dar más datos de tu necesidad? ¿Dónde ingresarías el valor y donde querrías obtener la respuesta? ¿Sabés programar Visual Basic? ¿O querés ingresar el dato en una celda de OTRA hoja de Excel y obtener allí la respuesta?

Si grabas una macro, mientras le imponés a una celda el formato condicional, resulta algo como esto: Sub MacroGrabadaDeFormatoCondicional() Range("D2").Select Application.CutCopyMode = False Selection.FormatConditions.Delete...

Estas usando: For each c in range("a:a") Que selecciona toda la columna A (65536 filas). Esa es la causa de la lentitud. Agregá la linea : selection.resize(selection.rows.count,1).select despues de : selection.currentregion.select Esto hace que tome...

Supongo que existe en la hoja activa un rango de celdas que existen a partir de A1. Algunas de ellas tienen color rojo (3) (tercero 3 de la primer columna en mi paleta (Verificar con Icono de "Color de relleno")). En la rutina de Prueba defino el...

En lugar de usar los valores de las celdas d7 y f7, usa las filas y columnas de estas celdas. Con esos datos y el de la celda activa, podes reemplazar el 7, -2 y 3, por las restas correspondientes. Acá va la solución : Dim var1, var2 Dim f1, f2, c1,...