jues

Buenos días amigos espero estén bien Actualmente el Label92 me muestra el ratio que tardo en solventar un problema, sin embargo una vez que cierro un reporte y se guardan los datos el Label permanece con la información anterior y no se actualiza simultáneamente como si ocurre en el Listbox1, en concreto necesito que el Label92 se actualice de forma automática y simultánea una vez se guarden los datos RCI PRUEBA.xlsm

Saludos @JSDJSD espero este bien Tengo un caso similar al que le plantearon en ta pregunta: En concreto seria posible que al escoger cualquiera de los códigos alfanuméricos que se muestran en el ComboBox1 automaticamebte se efectue la búsqueda y en el ListBox1 se muestren exclusivamente los datos que correspondan con dicho código..? Mucho le sabre agradecer la ayuda que me pueda dar RCI PRUEBA.xlsm

Exelente funciona tal cual necesito

Saludos amigos espero estén bien En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Private Sub CommandButton3_Click() If Hoja58.Range("B5").Value < 9999 Then Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1 Else Hoja58.Range("B5").Value = 1 End If If Hoja59.Range("B5").Value < 9999 Then Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1 Else Hoja59.Range("B5").Value = 1 End If End Sub El código se genera normalmente sin embargo no se copia inmediatamente en las Celdas “B5” sino que aparece en las Celdas “B6” mientras que las Celdas “B5” siempre permanecen en blanco, actualmente el código consta de tres letras y cuatro dígitos (RCI-0000) pero me interesa poderle concatenar el mes y año en formato mm-yy para que el código finalmente quede expresado de la siguiente forma RCI-0000-00-00 Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm

Saludos amigos espero estén bien En la actualidad los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se aplique desde la Fila 5 en adelante. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm

Saludos amigos espero estén bien En la actualidad utilizo la siguiente macro para que la fecha aparezca en el Textbox2: Private Sub UserForm_activate() Me.TextBox2.Value = VBA.Date End Sub Sin embargo, una vez guardo los datos la fecha cambia de formato y se guarda en formato mm/dd/yyyy en vez de dd/mm/yyyy y este cambio de fecha me distorsiona los resultados de las fórmulas en las Columnas J en las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm

SUMAR.docx

Buenos días @JSDJSD espero estes bien Utilizando la información proveniente de los dos posts anteriores en los que usted me dio un excelente soporte: Me guie para intentar configurar las siguientes macros: Sub VerificarTextBoxes() Dim txtBoxes As Variant Dim contador As Integer Dim sextoTextBox As Double Dim septimoTextBox As Double Dim i As Integer txtBoxes = Array(frmvtl.TextBox16.Value, frmvtl.TextBox17.Value, frmvtl.TextBox18.Value, frmvtl.TextBox19.Value, _ frmvtl.TextBox20.Value, frmvtl.TextBox21.Value, frmvtl.TextBox22.Value) contador = 0 sextoTextBox = 0 septimoTextBox = 0 ' Contar TextBoxes llenos For i = LBound(txtBoxes) To UBound(txtBoxes) If txtBoxes(i) <> "" Then contador = contador + 1 If contador = 6 Then sextoTextBox = Val(txtBoxes(i)) ElseIf contador = 7 Then septimoTextBox = Val(txtBoxes(i)) End If End If Next i ' Sumar al TextBox26 si hay 6 o 7 TextBox llenos If contador >= 6 Then Dim total As Double total = sextoTextBox + septimoTextBox frmvtl.TextBox26.Value = total End If End Sub Sub ColorearTextBox(TxtBox As MSForms.TextBox, CboBox As MSForms.comboBox) 'Colorear Texbox 16 al 20 With TxtBox Select Case .Value Case "", Empty: .BackColor = RGB(255, 255, 255) Case Is <= CInt(CboBox): .BackColor = RGB(255, 255, 255) Case Is > CInt(CboBox): .BackColor = RGB(255, 0, 0) End Select End With End Sub Sub ColorearTextBox2(TxtBox As MSForms.TextBox, CboBox As MSForms.comboBox) 'Colorear Texbox 21 y 22 With TxtBox Select Case .Value Case "", Empty: .BackColor = RGB(255, 255, 255) Case Is <> "": .BackColor = RGB(255, 0, 0) End Select End With End Sub Con las cuales intento darle funcionalidad al siguiente argumento: Sí y solo si hay 6 o 7 TextBox llenos (TextBox<>””) de Lunes a Domingo (TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22) entonces: · El(los) valor(es) del 6to TextBox o 7mo TextBox lleno(s) (TextBox<>””) o ambos inclusive se deberá(n) sumar automáticamente al TextBox26. · El color del 6to TextBox o 7mo TextBox o ambos inclusive deberá(n) ser automáticamente BackColor = RGB(255, 0, 0) si esta(n) lleno(s) (TextBox<>””) y si esta(n) vacío(s) (TextBox = ””) deberá(n) ser BackColor = RGB(255, 255, 255). · El 6to TextBox estará ubicado alternativamente entre el(los) TextBox21 y TextBox22 mientras que el 7mo TextBox siempre estará ubicado en el TextBox22. · El(los) TextBox (TextBox16 al TextBox22) cuyo(s) valor(es) posea(n) decimales o sea(n) decimales directamente y donde adicionalmente se cumplan con las condiciones de la Macro CalcularDiferencias así como con los tres puntos anteriores dicho(s) decimal(es) se deberá(n) sumar automáticamente en el TextBox Ahora bien, cuando los TextBox16 al TextBox22 estan llenos la macro automáticamente suma los valores del 6to TextBox y 7mo TextBox lleno(s) (TextBox<>””) en el TextBox26 y se colorean adecuadamente los TextBox21 y TextBox22 sin embargo si entre el TextBox16 y el TextBox22 hay algún TextBox vacío y/o con valores ≥ 8 se presentan desviaciones en la suma en el TextBox26, así mismo cuando los valores contenidos en los TextBox poseen decimales o son decimales directamente dichos decimales no se suman automáticamente en el TextBox 26 como si ocurre en el TextBox23 (Ver Archivo Sumar). Mucho te sabre agradecer a ayuda que me puedas dar Libro.xlsm

Funciona exelente muchas gracias

Saludos amigos espero estén bien Intento guardar la información proveniente del Label32 a través de la siguiente sección de código: Guardar Hoja58, "H3", Label32 Sin embargo, al ejecutar la macro se inserta una fila como corresponde, pero no se copia ninguna información en la MATRIZ4 apareciendo de inmediato una alerta que me indica: “Se ha producido un error ”438” entiempo de ejecución: El objeto no admite esta propiedad o método” ubicando el error en la siguiente macro: If ctrl.Visible Then sh.Range(r).Value = ctrl.Value End If End Sub Por lo que entiendo se debe a la propiedad Vaule que no sé cómo ni por cual propiedad cambiar para que se guarde correctamente la información del Label32 conjuntamente con el resto de los TextBox y ComboBox. GUARDAR PRUEBA.xlsm

Funciona perfecto mejor de lo que esperaba mil gracias

Ejemplo 3: El día 12 (TetxBox14) de Octubre es feriado, pero el TextBox que está asociado a esta fecha: TextBox 20 =”” se cuenta con valor igual a “1” por lo tanto el TextBox32 = 1

Ejemplo 2: Los días 28 (TetxBox12) y 29 (TetxBox13) de Marzo son feriados, pero como los TextBox que estan asociados a estas fechas: TextBox 19 <>”” se cuenta con valor igual a “0” mientras que el TextBox 20 =”” se cuenta con valor igual a “1” por lo tanto el TextBox32 = 1

Saludos @JSDJSD espero estés bien los resultados del Texbox26 están conforme a lo esperado sin embargo con el Texbox32 al hacer pruebas obtuve algunos resultados que difieren de los resultados esperados por lo que hice unos cálculos manuales que me condujeron al replanteamiento de mi enunciado original para asegurar la exactitud de los resultados: Si la fecha contenida en alguno de los TetxBox 9, 10, 11, 12, 13, 14, 15 Coincide con alguna(s) de las fechas del Rango 'USUARIOS & PRIVILEGIOS'!$BS$27:$BS$56 entonces Únicamente el(los) TextBox (16, 17, 18, 19, 20, 21, 22) que esté(n) asociado(s) con esta(s) fecha(s) cuando este(n) Vacío(s) se deberá(n) contar con un valor igual a “1” (Textbox=””=1) mientras el(los) TetxBox (16, 17, 18, 19, 20, 21, 22) que no esté(n) asociado(s) con esta(s) fecha(s) cuando este(n) Lleno(s) se deberá(n) contar con un valor igual a “0” (TetxBox<>””=0) conforme a las siguientes condiciones: Si TetxBox9 Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 16 =””=1 Si TetxBox10 Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 17 =””=1 Si TetxBox11 Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 18 =””=1 Si TetxBox12 Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 29 =””=1 Si TetxBox13 Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 20 =””=1 Si TetxBox14 Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 21 =””=1 Si TetxBox15 Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 22 =””=1 Si TetxBox9 No Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 16 <>””=0 Si TetxBox10 No Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 17 <>””=0 Si TetxBox11 No Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 18 <>””=0 Si TetxBox12 No Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 29 <>””=0 Si TetxBox13 No Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 20 <>””=0 Si TetxBox14 No Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 21 <>””=0 Si TetxBox15 No Coincide con Rango 'USUARIOS &PRIVILEGIOS' entonces TextBox 22 <>””=0 Ejemplo 1: Los días 12 (TetxBox9) y 13 (TetxBox10) de Febrero son feriados, pero como los TextBox que estan asociados a estas fechas: TextBox 16 =”” y TextBox 17 =”” se cuentan con valor igual a “1” por lo tanto el TextBox32 = 2