Marcial C. C.

Juan Carlos, con esta macro tienes tres intentos, si no se consigue, cierra el libro actual. Private Sub Workbook_Open() intentos = 1 Do While intentos < 4 clave1 = InputBox("Ingrese contraseña. Intento nº:" & intento) If clave1 <> "" Then Select...

Debes utilizar Y para enlazar varias condiciones, pon esto en C4 =SI(Y(A4=1;B4=1);"Abierto";"Cerrado") Si te ha valido la respuesta.

Supongo que lo que quieres es una validación de datos para un rango de celdas. 1º Selecciona el rango de celdas donde quieres la validación. 2º En la ficha Datos, dentro de Herramientas de Datos, está Validación de Datos 3º Selecciona Lista y escribe...

Te recomiendo que utilices una tabla dinámica que te dará esos resultados y muchos más en cuestión de segundos. Si nunca las has utilizado, en Internet tienes numerosos artículos y vídeos que te explican paso a paso cómo crearlas y utilizarlas. Te...

Pon esto en el evento de la hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por Marcial Castro' If Not Intersect(Target, Range("C1", "B1")) Is Nothing Then If Target.Value = "CENTRO" Then MsgBox ("Has escrito CENTRO") If...

Si lo que quieres es una línea de código que te haga lo mismo, sería: Sheets("Hoja2").[C10].Value=Sheets("Hoja1").[B1] Pon los nombres de tus hojas y listo. Si te ha valido la respuesta.

Antes de descargar el formulario, deberías de cerrar el puerto Rs232 con la instrucción: NETComm2.PortOpen = False Debería de funcionarte. Si te ha valido la respuesta.

El problema lo tienes en cómo está comparando la función Replace. Cambia vbTextCompare por vbBinaryCompare y te funcionará correctamente, pon: .Value = VBA.Replace(.Value, s(i), r(i), 1, -1, vbBinaryCompare) Para que sólo se ejecute en la hoja que...

Si tienes valores repetidos en el rango de búsqueda y le estás diciendo que quieres una coincidencia exacta (con el falso), te dará ese error. Si eliminas el falso, te dará la primera coincidencia que encuentre. Aquí tienes un ejemplo: Si te ha...

Para que sea más rápido, utiliza la forma abreviada de especificación de rangos: Sub contar_si_conjunto() MsgBox (WorksheetFunction.CountIfs( _ [A1:A99000], "Isabel", _ [B1:B99000], "J.Ramón", _ [C1:C99000], "Sofía", _ [D1:D99000], "Antón", _...