Abraham Valencia

Sé que el mensaje no está dirigido a mí pero, al ser un foro público y más aún al no tener respuesta, te propongo una alternativa: Una UDF. Dicha UDF no solo actúa en matrices de 3x3 sino que en cualquiera que desees siempre y cuando tenga el mismo...

Una UDF te sería útil. En tu editor de VBA (VBE) pega esto en un módulo "Standard": Function Contarfondo(Rango1 As Range, Rango2 As Range) As Double Application.Volatile True Dim Celda As Range Dim dblcontando# dblcontando# = 0 For Each Celda In...

¿Estas usando un evento de la hoja? ¿Quizá el evento "SelectionChange"? ¿Algún detalle más que nos pueda ayudar a ayudarte? Abraham Valencia

En tu "CommandButton2" si bien descargas/cierras un "UserForm" activo, a su vez cargas/activas el "UserForm" llamado "frm_Menu" ¿no será qué vuelves a cargar el que has cerrado entrando al ciclo que mencionas? Comenta Abraham Valencia

Pues te doy la razón en algo... no se entendió (casi) nada, jajaja. Pero bueno, dejando la broma de lado, explícalo así: - Coloca una muestra de al menos tres filas de tu archivo (base de datos) señalando bien que hay en cada columna. - Trata de...

Me quedan algunas dudas, sobre todo el uso de varias personas que mencionas ¿el archivo está en red, es decir, en una carpeta compartida con la opción "libro compartido" activada? ¿O cómo es que varias personas acceden a él? Porque también mencionas...

Una forma es usando el evento "Change" de tu hoja. Ojo, estoy suponiendo que estás usando un botón ActiveX: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Value = "Activar" Then...

No das detalles pero, así a grandes rasgos, al parecer te podría ser útil usar "Find" o "Application.WorkSheetFunction.VlookUp" pero sería más fácil ayudarte sobre tus avances. Abraham Valencia

Solo para tenerlo claro ¿lo qué quieres es que eso actúe sobre cualquier libro/archivo que abras con tu Excel? ¿Es así? Abraham Valencia

Me generó alguna duda tu uso de "IsNull" pero igual te dejo un ejemplo de como enumerar solo las filas con celdas visibles: Sub Numerar() Dim Celda As Range Dim UltimaFila As Long, Valor As Long Let UltimaFila = 15 Let Valor = 1 For Each Celda In...