Jump to content

MauriciodeAbreu

Members
  • Content Count

    31
  • Joined

  • Last visited

About MauriciodeAbreu

  • Rank
    Member

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2
  1. Saludos BigPetroman, te comento, el archivo que bajaste no tiene la modificacion, ya que cuando lo subi no tenia idea de como hacerlo. Despues de subir el archivo, busque informacion sobre el siguiente comentario que realizaste. Y logre hacer que funcionara, asi que puse el codigo de lo que habia hecho para que me dieran su opinion. Aunque el codigo realiza la validacion, no funciona del todo como yo queria. Ya que lo logico seria que al capturar el serial, haga la validacion y muestre un mensaje indicando que el serial ya esta auditado. Pero, la validacion, o aviso de serial
  2. Bueno!!, logre hacer que funcione. Este seria el codigo final. ' Modulo NoCoincidencia Dim SerialNoAuditado As Variant On Error GoTo IngresarSerialNoAuditado: SerialNoAuditado = Worksheets("Reg. N-Auditados").Range("B5").Value Resultado = Application.WorksheetFunction.Match(SerialNoAuditado, Worksheets("Laptop").Range("D6:D40005"), 0) If Resultado > 0 Then GoTo SerialAuditado: Else GoTo IngresarSerialNoAuditado: End If ' Aqui es para indicar que el serial esta auditado SerialAuditado: MsgBox "Este equipo fue auditado, por favor registrelo en el modulo correspondiente '
  3. En funcion de lo exlpicado por ti Me puse a investigar como colocar esa funcion en VBA, y estoy tratando de hacerlo con lo poco que he aprendido. Sub Registrar_No_Auditados() '======================================================================================================== NuevoIngreso: 'Empezar en el campo Serial Range("B5").Select 'Fin 'Parpadeo que se produce al Anotar Entrada por medio del boton. Application.ScreenUpdating = False 'Fin 'Convertir datos ingresados en Mayusculas Convertir_Mayusculas 'Fin 'Ingreso de datos (los dos siguientes bloques - Validaci
  4. Gracias por responder Bigpetroman Tienes razon, se me paso subir el archivo. Mil disculpas Clave de proteccion hojas 12346 Equipos No Auditados.xlsm
  5. Buenos dias amigos. Recurro a ustedes con una duda. Queria saber si al igual que uno valida en un celda que los valores ingresados esten en un rango x, se podia hacer a la inversa, es decir, validar que los valores ingresados no esten en una lista y permitir el ingreso de dicho valor. ejemplo: Tengo una hoja de ingresos (apenas 3 celdas, todas datos del mismo equipo) y una hoja en la que tengo los seriales de unos equipos dentro de una columna. La cuestion es que en la celda B5 (de la hoja ingresos) al ingresar el serial del equipo, se realice una validacion de que ese seri
  6. Excelente!!, JSDJSD ahora si realiza la busqueda por Parametro. Solo corregí un detallito, ya que como puedes apreciar en las imagenes que anexo, al ir cambiando de parametro me truncaba cada vez mas los resultados. El cambio lo realicé en las siguientes lineas (por si le interesa a alguien). Antes: For i = 4 To Filas If LCase(Cells(i, Columna).Offset(0, 2).Value) Like "*" & LCase(Me.txtFiltro1.Value) & "*" Then Me.ListBox1.AddItem Cells(i, j) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, Columna).Offset(0, 1) M
  7. Buenos dias amigos. Recurro a ustedes porque tengo un problema con un formulario de busqueda que estoy haciendo, he buscado en la red, foros, YouTube, y no encuentro algo que me indique como usar el "Boton de Opciones" para seleccionar el parametro de busqueda, y tampoco un ejemplo para ver donde esta mi error. Esta es una imagen del formulario, como pueden observar hay una serie de Botones para realizar las opciones de busqueda, y por el momento solo realiza la buqueda por Baul, no he logrado hacer que funcione para el resto de las opciones. Anexo archivo de ejempl
  8. Hola AlexanderS, muchas gracias por responder. He probado el codigo y funciona perfecto, y he visto porque no funcionabo el que trataba de hacer 🤦‍♂️ jajajajaja En definiticas el que sabe sabe. Nuevamente muchas gracias👍
  9. Buenos compañeros. Tengo una tabla algo grande, en la cual he tenido que eliminar en un par de ocasiones ciertas filas, lo cual implica desbloquear la hoja, hacer visible los encabezados, seleccionar las filas, borrarlas, ocultar encabezados y bloquear nuevamente la hoja. Me preguntaba si es posible mediante un InputBox, seleccionar un rango de celdas para eliminar las filas asociadas a ese rango de celdas ¿? Agradecido de antemano por sus comentarios.
  10. Excelente Bigpetroman, funciono perfecto la modficacion.... Muchas, muchas gracias por tu ayuda 👍 Tema resulto!!
  11. Bigpetroman, me sigue mostrando cero, no se si hago algo mal. Te muestro unas capturas de pantalla... Por ejemplo, como puede ver en la hoja Salida el serial del equipo "1S20AWA23J00PC08MAG2" no tiene nota. Pero en la hoja Reg. Entrada, al traer la informacion asociada al serial, trae como nota un cero, y debria ser vacio ya que no existe nota Y en la hoja Entrada, tambien coloca el cero como nota Existe alguna posibilidad de que coloque " " en vez del cero ¿?
  12. Mauricio_ODN Mi estimado, antes que nada darte las gracias por la ayuda. He bajado tu archivo dos veces, y debo estar haciendo algo mal, ya que no veo tus modificaciones, o no he sabido donde buscar. 😟
  13. bigpetroman Sois un genio, has dado justo en el clavo, y has ido mas alla al hacer lo de las notas, que siendo honesto, no lo habia considerado, pero dejame decirte que esta genial. De verdad me quito el sombrero... Solo decir que modifique esta linea, ya que me colocaba un cero en las notas de Entrada, cuando en las notas de Salida no habia ninguna nota. Worksheets("Entradas").Range("I5").Value = wHoja.Range("H8").Value Por esta otra Worksheets("Entradas").Range("I5").Value = "" Y el otro detallito, es en la formula: =SI($B8="NO E
  14. Buenas noches y gracias por responder... bigpetroman y Mauricio_ODN disculpen la demora, llegue hace poco del trabajo, descargo los archivos y comento.
×
×
  • Create New...

Important Information

Privacy Policy