Saltar al contenido

SALAVERRINO

Miembros
  • Contador de contenido

    254
  • Unido

  • Última visita

Sobre SALAVERRINO

  • Rango
    Miembro

Visitantes recientes del perfil

El bloque de últimos visitantes está desactivado y no se puede mostrar a otros usuarios.

  1. Buenas noches a los integrantes de este foro, en esta ocasión recurro a uds,, para que me brinde su apoyo con alguna fórmula para determinar que cuando los valores ingresados que inician desde la Columna M2 hasta U133, se vallan comparando entre ellos y teniendo como filtro de verificación las columnas N2, O2, y Q2 (se repite) consigne el valor 1 en la columna T2, es decir y como se aprecia en el archivo adjunto en fila N2 hasta N12 los nombres se repiten en la fila N20 hasta N30, igualmente para los celda O y Q, espero haberme explicado lo que requiero obtener como resultado. Desde ya agradezco su apoyo y colaboración. INGRESO DE JORNADAS.rar
  2. SALAVERRINO

    Buscar DNI desde la Hoja Config

    Buenas tardes a los integrantes de este foro, en esta ocasión solicito su apoyo en este UserForm, es decir al estar en la Hoja BASE y presionar en el botón CONSULTA DATOS REGISTRADOS nos mostrara otro formulario MODIFICAR REGISTROS y al digitar el valor buscado en el textbox (PERRY PUERTAS SANTIAGO ELLIT) y tras presionar el botón filtrar, nos mostrara todos los datos relacionados y seleccionamos cualquiera ID y posteriormente presionar el boton Modificar (userform fmrModificar) y lo que se requiere es al escribir HUANCA GOMEZ MARIELA DEL PILAR (en el textbox TRABAJADOR) se posicione el DNI automáticamente tras el valor solicitado (textbox DNI) de la hoja CONFIG, adjunto link del archivo e imagen. https://drive.google.com/file/d/1SeGNa7Ny7UtRuOnbwaRy7t8XDHxXx8xW/view?usp=sharing https://drive.google.com/file/d/1ZJEMjdHvgMs75KvYVdPBkmK3z_N6d0mR/view?usp=sharing Desde ya agradezco anticipadamente su apoyo y esperando haber explicado de lo que se requiere, saludos.
  3. SALAVERRINO

    ERROR AL MODIFICAR CAMPO FECHA EN UN USERFORM

    Olvide de indicar,que también verifique la configuración regional de mi PC y realice los cambios a mi laptop, ni con eso funciona.
  4. SALAVERRINO

    ERROR AL MODIFICAR CAMPO FECHA EN UN USERFORM

    Amigo @Haplox adjunto link del archivo, desde ya agradezco la ayuda brindada. link https://drive.google.com/file/d/1raP46NN9WWSbwnCSa0OOcpjXZFBFJLTE/view?usp=sharing
  5. SALAVERRINO

    ERROR AL MODIFICAR CAMPO FECHA EN UN USERFORM

    Buenos dìas @Haplox, efectivamente tienes razón en cuanto es raro que un pc funcione bien y en la otra no, pero volví a crear el archivo desde cero y lo copie en otra pc y muestra la información con "," pero solo es la presentación cuando realizo el filtro en el listbox,de acuerdo a la imagen envidas. Saludos.
  6. SALAVERRINO

    ERROR AL MODIFICAR CAMPO FECHA EN UN USERFORM

    Buenas noches @Antoni, gracias por el aporte brindado, ya que se pudo solucionar el error en el TextBox4 campo Fecha. Pero ahora se presento otro problema en el mismo archivo pero en el TextBox5 campo Tonelaje, es decir en mi PC cuando ejecuto el formulario frmBuscar y se muestra la información correcta en el ListBox. link de imagen correcta: https://drive.google.com/file/d/1xAlURMmuGYOweD-i4ZezMbcO7dgO9yU6/view?usp=sharing Pero cuando copio el mismo archivo a mi laptop, lo muestra como erroneo, link de la magen https://drive.google.com/file/d/1J7jX0Wd8zOhGdqn7Fjt4MI7fASVmeREi/view?usp=sharing Desde ya agradezco nuevamente por la ayuda brindada.
  7. Buenos días a los integrantes de este foro, en esta ocasión recurro a vuestra ayuda para me brinde su asesoramiento en como hacer que en el TextBox4 FECHA del formulario fmrModificar quede con Formato Fecha, ya que al hacer modificaciones en otros TextBox el campo FECHA de distorsiona es decir invirtiendo la fecha registrada ejemplo: 12/10/2018 a 10/12/2018 o al modificar la fecha ingresar lo posiciona al lado izquierdo, todo esto para mejor visualización los adjunto en el link imagenes, también adjunto el archivo y la macro con la que se esta trabajando. Desde ya agradezco su apoyo incondicionalmente, salvo que brinden otro tipo de formulario. 'Actualizar el registro Private Sub CommandButton1_Click() For i = 1 To 9 ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value Next i Unload Me End Sub Private Sub CommandButton3_Click() UserForm4.Show End Sub Private Sub CommandButton4_Click() UserForm5.Show End Sub 'Llenar los cuadro de texto con los datos del registro elegido Private Sub UserForm_Initialize() For i = 1 To 9 Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value Next i End Sub 'Cerrar formulario Private Sub CommandButton2_Click() Unload Me End Sub Private Sub TextBox6_change() Dim Texto As Variant Dim Caracter As Variant Dim Largo As String On Error Resume Next Texto = Me.TextBox6.Value Largo = Len(Me.TextBox6.Value) For i = 1 To Largo Caracter = CInt(Mid(Texto, i, 1)) If Caracter = "" Then If Not Application.WorksheetFunction.IsText(Caracter) Then Me.TextBox6.Value = Replace(Texto, Caracter, "") MsgBox "SOLO PUEDE INGRESAR LETRAS", vbOKOnly + vbInformation, "AVISO" Else End If End If Next i On Error GoTo 0 End Sub Private Sub TextBox7_change() Dim Texto As Variant Dim Caracter As Variant Dim Largo As String On Error Resume Next Texto = Me.TextBox7.Value Largo = Len(Me.TextBox7.Value) For i = 1 To Largo Caracter = CInt(Mid(Texto, i, 1)) If Caracter = "" Then If Not Application.WorksheetFunction.IsText(Caracter) Then Me.TextBox7.Value = Replace(Texto, Caracter, "") MsgBox "SOLO PUEDE INGRESAR LETRAS", vbOKOnly + vbInformation, "AVISO" Else End If End If Next i On Error GoTo 0 End Sub https://drive.google.com/file/d/1raP46NN9WWSbwnCSa0OOcpjXZFBFJLTE/view?usp=sharing Link Imagenes https://drive.google.com/file/d/1sR0Poc6FLzLSl4PD6Jb1oVzg1Au8APwn/view?usp=sharing https://drive.google.com/file/d/13Z5s_WkUi9I6fhS1t2igMqfDG_NQag-7/view?usp=sharing https://drive.google.com/file/d/17Xis0sh5Ah9zs3QNg7ick13kGj-uDFQx/view?usp=sharing https://drive.google.com/file/d/1vbEvIL8KzzF1_x6BlXbNmzajUnPL7r5Q/view?usp=sharing
  8. SALAVERRINO

    Formula para determinar Especialidad

    Buenas tardes @Gerson Pineda el aporte brindado es excelente y como indicas no se usa mucho la condición SI. Gracias y Saludos.
  9. SALAVERRINO

    Formula para determinar Especialidad

    Buenas noches a todos los integrates del este foro, agradeciendo por sus aportes brindados, la cual me ayudaron a solucionar el problema con dicha formula, por lo que daría como TEMA SOLUCIONADO.
  10. SALAVERRINO

    Formula para determinar Especialidad

    Buenas tardes, no es que, ni sepa uno lo que requeria, lo anetrior es un ejemplo de como sería la condición al preguntar, la formula que necesito es solamente que la condición sea unica y exclusivamente WE1, WE2, WE3, WE4, WJ1, WJ2, WJ3, WJ4 todo es se multiplica por el 10% y esta otra condición, PE1, PE2, PE3, PE4, PJ1, PJ2, PJ3, PJ4 al 5% se mulipleque por la celda J6 y sea mayor a 0.
  11. SALAVERRINO

    Formula para determinar Especialidad

    En la celda K9, debe ser 0, porque la condición es que solo pregunte cuando es WE1, WE2, WE3, WE4, WJ1, WJ2, WJ3, WJ4, PE1, PE2, PE3, PE4, PJ1, PJ2, PJ3, PJ4 y sea mayor a 0.
  12. Buenos días a los integrantes de este foro, recurro a uds para que me brinde su apoyo con esta formula para determinar el resultado en la celda K6, según las condiciones que describo a continuación: 1º Condición: Valor de la celda F6 puede ser WE1 o PE1 2º Condición: Valor de la celda H6 es mayor a 0 3º Condición: Valor de la celda J6 se multiplique por el 10% (cuando es WE1) y 5% (cuando es PE1) Espero haber explicado con lo requerido y desde ya agraezco su apoyo. AYUDA CON FORMULA WINCHERO O PORTALONERO.xlsx
  13. SALAVERRINO

    Buscar valor y resaltar el valor encontrado

    En los mensajes líneas arriba está el link para la descarga del archivo, caso contrario envíame tu email personal y adjunto el archivo @DiegoLG Saludos
  14. SALAVERRINO

    Buscar valor y resaltar el valor encontrado

    Hola @DiegoLG salvo que se pueda confeccionar otra macro pero sin realizarlo con filtros.
  15. SALAVERRINO

    Buscar valor y resaltar el valor encontrado

    @DiegoLG realice la modificación indicada, pero al consignar la instrucción Hoja1.Unprotect "CONTRESEÑA", en la hoja INGRESO borra toda la fila 6 y en la hoja busqueda el valor consignado como criterio a buscar no se borrar.
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.