Zuni Castro

Dante Amor respondió: Te faltó poner la función NUMERORECURSIVO, también debe ir en el mismo módulo. Function NUMERORECURSIVO(Numero As Long) As String Dim Unidades, Decenas, Centenas Dim Resultado As String '************************************************** ' Nombre de...

Dante Amor respondió: Algunas recomendaciones: 1. "Se puede ver que según el numero me forma los equipos al azar, claro que como involucra un aleatorio no puedo tocar mas nada porque los cambia." Para que NO se cambien los números, se debe realizar con una macro. 2. No...

Dante Amor respondió: Prueba lo siguiente: Sub reiniciar() Dim pwd As Variant pwd = InputBox("Captura el password", "INICIAR") If pwd = "" Then Exit Sub If pwd <> "abc" Then MsgBox "Password incorrecto" Exit Sub End If ' 'continuarcon tu código ' End Sub

Dante Amor respondió: Revisa el siguiente vídeo: https://youtu.be/hYr0AqPMoc8 Te invito a suscribirte a mi canal de YouTube y activar la alerta para que te lleguen los avisos de mis nuevos vídeos.

Dante Amor respondió: Te muestro en el siguiente vídeo 2 maneras de obtener el promedio de los artículos: Calcular el Promedio de Artículos - YouTube Te invito a Suscribirte a mi canal de YouTube para nuevos vídeos sobre Fórmulas de Excel y Macros.

Dante Amor respondió: [Ho la y bienvenido a todoexpertos! Veo que tienes datos en Tablas. Utiliza la siguiente fórmula =SI([@[Imp VENTA]]>BUSCARV([@Artículos];Tabla2;3;0);BUSCARV([@Artículos];Tabla2;2;0);0)*[@[Imp VENTA]] Cambia Tabla1 por el nombre de tu Tabla que...

Dante Amor respondió: En la hoja "RESUMEN" en la fila 1 supongo tienes los encabezados. Prueba lo siguiente. Copia la última fila de la hoja Juan y la pega en Resumen después de la última fila con datos, después Alberto y Darío. Si quieres otras hojas o cambiar los...

Dante Amor respondió: Suponiendo que tu "Tabla" se llama "Tabla1" y suponiendo también que tus datos en la "otra" hoja están de la siguiente manera: Utiliza la siguiente fórmula: SI(SUMAPRODUCTO((Tabla1[CODIGO]=A2)*(Tabla1[AÑO]=B2)*(Tabla1[PERIODO]<>""))=1;0;1) Intenta...

Dante Amor respondió: Te paso la macro actualizada: En la línea LCase("Indice"), LCase("Agua"), LCase("Luz"), pon los nombres de las hojas que no quieres incluir. Sub Crear_Indice() 'Por Dante Amor 'Declaramos variables Dim sh1 As Worksheet, sh2 As Worksheet Dim i As Long...

Dante Amor respondió: ¿En alguna parte de tu formulario estás utilizando la propiedad rowsource?

Dante Amor respondió: No se si debo ingresarles el código que tengo para el Botón editar o el botón Ingresar. Sí, por favor, pon todo tu código. O mejor aún, si puedes compartir tu archivo en google drive, comparte el enlace para cualquiera, copia el enlace y pega aquí....

Dante Amor respondió: Primero, en la hoja "Respuestas de formulario 1", en la columna K desde la fila 2 y hacia abajo escribe las palabras y el orden en que quieres los resultados. Nota: Es importante que las palabras estén escritas exactamente como está en la hoja....

Dante Amor respondió: [Ho la y bienvenido a todoexpertos! Puedes poner ejemplos, algo como esto: - Tienes un directorio: "C:\trabajo\" En ese directorio quieres crear la carpeta que está en la celda A1 - En la celda A1 tienes el dato "componentes" - En la celda B1 tienes...

Dante Amor respondió: Para entender lo que necesitas prueba con la siguiente macro y dime si es lo que quieres. La macro va a poner la fórmula en la celda E8, tal y como está en tu ejemplo. Sub ponervalor() Range("E8").Formula = "=(" & Range("E6").Value & ")" & "+ C8" End...

Dante Amor respondió: No entiendo bien qué tienes en la celda E4, por tu descripción tienes una fórmula BuscarV. ¿Cuál es tu idea? Que la fórmula en E4 permanezca siempre, pero si el equipo "MONITOR", tiene una anomalía, ¿qué quieres hacer? a) Escribir la anomalía en la...

Dante Amor respondió: Prueba lo siguiente: Private Sub CommandButton1_Click() Dim sh As Worksheet Dim max As Long, cont As Long Dim Nombre As String Set sh = ActiveSheet 'Crear palntilla de jugador 'Máximo de filas a considerar max = 1 'Recorrer las filas de la columna A...